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Foreword 


My  family  is  so  accustomed  to  my  getting  totally  absorbed  in  Adventure 
games  that  they  have  become  immune  to  my  cries  for  help  in  the  dead 
of  night  ...  or  so  I  thought. 

A  few  weeks  ago  I  was  deep  into  one  of  the  more  challenging  games  and 
making  tremendous  progress,  thinking  that  at  last  I  was  going  to  solve  an 
Adventure  in  one  evening.  That  is  until  I  ran  into  one  of  those  all-too-familiar 
situations  where  nothing  you  try  seems  to  work. 

Sheer  frustration,  momentary  panic,  gnashing  of  teeth. 
Ah,  but  it's  nice  when  you  finally  get  over  the  hump.  I  was  moving  along 
again,  deep  in  thought  when  I  heard  a  rustling  sound.  I  was  not  alone. 

Spinning  around  in  the  swivel  chair,  I  was  surprised  to  discover  that  the 
entire  family  had  joined  me  in  the  basement.  Apparently  I  had  made  such 
a  ruckus  this  time  that  they  just  knew  something  had  happened. 

Their  expressions  were  a  melange  of  relief,  tolerance  and  disbelief  —  happy 
that  I  was  okay,  forgiving  me  for  my  intrusion  into  their  dreams,  and  surprised 
at  themselves  for  thinking  that  Dad  would  be  involved  with  anything  other 
than  his  CoCo  at  such  a  late  hour. 

We  all  had  a  good  laugh,  they  went  back  upstairs  to  bed,  and  I  stayed 
up  another  couple  of  hours  —  playing  an  Adventure,  of  course. 

Even  with  such  an  immersion  into  this  fascinating  genre  of  CoCo 
programming,  it's  still  hard  for  me  to  believe  that  we're  already  publishing 
our  second  book  of  Adventures. 

We're  still  hearing  from  folks  who  are  trying  to  solve  some  of  those  in 
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our  first  book.  In  my  mind,  some  of  those  entries  were  classics,  setting  standards 
that  Adventure  authors  will  want  to  emulate  for  years  to  come. 

The  Adventures  in  this  second  book  are  just  as  challenging  and,  in  many 
cases,  include  some  very  innovative  programming  techniques.  As  in  our  first 
book,  they  were  selected  from  Adventure  competition  conducted  by  THE 
RAINBOW,  The  Color  Computer  Monthly  Magazine. 

Frankly,  one  of  the  main  reasons  we  sponsor  the  contests  is  because  they 
help  us  break  new  ground  with  our  CoCo.  The  most  visible  (and  audible) 
improvements  are  in  the  quality  of  the  graphics  and  sound  effects.  But  there 
are  many  more  subtle  improvements  that  speed  up  play  considerably  and 
heighten  your  sense  of  involvement. 

Of  course,  the  other  reason  for  contests  is  that  we  simply  enjoy  playing 
new  Adventures. 

Our  thanks  to  all  of  the  authors  who  spent  untold  hours  composing,  testing, 
debugging,  and  enhancing  their  programs  before  finally  submitting  them  to 
us.  They  not  only  have  made  the  book  possible  but  they  have  enriched  the 
concept  of  Adventuring. 

I  know  you  are  going  to  enjoy  this  newest  addition  to  The  Rainbow  Bookshelf 
so  I'll  just  wish  you  lots  of  luck. 

Lawrence  C.  Falk 

Publisher 
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Introduction 


A sure  clue  that  you're  hopelessly  hooked  on  Adventures  is  when  you're 
awakened  just  before  daybreak  by  the  glare  of  the  computer  monitor 
or  the  frantic  chirping  of  robins. 

Some  persons  naively  begin  playing  Adventures  as  a  way  of  just  killing 
time,  only  to  find  themselves  spending  too  much  time  at  the  computer.  The 
days  fly  by,  entire  weekends  vanish,  and  there's  never  enough  time  to  do 
everything  you  need  to  do  —  if  you  are  to  solve  your  favorite  Adventures, 
that  is. 

Perhaps  the  attraction  is  the  constant  challenge,  the  endless  variety  of  "life- 
threatening"  situations.  Maybe  it's  the  sometimes  historic  or  romantic  setting. 

Never  mind  that  we  are  sometimes  frustrated  along  the  way;  that's  to  be 
expected.  Even  if  you've  been  playing  Adventures  so  long  that  your  responses 
are  almost  automatic,  you're  going  to  get  hung  up  someplace.  It's  inevitable 
because  each  one  is  a  figment  of  someone's  imagination.  Adventure  writers 
generally  have  an  urge  to  be  different  and  leave  their  individual  mark  on 
a  game.  Hopefully,  this  will  never  change. 

That  tendency  is  an  advantage  writers  of  arcade  games  do  not  enjoy  because 
they  are  compelled  to  build  a  set  of  almost  predictable  routines  that  require 
repetitive  responses. 

If,  at  times,  you  get  the  feeling  the  author  is  making  an  Adventure 
unreasonably  difficult,  welcome  to  the  club.  We've  all  been  there,  thrown 
up  our  hands  and  filed  the  game  away  for  a  while  —  only  to  think  of  an 
answer  later  that  is  so  ridiculously  easy  we  wonder  if  we've  misplaced  our 
common  sense! 
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Having  played  all  of  the  games  in  this,  the  second  in  a  series  of  Adventure 
books  for  The  Rainbow  Bookshelf,  I  can  testify  that  you're  going  to  reach 
that  point  again.  Just  don't  surrender  to  the  temptation  to  quit;  you'll  deprive 
your  ego  of  the  tremendous  boost  which  comes  with  finally  solving  an 
Adventure. 

Here  are  just  a  few  tips  to  help  make  it  easier  for  you,  many  of  which 
may  be  "old  hat"  to  seasoned  Adventure  players.  But  I  can  guarantee  that 
even  some  of  these  folks  will  welcome  all  the  help  they  can  get. 

One  of  the  basic  necessities  is  the  ability  to  command  action.  A  great  many 
Adventure  programs  respond  to  two-word,  verb-noun  combinations,  such  as 
OPEN  WINDOW  or  GO  NORTH.  However,  there  are  almost  as  many  games 
these  days  that  respond  to  one-word  or  single-letter  verbs,  particularly  on 
directional  commands.  Typing  'N'  instead  of  GO  NORTH  is  a  lot  easier, 
especially  if  you  haven't  acquired  typing  skills.  Several  of  the  Adventures 
we've  included  either  list  the  accepted  commands  in  the  printed  instructions 
or  as  part  of  the  introduction  to  the  program  on  tape  or  disk. 

A  technique  which  will  save  you  much  time  and  aimless  wandering  is  to 
draw  a  map  as  you  play.  On  a  large  sheet  of  paper,  draw  boxes  which  represent 
the  rooms  or  places  you  enter.  Within  each  box,  describe  items  located  in 
the  room.  Draw  lines  between  the  boxes  in  the  direction  indicated  by  the 
program. 

When  you  run  out  of  ideas  on  how  to  get  out  of  a  predicament  or  to 
retrieve  a  priceless  object,  many  Adventures  respond  to  HELP  or  CLUE 
commands  with  information  intended  to  assist  you.  But  don't  always  expect 
a  lot  of  help  since  the  amount  of  assistance  you  receive  depends  upon  the 
generosity  of  the  program's  author. 

Another  valuable  aid  is  the  EXAMINE  command.  Naturally,  you  have 
to  enter  the  name  of  the  object  on  which  you  want  more  information,  (i.e., 
EXAMINE  VASE).  You  simply  cannot  use  this  command  often  enough. 

I  would  caution  you  not  to  expect  any  help  from  the  illustrations  that 
accompany  the  introductions  to  the  individual  Adventures.  These  are  intended 
only  as  mood-setters.  For  brief  descriptions  of  various  locations,  you  will 
find  the  LOOK  command  helpful. 

You're  going  to  be  collecting  many  precious  clues,  valuable  treasures  and 
other  things  as  you  proceed.  For  a  reminder  of  what  you  are  carrying,  just 
type  INVENTORY  (sometimes  INV  or  T  will  do)  and  you  will  receive  a 
complete  list.  You  will  be  informed  when  you  can't  carry  any  more  objects, 
so  just  DROP  those  you  feel  will  be  the  least  helpful  or  which  you  may 
already  have  used  in  order  to  GET  new  valuables  or  tools. 
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If  it's  getting  too  late  in  the  evening  and  you  don't  want  to  start  at  the 
very  beginning  the  next  time,  many  Adventures  include  a  SAVE  command 
which  allows  you  to  record  your  progress  on  tape  or  disk  at  that  point.  When 
you're  ready  to  resume  play,  you  can  simply  CLOAD  or  LORD  the  game  and 
continue  where  you  left  off. 

I've  often  found  it  helpful  when  completely  stymied  just  to  turn  the  Adventure 
over  to  my  wife  or  9-year-old  son  for  a  while.  They  will  often  try  something 
that  never  occurred  to  me,  opening  up  many  new  doors.  Then,  when  they're 
stuck,  I  take  over  again. 

Also  remember  that  logic  doesn't  always  prevail.  Some  games  are  more 
logical  than  others.  In  some  cases,  the  responses  are  completely  illogical. 

Due  to  the  prohibitive  length  of  the  program  listings  for  three  of  our  winning 
entries,  we  have  elected  not  to  print  the  listings  in  this  book.  Rather,  we 
have  provided  the  introductory  text  and  loading  instructions  for  the  programs 
that  appear  as  bonus  programs  on  the  Second  Rainbow  Adventures  Tape. 

The  three  "Tape  Bonus"  programs  are  clearly  labeled  and  appear  near  the 
back  of  the  book.  All  24  Adventures  in  this  book  are  included  on  the  tape, 
so  you  will  get  a  grand  total  of  27  games  if  you  buy  the  Second  Rainbow 
Adventures  Tape.  Another  good  reason  for  getting  the  tape,  of  course,  is 
the  time  you  save  by  not  typing  in  the  lengthy  program  listings. 

Special  thanks  are  in  order,  and  rightfully  deserved,  to  Jerry  McKiernan, 
whose  extraordinary  talents  are  obvious  in  the  creative  design  of  this  book. 
I  also  want  to  express  my  heartfelt  appreciation  to  artist  Marjie  Faul  for 
the  cover  illustration  and  for  the  many  wonderful  drawings  throughout  the 
book. 

And,  finally,  our  congratulations  to  the  authors  of  these  fine  Adventures. 
The  time  and  effort  they  have  invested  is  obvious  in  the  quality  of  the  programs. 
We're  confident  you  will  treasure  this  valuable  collection  for  years. 

Charles  Springer 

Editor 


Program  by  Mark  Fetherston 


epperland,  which  lies  past  the  Sea  of  Time  and 
the  monstrous  sea  (the  Sea  of  Monsters),  is 
the  blue  belly  of  the  universe.  Happiness  and 
peace  reign  there;  sadness  and  anger  do  not 
exist. 

Four  score  and  13  years  ago,  the  forefathers 
(a  quartet)  and  the  foremothers  (another 
quartet)  made  their  way  to  this  wonderful  land 
in  a  small  yellow  submarine.  They  passed  a 
decree  that  the  word  "yes"  was  to  be  used 
instead  of  "no"  at  all  times. 

Twenty  years  ago  a  young  man  named 
Sergeant  Pepper  taught  a  band  to  play.  They've 
been  going  in  and  out  of  style  but  they 
guarantee  to  raise  a  smile.  Because  of  Sergeant 
Pepper's  Lonely  Hearts  Band,  music  has 
become  a  dominant  force  in  the  laws  and 
government  of  Pepperland. 

Surrounding  Pepperland  are  the  huge  Blue 
Mountains.  Past  the  mountains  live  the 
dreaded  Blue  Meanies,  the  only  source  of  fear 
in  Pepperland.  These  furry  blue  creatures  hate 
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music,  all  kinds;  they  shriek  at  the  very  suggestion  of  melody.  They  thrive 
on  pessimism. 

Under  the  command  of  the  Blue  Meanies  are  terrible  creatures.  The  Bonkers' 
mission  is  to  bob  green  apples  onto  the  Pepperites'  heads,  freezing  their  victims 
and  turning  them  into  an  ugly  shade  of  blue.  The  Clowns  shoot  missiles  which 
home  in  on  any  object  considered  good.  The  dreaded  Flying  Glove  destroys 
its  victims  by  pounding  them  into  the  ocean  bottom.  The  Blue  Meanies 
themselves  fire  blue  arrows.  They  also  have  at  their  disposal  a  music  missile, 
which  encloses  the  source  of  melody.  They  are  led  by  the  meanest  meanie 
of  all,  His  Blueness,  who  is  assisted  by  Mad  Max. 

You  are  Fred,  a  resident  of  Pepperland.  To  the  younger  generation,  you 
are  known  as  Old  Fred.  To  those  older  than  you,  you  are  Young  Fred.  Your 
leader  is  the  Lord  Mayor,  an  ancient  young  man,  the  last  of  the  forepersons. 

One  day  as  the  Pepperites  are  listening  to  Sergeant  Pepper's  band,  a  herd 
of  Bonkers  and  a  battalion  of  Blue  Meanies  launch  an  attack  on  Pepperland. 
A  music  missile  traps  the  band.  Before  you  realize  it,  everyone  around  you 
turns  blue.  You  are  the  only  one  unbobbed.  You  must  find  help  and  free 
the  band  from  the  blues. 

To  start  the  Adventure,  load  either  the  introduction  or  part  one.  If  you 
load  the  introduction,  be  sure  to  type  PCLEAR8  before  running.  The  screen 
will  turn  either  red  or  blue.  If  it  is  blue,  push  the  Reset  button  and  type 
RUN  until  the  screen  is  red,  then  press  any  key  to  start.  If  you  see  a  flashing 
'E'  in  the  lower  right-hand  corner,  press  the  ENTER  key.  This  Adventure  has 
three  parts.  When  you  have  finished  one  part,  you  may  load  in  the  next 
one. 

The  most  common  commands  are:  GET,  PUT,  GO  DOOR,  INVEN,  QUIT, 
LOAD,  LEAVE,  N,  UP,  LOOK,  SAVE  and  PRESS  BUTTON. 

Remember  that  music  is  a  very  important  part  of  life  in  Pepperland.  The 
opposite  holds  true  for  the  Blue  Meanies! 


(Mark  Fetherston,  of  Kenosha,  Wis.,  is  a  student  at  the  Milwaukee  Institute 
of  Art  and  Design.) 
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FOR  THE  rainbow 
ADVENTURE  CONTEST 
CREATED  BY 
MARK  FETHERSTON 
32K  EXT.  BASIC 
SPECIAL  THANKS  TO 
THE  SOUTHEAST  WIS. 
COCO  CLUB 


0  GOSUB53: ' PC LEAR 8  BEFORE  USE 
1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 

12  '********************** 

13  CLS  :  PRINT@200  ,  "ONCE  UPON  A  TI 

ME  " :FORK=1TO1200:NEXT:PRINT@ 

2  3  2,  "OR  MAYBE  TWICE  "  :  FORK= 

1TO800  :  NEXT  :PRINT@256,  "THERE  WAS 

AN  UNEARTHLY  PARADISE  CALLED... 
. ":FORK=1TO800:NEXT 

14  FORK=1TO150 : PRINT@298 , "pEpPeR 
lAnD" : PRINT@298 , "PePpErLaNd" :NEX 
T: PRINT@298 , "PEPPERLAND" : PRINT"E 
IGHTY  THOUSAND  LEAGUES  BENEATH  T 
HE  SEA  IT  LAY" ; : FORK=1TO1300 :NEX 

T:  PRINT"  OR  LIED  ":FORK=1TO50 

0 : NEXT : PRINT "I'M  NOT  TOO  SURE... 


15  PMODE  3,1:PCLS3:DRAW"BM198,90 
C2S8U2H2L6DG2L16GL2G4L10H4U3HL14 
H4L4FR2D10L2GR10F2D2F2L3U2D4U2R1 
2FD3F2R30E2U2E2U4E2R2E2R2E2" : PAI 
NT (197, 90)  ,2,2:DRAW"BM181,81C4DG 
2L16GL2G4L9G4D3U3E4H3U6ER4E2U6E2 
R8F2D6FR7FR6F2" 

16  DRAW"BM128,56C2R4L4U4H2UERF2D 
5U7E2RD2GD7"  :  PAINT  ( 130 , 53 ) , 4 , 2  :  P 
AINT(170,84) ,1/4:DRAW"BM52,78C4R 
4FD6GL4E2UHEUH2 " : PAINT (58 ,  83 ) ,1, 
4:DRAW"BM90,  30C2U7H2U2ERFD2F2E2U 
3D3G2D7GLHBR5U3ER2FDL2U2D5HFREUB 
D2BR3HU9ERFD9GLBR5HU9ERFD9GLBR5H 
U3ER2FD3GL2U5D5BR7H2U3R2D2F 

17  DRAW+ "EU2D2FEU2R2D3G2HLG" : PAI 
NT (92 ,27) ,2, 2: PAINT (103, 27) ,2,2: 
PAINT (114, 27) ,2, 2: PAINT (124, 27) , 
2,2:PAINT(147,27) ,2,2 

18  DRAW"BM55, 150HUERFDR2EU2H3LHU 
2E2R4F2DGLHU2LGDF5D3G2L4HBR10BDH 
U4EFD3FREU4RD5GL3BR8H2U8ERFD4R2F 
2D2G2L2U6D6BR6U4E2RFERF2D4L2U3HG 
D3U3HGD3L2BR11HU2ER2UHLGER2FD4GU 
4D4L2BR5U5ER2F2DUH2LD6L2BR8HU4ER 
FD4GLBU7H2E2F2G2BD7BR4" 

19  DRAW+"U4E2R2F2D4U2H2LGD3L2BUB 
R8U4ER2FDL2U2D6HFREU" : PAINT (57 , 1 
48) ,2, 2: PAINT (78, 149) , 2, 2: PAINT ( 


95,148) ,2, 2: PAINT (111, 148) ,2,2:P 
AINT(143,148) , 2 , 2 : PAINT ( 156 , 148 ) 
,2, 2: PAINT (156, 133) , 4 , 2 : PAINT ( 16 
6,148) ,2, 2: PAINT (182, 148) ,2,2 

20  DRAW"BM61, 180C1DGLHU6ERFBD7BR 
3HU2ERFD2GLBR4D3U7R2FD2GL2BR7H2U 
2D2F2EU3D3G3BR5BU2U4DRERBD4BR2R2 
LU4LRBU2UBD7BR5LHU2ER2D6GLHBR5BU 
2U8D4R2FD3BR4HU5D2L2R4L2D3FREBDB 
R5R2LU7GBD6BR5E2U4HLGD2FR2BD3BR5 
LHU2EHUERFDGFD2GLBR6U7G2D2R3 11 

21  GOSUB52:SCREEN1,0 

22  PLAY"T203L8.B04L16CL3.D03L16B 
L8 . AL16BL3 . GL8 . BL16BL8 . AL16GL4 . E 
L16EL8 . BL16BL3 . AP8L8 . B04L16CL3 . D 
03  L16BL8 . AL16BL3 . GL8 . BL16BL8 . AL1 
6GL4 . EL16EL8 . BL16BL3 . AP8L8 . B04L1 
6CL3 . D03L16BL8 . AL16BL3 . GL8 . BL16B 
L8 . AL16GL4 . EL16EL8 . BL16BL3 . AP8 

23  PLAY"L8.B04L16CL3.D03L16BL8.A 
L16BL3 . GL8 . BL16BL8 . AL16GL2EL8 . BL 
16BL1AP1604L4DDDL8.DL16E03L8.AL1 
6AL8 . AL16AL2AL8 . AL16AL8 . AL16AL2A 
L8 . GL16GL8 . GL16GL2G04L4DDDL8 . DL1 
6E03L8 . AL16AL8 . AL16AL2AL8 . AL16AL 
8 . AL16AL2AL8 . GL161GL8 . GL16GL2G" 

24  PM0DE4, 5 :PCLS1: COLOR0, 1 : LINE ( 
0 , 0 ) - ( 2  5  6 , 19  2 ) , PSET , B : LINE ( 3 , 3 ) - 

(50,70) , PSET, B: LINE (252, 3) -(203, 
70) ,PSET,B:LINE(3 , 174 ) - ( 50 , 107 ) , 
PSET,B: LINE (203, 174) -(252, 107) ,P 
SET, B: LINE (95, 63) -(151, 130) , PSET 

,B 

25  DRAW"BM3 , 65S4E10R4H2U9HU8E4RG 
2R4E6RG8E2R2E4R4G3R4D2G3RE4D6F2G 
4DFRE2F2D3F3R3F4H4L3H3E2U4EU10HE 
H3U6H3L2H2L2H2L3G2L2G2D2G2L2D2G2 
D2HD15F2BM17 , 55F3R8E8U3BM14 , 40R2 
ER2FR2ER2FR6F2H2L6DGL2HUL2DGL2HF 
R2D6FREGR2F2DGLHUL2DGLHUE2" : PAIN 
T(30,28) ,0,0:PMODE3,5 

26  DRAW"BM5,70C1U5E10R2F4R6E10R2 
F10D10" : PAINT (10, 68) ,2, 1:PM0DE4, 
5  :  DRAWBM9  ,  80C0D2F2RE2U8LR2BD10B 
R4H2U6E2R2F2D6G2L2BR7U10D5R5U5D1 
0BR3U10F5U5D10 

27  DRAW"BM203,65E8R5E2H3UH2U2HU5 
E2U2E2U2ER2ER2E2F2R2FR2FD4FD2FD2 
F2D2GD2G2D2F3R7F8H8L7H3U2E6U2EU2 
EU5HU5H3L2U2H3L4H2L2GL2GL2G6D2G2 
D4G2D4FD4F3RDBF5F4R2U2DFR2E6BM21 
5 , 40E2R2F2LGLH2BU3R4BRBD13R3GLHB 
U3FREU8E2R4BD4H2L2G2RFREBM210,84 
U10R3F2D2G2L3BD4BR8U8E2R2F2 

28  DRAW+"D4L5R5D4BU10BR3D8F2R2E2 
U8BR3D10R5" : PAINT (230 , 28 ) ,0 ,0 : PM 
0DE3 , 5 : DRAW"BM204 , 70C1U6E8R6F4R4 


E6F4R6F8D3": PAINT (209 ,68) ,3,1 

29  PMODE4,5:DRAW"BM3, 165C0E8R6U2 
H6U8R2E4RE4D2GD2R2  FR2F2R2F2D7G5D 
4G2L6H2U2BU3BRE2R4F2DGLU2L4DGBU6 
BR4L2U6H2L3GBDBR2RBUBR4ER3FBDBL3 
RBM13 , 152L2H4U4HU6E2U3E4R2E3R2E2 
R2F2R3F2DF2R2FD4F2F2R2F2R3F3D2L4 
H2D2F2L2GL2G2L2G2L3BM8 , 188H2U6E2 
R2  FDBD3  LRD5L2  BR5U10R4L4D5R2 

30  DRAW+ "L2D5R4BR4HU8ER2FD8GL2BR 
6U10R2F2D2G2LF3DBR5H2U6E2R2FDBD3 
LRD5L2 BR5U10R4 L4 D5R2 L2 D5R4 11 :  PAIN 
T  ( 30 , 140 )  ,  0 , 0  :  PM0DE3  ,  5  :  DRAWBM4  , 
174C1U8E8R4DF3R6E3U2R5F2R5F3R2F4 
D7":PAINT(30,160) ,3,1 

31  DRAW"BM208,173E2R4E2U8F4R8E8D 
10F6" : PAINT (220, 170), 2,1: PM0DE4 , 
5  :  DRAWBM216 , 160C0H3U6HU4E2UE2R1 
5F2D3GD4G2DR3E3RFD3GD2R2E3U10HU1 
0H3L3H2L15G4D5GD5BR4BDRLBUBL2ER3 
FD2GD3GD2FR4E2GF2D2GHU2L5D2GHU2D 
2  BR3  R2  BUI 3  BRER3  FBDBLLBM2 0  9 , 188U1 
0R2F2D2GL2F3D2BR3RU10LR3LD10 

32  DRAW+"RBR3U10F5U5D10BR5H2U6E2 
R2FDBD3LRD5L2 BR7H2U6E2R2F2D6G2L2 
":PAINT(220, 140) ,0,0 

33  DRAW"BM113,130U4HU3H2U2E2RER2 
FR3FR2ER3ER2FRF2D2G2D3GD4L3U6H2G 
2L4H2F2R4E2L2HL2GL2G2D6U6BR16BU9 
U3H2U4HU4G2L2GL4HL2H2R12L12D4GD4 
G2D3BM116 , 107ER2FBD2D6BR4U6BU2ER 
2  FBLBDLBL7  LBM9  2 , 145U10R5L5D4R3L3 
D6BR8U10R2F2DGL2F3D3BR3R5L5U5R3L 
3U5R5BR4BD10U10R3F2D6G2L3" 

34  DRAW+"BR12H2U6E2BR3F3D7U7E3BR 
3BD10H2U6E2RF2D6G2LBR6BU10D8F2RE 
2U8BR3F2D6G2" : PAINT (120, 102) ,0,0 
:  PM0DE3  ,  5  :  DRAWBM114  , 102C1U4H4U3 
E2R20F2D3G4D3L2" : PAINT (118 , 98) , 3 
,1 

35  PMODE4,5:DRAW"C0BM85,30E2R6G2 
L6R3G6BR8E8R3G8L3R3E5R4E3G8BR7R5 
E2L5G2E5R2L2E3R5BD8BR5R5E2L7D2U2 
E5RER5DBD7BLE8R3G8L3R3E3R5U5D5G3 
BR4E2R5G2L5R5E4UL3HE2R4DBR3BDE2R 
6G2L6R3G6 

36  DRAW"BM82,170E8R6G8L6E2R6BD2B 
R3E3R2L2E3R6E2L6G2E2R6BD8BR7U2R6 
G2L4H2E5RER5DBG3LR2 LGBD3BR4E8R6G 
8L6E2R6BD2BR3E8R6G8L6E2R6BD2BR3E 
8R5D2G6L6E2R6 

37  PM0DE4 , 5 : SCREEN1 , 1 

38  PM0DE4 , 1 : PCLS 1 : COLOR0 , 1 : LINE ( 
0 , 0 ) - ( 2  5  6 , 192), PSET , B : LINE (3,3)- 
(50,70) , PSET, B: LINE (252, 3) -(203, 
70) , PSET, B:LINE(3,174)-(50, 107) , 
PSET, B: LINE (203, 174) -(252, 107) ,P 
SET, B: LINE (95, 63) -(151, 130) , PSET 
,B 


39  PMODE3,1:DRAW"BM96,130C1U6E4R 
6E2R8F2R8E4R4F4D4F2D4U4H2U4H4L2U 
12UH2U4E2U6E4U6H4U4H2L2G2D6F2D8G 
2D6G2L2U10H2U10H6L4D2F4D6F2D8F2D 
6G4R18L18G2D2L6H2L2G2DF4R10E4R2F 
2D4G2L6G2U6R2E2D6 

40  PAINT (100, 122) ,1,1: PAINT (122, 
102) ,1,1: PAINT (122, 106) ,3,1: DRAW 
"BM112, 105C2F2R4E2R10L12H2G2" :PM 
0DE4, l:DRAW"BM88, 140C0U8F2E2D8BR 
3R3L3U4R2L2U4R3BR3BD8U6E2F2D3L4R 
4D3BR3U8F4U4D8BR9U8F2E2D8BR3R3L3 
U4R2L2U4R3BR3BD8U6E2F2D3L4R4D3BR 
3U8F4U4D8 

41  DRAW+"BR3R2LU8LR2BR3R3L3D4R2L 
2D4R3BM5,83U10R2F2D2GL2R2FD2G2L2 
BR9H2U6E2RF2D6G2LBR6U10F4U4D10BR 
3U10D4E4G4F4D2BR3R4L4U5R2L2U5R4B 
R3D10U10R2F2DG2L2F4DBM211,84H2U6 
E2R2FDBD3LRD5L2 BR5R5L5U10BR9BD10 
H2U6E2R2F2D6G2L2BR10H3U7D7F3E3U7 
BR3R5L5D5R2L2D5R5 

42  PMODE3,1:DRAW"BM10,70C1U10E4R 
4F4R6E4R4F4D10U10H4L6U20L10D20U2 
0L5R20L5U20L10D20":PAINT(12,68) , 
2,1: PAINT (29, 30) ,1,1: PM0DE4 , 1 : DR 
AW"BM20 , 40C0R2F2D10R2BD2RL3R3BU1 
2E2R2 " 

43  PMODE3,l:DRAW"BM209,50C3R4F2R 
18E2U6R12E2H2L20H2L6G2L8D10" :PAI 
NT  (210,  45)  ,  3  ,  3  :  DRAWBM205 ,  50C1R2 
BU3L2BU3R2BU3L2R6E2R4E2R4F6D2L4H 
2F2R4U2H4R20F3G2L15GDFR4E2G2F2G2 
L4H2E2BD5L12H2L10 

44  DRAW"BM8, 174C1E8U6R5E5M49, 174 
BM28 , 159E4U10E4U4H4L4G4H4L4G4D4F 
4R5F4R6L6H4L5D3L5G2DF2R8D4G4D6U6 
E2BL2C2L4G4L2U2E4R4E2R2D2 

45  PAINT(14, 170) , 1, 1:PAINT(25, 14 
0) ,1,1: PAINT (25, 150) ,  3  , 1 :  DRAWBM 
18 , 149C2G2R2H2R2E2F2R8" : PM0DE4 , 1 
: DRAW"C0BM9 , 188U8F2E2D8BR3R3L3U4 
R2L2U4R3BR3BD8U6E2F2D3L4R4D3BR3U 
8F4U4D8BR3R2LU8LR2BR3R4L4D4R2L2D 
4R4 

46  PMODE3,1:DRAW"BM210,168C1R18H 
4E15H10G15H4D18U18R8E11R4F10L4R5 
G14L4R4F2G3": PAINT (215, 165) ,3,1: 
PM0DE4  , 1 :  DRAWBM2 10 , 188C0U6E2F2D 
3L4R4D3BR3U8R2F2DGL2F3DBR3U8R2F2 
DGL2F3DBR5H2U4E2RF2D4G2LBR6BU8D6 
F2E2F2E2U6 

47  PM0DE4 , 1 : DRAW"C0BM85 , 30E2R6G2 
L6R3G6BR8E8R3G8L3R3E5R4E3G8BR7R5 
E2L5G2E5R2L2E3R5BD8BR5R5E2L7D2U2 
E5RER5DBD7BLE8R3G8L3R3E3R5U5D5G3 
BR4E2R5G2L5R5E4UL3HE2R4DBR3BDE2R 
6G2L6R3G6 

48  DRAWBM82, 170E8R6G8L6E2R6BD2B 


R3E3R2L2E3R6E2L6G2E2R6BD8BR7R5E2 
L5G2E5R2L2E3R5BR3R2L2G4F2E6G6F2E 
8BD8BL3R4E2L4G2E2R2E6L2R4BD8BL2E 
8G8R5E2L5 

49  IFINKEY$=" "THEN49 

50  PM0DE4  , 1 :  SCREEN1 , 1 :  IFINKEY$=" 
"THENGOTO50 

51  PCLEAR4 : RUN" YELLOW 


52  PRINT@508 , "<E>" ; : IFINKEY$=CHR 
$ ( 13 ) THENRETURN  ELSEPRINT§508 , " [ 
E ] " ; : IFINKEY$=CHR$ (13) THENRETURN 
ELSEGOT052 

53  PMODE4,l:SCREENl,l:PMODE3,l:P 
CLS2 : IFINKEY$=" "THEN53ELSERETURN 


YELLOW 


0  GOSUB200: 'POKE65495,0 

1  •  ******************** 

2  '  *  YELLOW  SUBMARINE  * 

3  •*  PART  ONE  * 

4  * ******************** 

5  GOSUB177:CLS:FORK=8T02  31STEP3  3 
: PRINT@K, "YELLOW  SUBMARINE" : FORT 
=1T01:NEXTT:PRINT@K, » 

": NEXT: PRINT§K, "YELLOW  SUBM 
ARINE" ; 

6  FORK  =239  TO  200  STEP-1 : PRINT@ 
K, "YELLOW  SUBMARINE  " ; : NEXT : FORK 
=220  TO  234 :PRINT@K, "  WRITTEN  BY 
" ; : NEXT : T$="MARK  FETHERSTON" : Q= 
16 

7  FORT=277  TO  262  STEP-1 : FORK=2 5 
4  TO  T:Q$="  "+MID$ (T$,Q, 1) : PRIN 
T@K,Q$; : NEXTK: Q=Q-1 : NEXTT 

8  X=1:Y=1 

9  GOTO  171 

10  PMODE4,1:PCLS:PMODE3,1:BN=0 

11  CIRCLE (180, 70) ,30: DRAW"BM152, 
70E2F3R2U4F2D6F4R2E2RU9F2D4R2ER4 
E2F3BU9H5UE2RF3D5BD9RF2R2EFE2U4E 
U5E2FD20E5U2E2U2E2U2EBM165 , 95L10 
D10L10D10R70U10L60R50U10L10 

12  PAINT(180,50) ,0,0:PAINT(180,8 
0) ,3,0:PAINT(170,99) ,2,0:PAINT(1 
70,110) ,2,0 

13  PMODE4,1:DRAW"BM0,50E10R2D5F1 
0R2F5R4E10U5E5R2F5DF15R2E9U5E3U4 
EU9E2R2F2D4F5D4F10R4E2U2E20R2F40 
BR30E20R5F5D5F2R5F5R3E6 

14  CLS:PMODE4,l:SCREENl,l:IF  INK 
EY$=" "THEN14 

15  PRINT" YOU  SEE  FROM  THE  NORTH, 
A  BIRAGEOF  BLUE  ARROWS,   A  BATAL 

ION  OF       BONKERS,   AND,   WORST  OF 
ALL,   A       HUGE  BLUE  BALL  COVERING 
SGT.         PEPPERS  LONELY  HEARTS  C 
LUB  BAND!" 

16  BN=BN+l:IFBN>5THEN22  ELSEGOSU 
B  159 

17  IFC$="LOOK  BALL"THENPRINT"IT 1 


S  BLUE  GLASS  (MUST  BE  FROM  KEN 
TUCKY. ) ": GOTO 16 

18  IFC$="N"THENPRINT"ARE  YOU  KID 
DING,  THERE'S  A  MILLION  BIL 
LION  BLUE  MEANIES         COMING  THAT 

WAY! " :GOT016  ELSEIFLEFT$ (C$ , 4 ) = 
"HELP"THEN  PRINT" TRY  RUNNING. ":G 
OT016  ELSEIFC$="W"THENPRINT"I 'M 
SORRY,   THERE'S  WATER  THERE,  YOU' 
D  DROWN" : GOTO 16 

19  IFC$="GET  BALL" THENPRINT " S ORR 
Y,   A  TWELVE  FOOT  HIGH  BLUE  BALL 

IS  RATHER  DIFFICULT  TO  PUT  INTO 
YOUR  POCKET. ":GOT01 6  ELSE  IF  C$ 

="E"THEN  X=2 : Y=l:GOT0171  ELSEIFC 

$="S"THENX=1: Y=2 :GOT0171 

20  IFC$="PUSH  BALL"ORC$="MOVE  BA 
LL"THENPRINT" IT ' S  TOO  HEAVY.": GO 
T016  ELSE I FC$=" BREAK  BALL"THENPR 
INT" YOU  CAN'T  WITH  YOUR  BARE  HAN 
DS.":GOT016  ELSEIFC$="LOOK  BAND" 
THENPRINT" THEY  LOOK  FROZEN,  LIKE 

LITTLE  FISHES  INSIDE  A  BLUE  F 
ISHBOWL. ":GOT016 

21  PRINT" I  DON'T  UNDERSTAND" : GOT 
016 

22  PRINT "ONE  HUNDRED  MEANIES  COM 
E  AT  YOU, AND  A  BIG  BLUE  ARROW  LA 
NDS  ON       YOUR  HEAD.   NOW  YOU  FEEL 

VERY,       VERY  BLUE . " : GOT0174 

23  IFLM=1THEN28  ELSEPM0DE3 , 1 : PCL 
S :  DRAWBM0  ,  30C2R40BD2L40BD2R40BD 
2L40BD2R42C3D2R16E2U6R16E2H2L32G 
2D8BM120,70C0E4R20F4D40R10F4DG4L 
8BU9L10U44L6D44R6L19U40D40L10G4D 
F4R9U4E2R25F2D10F2D2G2D10F3D2G2L 
5H4L13G4L5H2U2E5R23FHL2  3G2U11HU3 
EU5BD28D4F6R7 

24  DRAW+"D5F2E2U5BL4ERFR7E6U4BU1 
2R20F2R10F5D5F5D10F2D2  7BM120, 13  6 
L20G2L10G5D5G5D10G2D27" : PM0DE4 , 1 
:DRAW"BM122 , 125E2R5F3D6G2D2E2D2F 
2RE2U2F2U2H2U6E3R5F2U2H2L6GDBL7U 
HL6G2BF3ER2FL4BR16ER2FL4BD19BL9F 
R4E 


25  PM0DE3,1: LINE (0,100) -(120, 100 
) ,PSET: LINE (150,100) -(255,100) ,P 
SET: PAINT (44, 32) , 3 , 3 : PAINT ( 139 , 8 
0) ,3,0: PAINT (105, 150) , 3,0: PAINT ( 
125,145) ,0,0:PAINT(135, 160) ,0,0 

26  DRAWBM107  ,  13 6D10F25C1E2R2F2D 
2L2D10R2D2L4U12L2UBR6BU3C0E2  3U10 
" : PM0DE4 , 1 : SCREEN1 , 1 

27  IFINKEY$=" "THEN27 

28  IFLM=0THENPRINT" YOU  SEE  AN  OL 
D  MAN,  WITH  A  LARGEBEARD,  AND  A 
KEY  HANGING  FROM  HIS  NECK,  PLA 
YING  THE  CELLO.  YOUKNOW  HE  IS  YO 
UR  LORD  MAYOR."  ELSEIFLM=1THENPR 
INT"YOU  SEE  MOUNTAINS." 

29  GOSUB159 

30  IFC$="ASK  KEY"ANDKY=1THENPRIN 
T" YOU'VE  ALREADY  GOT  IT.":GOT02  9 

ELSEIFC$=" HELP" THENPRINT "NONE  T 
0  GIVE.11: GOTO  29 

31  IFC$="N"THENPRINT"THERE 1 S  MOU 
NTAINS  AND  MEANIES,  NO  WAY  TO  G 
0  THAT  WAY.":GOT029  ELSEIFC$="S" 
THENX=2 : Y=2 : GOT017 1  ELSEIFC$="E" 
THENX=3:Y=l:GOT0171  ELSEIFC$="W" 
THENX=1 : Y=l : GOT017 1 

32  IFC$="GET  KEY"ORC$="GET  CELLO 
"ORC$="TAKE  CELLO "THENPRINT "MIND 

YOUR  MANNERS ,  PLEASE . . . " : GOT02  9 
ELSEIFC$="ASK  KEY"THENPRINT"HE  G 


RACIOUSLY  HANDS  YOU  THE  KEY . " : KY 
=1 :  PMODE3  , 1 :  DRAWBM107  , 136C3D10F 
25E2R2F2D2L2D10R2D2L4U12L2UR6U3E 

2  3U10" :PMODE4, l:GOT02  9 

3  3  IFC$="ASK  CELLO"THENPRINT"HE 1 
S  SORRY,  BUT  HE  WON'T  PART  WIT 
H  HIS  BELOVED  CELLO,  EVEN  FORMEA 
NIES. " :GOT029  ELSEIFC$=" CARRY  MA 
YOR"ORC$="GET  MAYOR" THEN  LM=1:PR 
INT"YOU  PICK  UP  THE  MAYOR,  AND  H 
IS  CELLO,  AND  TAKE  THEM  WITH  YO 
U. " :GOT029 

3  4  PRINT" I  DON'T  UNDERSTAND" : GOT 
029 

3  5  PM0DE4  ,  1 :  PCLS  :  DRAWBM0  ,  90C1E1 
0R5E2R2F2E5UE2RE4U2E2RF2R2E4U5EU 
3E3U2E2U3E2R2F2D2F3D2R2D3FD4F3DF 
2RF2D2F2R4F3DF2FR2E5F3R2E3R2E2RF 
3D2E2BR3  3E2U3E3R2E2U5EU3EU2RFD4F 
3D2FR2EF3DF2DFDR2E2RFD2F3R2DF2E2 
U2R2E3RE3RF2DF2R4E2F2R2F2DF2R2F4 
R2E2R2F6R2F5R5F16 

3  6  PMODE3,1:DRAW"BM120,20C0R5FD2 
0R4L16R4U20BEBR5DC3D18BD2BR2C0D1 
0G2L4H2U10D10F2L5G7D20F7BE3H4U14 
BU13BR12R5F7D20G4BH2BL2E3U13BD2  8 
D20L18U22D2  2R4D40L4G4DR13U40D40R 
14G3  2BL2  5E3  2BR2  5UH4L15R11U40 

37  CIRCLE(124,88) , 13,0, . 7 : PAINT ( 
122,90) ,3,0: PAINT (122, 80) ,2,0: PA 
INT (122, 100) ,2,0: PAINT (122, 120) , 
3,0: PAINT (100 ,190) , 3,0: LINE (0, 14 
0) -(118,140) , PSET: LINE (130, 140) - 
(255, 140) ,PSET 

38  DRAW"BM128,85C0RF2BM124,80C1U 
3E2"  :PM0DE4, 1 :  DRAWBM12 1 ,  45C1RBR 
2RBL2BD2DBD2LHFR2E 

39  PM0DE4 , 1 : SCREEN1 , 1 : IFINKEY$=" 
"THEN39 

40  BN=0 

41  PRINT"OOPS,  YOU  SEE  FOUR  BONK 
ERS  RIGHTIN  FRONT  OF  YOU  (YOU'RE 

AS  GOOD  AS  DEAD).   YOU'RE  ALSO  S 
URROUNDEDBY  MOUNTAINS  AND  GREEN 
APPLES . " 

4  2  BN=BN+1 : IFBN>3THENGOT04 6  ELSE 
GOSUB159 : IFLEFT$ (C$ , 8 ) ="GET  APPL 
"ANDAP=0THENPRINT"O . K. ,  YOU'VE  G 
OT  A  BIG  GREEN  APPLE  IN  YOUR 
HANDS. " :AP=l:GOT042  ELSEIFC$="W" 
THENX=2 : Y=l : G0T017 1  ELSEIFC$="HE 
LP"THENPRINT"I ' D  RUN.":GOT042 

4  3   IFLEFT$(C$,8)="GET  APPL"ANDAP 
=1THENPRINT"D0N ' T  BE  GREEDY,  YOU 
ALREADY         HAVE  ONE .": GOTO  42 

44  IFC$="N"ORC$="S"ORC$="E"THENP 
RINT "MOUNTAINS,    STUPID. ": G0T04 2 

45  PRINT"I  DON'T  UNDERSTAND .": GO 
T042 


46  PRINT" SUDDENLY,  YOU  STEP  TOO 
CLOSE  TO  A  BONKER  AND  POW! ! ,  AN 
APPLE         LANDS  ON  YOUR  HEAD,  AND 

YOU  FEELVERY  BLUE  "  :  GOTO 

174 

47  PMODE4  , 1 :  PCLS  :  DRAWBM10  , 192E6 
0R115F60H60L10H30L35G30"  :T=110:T 
1=145  :  FORK=104TO130STEP3  :  LINE  (T, 
K) - (Tl , K) , PSET : T=T- . 5 : T1=T1+ . 5 : N 
EXTK: T=90 :  Tl=165  :  FORK=134TO190ST 
EP3 : LINE (T, K) - (Tl , K) , PSET: T=T- . 7 
:T1=T1+.7:NEXTK 

48  LINE (0,0)-(256,192) , PSET, B: LI 
NE  (11^1, 102)  -(105, 131)  ,  PSET:  LINE  ( 
145, 102) -(150,131) , PSET: LINE (90, 
131) -(76, 192) , PSET: LINE (165, 131) 
- (178 , 192 ) , PSET : PMODE3 , 1 : DRAW'BM 
120 , 97C2D2R4FR6EUH2L2UL2DLGL2 

49  PMODE  4,1:SCREEN1,1:IFINKEY$= 
11  "THEN4  9 

50  BN=0 

51  PRINT"YOU  ARE  AT  A  HUGE  STAIR 
CASE  GO-  ING  UP  INTO  THE  SKY,  ON 

THE  TOP  IS  THE  UGLIEST  LITTLE  Y 
ELLOW         SUBMARINE  YOU  HAVE  EVER 
SEEN. . . " 

52  GOSUB159 : IFC$="CLIMB  STAIRS"0 
RC$="UP"THEN55  ELSEIFC$="N"THENX 
=1 : Y=l : GOT0171  ELSEIFC$="S"THENP 
RINT"YOU  CAN'T  GET  PAST  THE  STAI 
RS  . " : GOT052  ELSEIFC$="W"THENPRIN 
T" THERE  IS  AN  OCEAN  THERE,  YOU'D 

DROWN. ": GOTO 5 2  ELSEIFC$="E"THE 
NY=2 :X=2 :GOT0171 

53  IFC$="GO  STAIRS "THENPRINT" YOU 
•RE  ALREADY  THERE . "ELSEIFC$="HEL 
P " THENPRINT " THE  STAIRS  LOOK  VERY 

NICE. " :GOT052 

54  PRINT" I  DON'T  UNDERSTAND" : GOT 
052 

55  PRINT"YOU  ARE  AT  THE  TOP  OF  A 
HUGE         STAIRCASE,   STANDING  IN 

FRONT  OF  A  SUBMARINE,   LOOKING  DO 
WN  ON         PEPPERLAND.   YOU  SEE  SIX 
BONKERS  HEADING  THIS  WAY!" 

56  BN=BN+1 : IFBN=5THEN4 6  ELSEGOSU 
B159 

57  IFC$="GO  SUB"AND  OP=0  THENPRI 
NT"YOU  CAN'T  OPEN  THE  SUB  DOOR." 
:G0T056  ELSEIFC$="D"THEN51  ELSEI 
FC$="GO  SUB"AND  0P=1  THEN60  ELSE 
IFC$="OPEN  SUB"ANDKY=0ORC$="OPEN 

DOOR"AND  KY=0  THENPRINT" YOU  DON 
•T  HAVE  THE  KEY.":G0T056 

58  IFC$="OPEN  SUB"AND  KY=10RC$=" 
OPEN  D00R"ANDKY=1THEN0P=1 : PRINT" 
THE  OLD  DOOR  CREAKS  OPEN...": GOT 
056  ELSEIFC$="DROP  MAYOR" THENPRI 
NT "THE  LORD  MAYOR  PLOPS  TO  THE 


GROUND" :G0T05 6  ELSEIFC$="HELP 
"THENPRINT "I  DON'T  KNOW. ": GOTO 5 6 

59  PRINT" I  DON'T  UNDERSTAND" : GOT 
056 

60  IFLM=1THENPRINT"AS  YOU  GO  IN, 
THE  LORD  MAYOR         SAYS : ' YOU  MUS 

T  GET  HELP,  I'M  GETTING  TOO  0 
LD  FOR  THIS  SORT  OFTHING.  REMEMB 
ER:  h  IS  FOR  HURRY, e  IS  FOR  ERGE 
NT,  1  IS  FOR  LOVE  ME  AND  p  IS  F 
OR  PLEASE,  HELP!!'  AS  HE  SPEAKS, 
A  BONKER  COMES  "; 

61  IFLM=1THENPRINT"  FROM  BEHIND, 
A  DROPS  A  BIG  GREENAPPLE  ON  HIS 
HEAD.   HE  TURNS  AN     UGLY  SHADE  0 

F  BLUE  AND  FREEZES.  THE  DOOR  CLO 
SES  BEHIND  YOU." 

62  PRINT"YOU  ARE  IN  A  DARK  SUBMA 
RINE.  BUTSUDDENLY  THE  PLACE  COME 
S  TO  LIFEAND  ENGINES  WHIRL  AND  Y 
OU'RE  OFF" 

63  GOSUB173 :CLS2 :K$="  

 5. . .4.  .  .3.  .  .2.  . .1.  . .0. . . 

" : F0RK=1T04  3 : F0RT=1T09 0 : NEXTT : PR 
INT@198,MID$(K$,K,20) ; :IFMID$(K$ 
, K, 1) =" . "THENNEXTK  ELSES0UND1 , 1 : 
NEXTK 

64  FORK1=1TO3:FORK=8TO0STEP-1:CL 
SK:PRINT@204 , "blast"+CHR$ ( 12 8 ) +" 
off" ; :FORT=1TO20: NEXTT: NEXTK : NEX 
TK1 : X=l : Y=4 : G0T017 1 

65  PMODE3,l:PCLS:COLOR2,3:FORK=6 
0TO100STEP2 : LINE (255, K) -(165, K), 
PSET : NEXTK: DRAW" BM1 6 4 , 100C3G8L30 
H2L30H4U4E4H4U4E4R4E6L12H4U4E4L5 
0H4U4E4R80E2R30F10D40U40H10L20 

66  PAINT (160, 90) ,3,3: DRAW+"C1G10 
L14G4D4F4R30F10R10L15G16D4G4E4U4 
H4L30R30E4U4H4L30U5R30E4BU10BL2  4 
L12G2BD16BR2C0U4BR4D4BR4BU2U2BU1 
0BR12U6D6H2U2E2R10L8D2C1D2 

67  PMODE 4 , 1 : SCREEN1 , 1 : IFINKEY$=" 
"THEN67 

68  PRINT"YOU  ARE  FACE  TO  FACE  WI 
TH  A  GIANT,  BLUE  FLYING  GLOV 
E.  AT  THESIGHT  OF  YOU,  HE  CLENCH 
ES  HIS  FIST,  READY  TO  SMASH  YO 
U.  " 

69  GOSUB159 : IFC$="N"THENX=2 : Y=l : 
G0T0171  ELSEIFC$="W"THENX=1: Y=2 : 
G0T0171  ELSEIFC$="E"ORC$="S"THEN 
PRINT" YOU  CAN'T  GET  PAST  THE  GLO 
VE         <CRUNCH>  SUDDENLY,    YOU  FAL 

L  INTOA  DEEP,   BLUE  SLEEP  

 ":GOSUB  173 :X=3 : Y=1:G0T0171 

70  IFC$="HELP"THENPRINT"TRY  RUNN 
ING.":GOT069  ELSEPRINT"I  DON'T  U 
NDERSTAND" : GOT069 

71  CLS:PRINT@203 , "liverpool" : PCL 


S:PM0DE3,1 

72  DRAWBM0, 102R30D90U90F20D20L1 
0D50U50R40D50U50F20D30U30H10U60R 
10U30R20D130U130F10D120U20R20U10 
0H5U20E10R10F20D20G5D50L10U60E5U 
20BD85R40D60U60F20D10L10D30U30R2 
0D30U30F10 

73  PAINT(32,  178)  , 3 , 0 : PAINT ( 82 , 17 
8)  ,3,0: PAINT (122, 178)  ,  3,0: PAINT ( 
172, 100) ,3,0: PAINT (222, 178) ,3,0: 
PAINT (255, 178) , 3 ,0 : LINE (0 ,0) - (25 
6,192), PRESET , B : PM0DE4 , 1 : SCREEN1 
,1 

74  PLAY"04T3L3 . EL8F#GL4AL4GF#E03 
BL3  . G01L8ABGBF#BGBF#B04L3 .EL8F#G 
L4AL4GF#E03BL3 . G01L8ABGBF#BGBF#B 
03L8GABL4GEL8GABL404D03L804C#03B 
L404C#03L8BAL4BL8AGL2AL8GAB04L4C 
03B03L8GABL4GEL8GABL404D03L804C# 
03BL404C#03L8BAL4BL8AGL2AP8L8GAB 
04L4C03B 

75  PLAY"L4AL8GL4AL6BL4  GL4.EL8GO 
4L4E03L8BL4AL6GL2EL4AL8GL4AL6BL4 

GL4 . EL8GL404GL8E03L4BL6AL2G 

76  CLS: PRINT "YOU  ARE  FLOATING  OV 
ER  A  SAD,  SORRY  TOWN  CALLED. . 
..LIVERPOOL,  IN  ENGLAND,  YOU  THI 
NK.  YOU  HAVE  TO  FIND  HELP.": GOTO 
80 

77  GOSUB159:XE=INT(RND(4) ) :IFC$= 
"N"ANDXE=1THEN83  ELSEIFC$="S"AND 
XE=2THEN83  ELSEIFC$="E"ANDXE=3TH 
EN8  3  ELSEIFC$="W"ANDXE=4THEN8  3 

78  I FC  $ = " N " ORC $= " S " ORC $ = " E " ORC $ = 
"W'THEN  PRINT"YOU  ARE  ON  A  CORNE 
R,  JUST  LIKE  ANY  OTHER  CORNER." 
:GOTO  77  ELSEIFC$="HELP"THENPRIN 
T"FIND  HELP. " :GOT077 

79  PRINT" I  DON'T  UNDERSTAND" : GOT 
077 

80  'CORNER,   JUST  LIKE  ANY  OTHER 
CORNER. 

81  PM0DE4  , 1 :  PCLS  :  DRAWBM0  , 130R90 
U5L90R90E90D5G90E90U5L40R10BG10G 
60U105D105L30U50L20D50E5U45D4  5G5 
L30BU120BR140D45BM255 , 130L50U5R5 
0L50E50 

82  GOTO  77 

83  PM0DE4, 1: PCLS: DRAW" BM0, 130R50 
U80D80E6U80BR54BD6D60L54R54D20R1 
0BR18R12U80D80E6U80BR54BD6D60L54 
R54D20R50 

84  CIRCLE(80,50) ,30,1,1, .5,0:CIR 
CLE (86, 48) ,30,1,1, .54, . 7 : CIRCLE ( 
180,50) ,30,1,1, .5,0: CIRCLE (186, 4 
8) ,30,1,1, .54, .7:PAINT(52,80) ,1, 
1: PAINT (152, 80) ,1,1 

85  PMODE3,1:DRAW"BM130,90C3F3D2L 
4G2D2L4HU4E4R2BD10BL6D2C2R4DR4F1 


0R8D4L8H5D9G2L8F5G4H8U16E5" : PMOD 
E4 , 1 : DRAW+"BL3BD24C1M114 , 160M122 
, 162M128 , 13  3M145, 162M152 , 157M13  3 
,  123 

86  PM0DE3, 1: PAINT (130, 110) ,2,2:P 
M0DE4  , 1 :  DRAWBM132  ,  96F2D2L2DGL3U 
L5R2U4E2R4 " : PAINT ( 130 , 98 ) , 1 , 1 : DR 
AW"BM130,97C0RBD4BLER3BM150, 112R 
4FD3GL4BM129 , 132C1F3RE3UH3G3BU5C 
0H5U10BM114 , 160C1G2D4R4UR2F2R9EH 
L2HLH2LBM145 , 163DF3E3HE2R2E5UL2G 
2LG2" : PAINT (130, 132) ,1,1 

87  GOSUB172 

88  PRINT "YOU  CAN  SEE,  WALKING  TH 
ROUGH  THESTREETS,  A  SAD  MAN,  WIT 
H  A  SMALLMOUSTACHE ,  A  RATHER  LAR 
GE  (HUGE) NOSE,  AND  AT  LEAST  SEVE 
NTEEN  RINGS  ON  HIS  FINGERS.  H 
E  SEEMS  FAMILIAR  TO  YOU.  HE  IS 
WALKING     EAST . " 

89  G0SUB159 : IFC$="N"ORC$="S"ORC$ 
="W"THEN78  ELSEIFC$="E"THENX=4 : Y 
=4:GOT0171  ELSEIFC$="GET  MAN "ORC 
$="GET  RINGO " THENPRINT " YOU  CAN'T 

JUST  TAKE  HIM!" :GOT089  ELSE  IFL 
EFT$(C$,3)="SAY"  THENPRINT"HE  CA 
N'T  HEAR  YOU": GOTO  89 

90  IFC$="HELP" THENPRINT " NONE  TO 
GIVE. " :GOT089  ELSEPRINT"I  DON'T 
UNDERSTAND" : GOT089 

91  PMODE4/1:PCLS:DRAW"BM0,160R10 
0ER4E2RE3RE5RE10UE10U2E4U3E3U5E2 
U10EU10E2U2E4U2E4R2E4R2E2R4E2R10 
ER20FR60BL80U30R40D30R4U10R20D10 
U10R5D10U10H10L5F10H10G10BL4U20R 
15D10U10H20L15F20H20G20 

92  PAINT(239,55) , 1 , 1 : PAINT (220 , 3 
0)  ,  1, 1 :  DRAWBM30  , 160E5U5EUE2UE2R 
U2E2R2F2D2G2D2F2R3D2L4H3GD2F7R2F 
2L5H8L2D4G3" 

93  G0SUB172 

94  PRINT "THE  MAN  WITH  THE  ROBUST 
NOSE  TURNS  TO  SEE  A  FLOATING 
YELLOW  SUBMARINE  FOLLOWING  HIM 
DOWN  THESTREET   (I  CAN  ASSURE  YO 

U  HE  HAS  NEVER  SEEN  ONE  BEFORE) . 
IN  FEAR, HE  RUNS  TO  THE  TOP  OF  A 
HILL  ANDRUNS  INTO  A  HOUSE." 

95  GOSUB159 : IFC$="N"ORC$="S"ORC$ 
="E"ORC$="W"THEN97  ELSEIFC$="GO 
MAN"ORC$="GO  HOUS  E " ORLE FT  $ (C$,6) 
=" FOLLOW "THENX=1 : Y=5 : G0T017 1  ELS 
EIFC$="HELP"THENPRINT"TRY  A  HOUS 
E.":G0T095 

96  PRINT" I  DON'T  UNDERSTAND" : GOT 
095 

97  'LOST  ROUTINE 

98  X1=0: Y1=0:GOTO100 

99  IFX1=0ANDY1=0THENPRINT"YOU  SE 


8 


E  THE  HOUSE  THE  MAN  RAN  INTO." 
:GOT095  ELSEPRINT"YOU  ARE  AT  A  C 
ORNER,  JUST  LIKE  ANY  OTHER  CORN 
ER. " :GOSUB159 

100  IFC$="N"THENY1=Y1-1:G0T099  E 
LSEIFC$="S"THENY1=Y1+1:G0T099  EL 
SEIFC$="E"THENX1=X1-1 : GOT099  ELS 
EIFC$="W"THENX1=X1+1 : GOT099 

101  IFC$="HELP" THENPRINT" FIND  TH 
E  HOUSE. " :GOT099 

102  PRINT" I  DON'T  UNDERSTAND" : GO 
T099 

103  PMODE4 , 1 : PCLS : LINE (0 , 188) - (2 
56, 188)  , PSET: DRAW" BM30, 18 8U3R30D 
3U3H5L20G5E5U180BR20D180F5D3R130 
U3R30D3U3H5L20G5E5U180BR20D180BM 
80, 188U5R8  6D5U5L8  6R3U120R80D120L 
40U120":CIRCLE(12  3,62) ,40,1,1, .5 
,0: CIRCLE (123, 58) ,30, 1,1,. 5,0 

104  LINE(93,58)-(154,58) ,PSET:CI 
RCLE(115, 120) ,4:CIRCLE(130,120) , 
4 

105  GOSUB172 

106  PRINT"YOU  HOP  OUT  OF  THE  SUB 
,   AND  ARE  NOW  STANDING  IN  FRONT 
OF  A  LARGE DOOR." 

107  GOSUB159 : IFC$="N"ORC$="S"ORC 
$="E"ORC$="W"THENPRINT" YOU  CAN  1 T 

LEAVE  THE  SUB  ALONE .": GOTO 10 7  E 
LSEIFC$="GO  SUB"THENPRINT"YOU  HO 
P  IN  THE  SUB, " :GOT098  ELSEIFC$=" 
OPEN  DOOR" THENPRINT" YOU  CAN'T  OP 
EN  A  LOCKED  DOOR. ": GOTO 10 7 

108  IFLEFT$ (C$ , 4) ="KNOC"ORC$="SA 
Y  HELP"THENX=2 : Y=5 : GOT017 1  ELSEI 
FC$=" BREAK  DOOR" THENPRINT" A  BIT 
VIOLENT,    BUT  ALRIGHT.  AT  THE 

INSTANT  BEFORE  YOU  HIT  IT" ; : X=2 
:Y=5:GOT0171  ELSEIFC$="HELP"THEN 
PRINT"GO  INSIDE. " :GOTO107 

109  PRINT "I  DON'T  UNDERSTAND" : GO 
TO107 

110  PMODE4, 1 : PCLS l:COLOR0,l: DRAW 
"BM0, 192E120R15F120H120U20L15D20 
U20M0,0BM255,0M136, 50BM0, 192E10U 
140M+40,+8D92E10U80M+30,+6D44E5U 
38M+13 ,+2D2  3E3U19M+5,+lD12BM255, 
192H10U140M-40,+8D92H10U80M-30,+ 
6D44H5U38M-13 , +2D23H3U19M-5 , +1D1 
2 

111  LINE(0,0) -(256, 192) ,PSET,B:G 
OSUB172 

112  IF  CT=1THEN114  ELSEPRINT"THE 
DOOR  OPENS. ": PRINT" YOU  ARE  IN  A 
HUGE,   ENDLESS  HALL-WAY  WITH  AT 

LEAST  ONE  HUNDRED  DOORS.": GOTO 
114 

113  PRINT"YOU  ARE  IN  THE  HALLWAY 
. » : CT=1 : GOSUB173 : GOTO110 


114  IF  RG=1AND  JN=1AND  GE=1AND  P 
L=1THEN156  ELSEGOSUB159 : IFC$="N" 
ORC  $ = " S " ORC  $ = " E " ORC  $ = " W " ORC  $ = " LE 
AVE "THENPRINT "YOU  CAN'T,  THERE'S 

ONLY  DOORS. " :GOT01 14 

115  IFC$="GO  DOOR"ORC$="OPEN  DOO 
R"THEN  Q1=INT(RND(7) ) : ON  Ql  GOTO 
117,121,124,129,138,149,154  ELSE 
IFC$="HELP"THENPRINT"NONE  TO  GIV 
E . " : GOT0114 

116  PRINT" I  DON'T  UNDERSTAND" : GO 
T0114 

117  PMODE4, 1: PCLS 1:COLOR0, 1: DRAW 
"BM20 , 50D80E10U15BU35U10H10D20R1 
0ER10E2R20FR4F2R20FR10FR5F2D2G2L 
20GL20GL10G3L2G3DG2D2GD4FDFRFR5F 
R2F2DF3D2F2D2G2L3H2L2H2L2H2L3H2L 
4HL5HL11BM0,0F50R153E50G50D100F4 
0H40L153G40E40U40BU40U20 

118  PAINT(22,80) ,0,0:PMODE3, l:DR 
AW"BM100,78C1F5D2G2L3H3L20DL20G4 
L2G4 " : PAINT (90, 80), 3,1: LINE ( 120 , 
60) -(170, 120) ,PSET,B:DRAW"BM135, 
90R4E5R9F7D4L2G3L5H2L3H5L3H2" : CI 
RCLE(149,88) ,8,1,1,0, .5:PAINT(12 
2,62) ,1,1: PAINT (149, 88) , 2 , 1 : CIRC 
LE(149,88) ,2,l:PMODE4,l 

119  DRAWBM150, 180C0U30F10D30U10 
H10U5F10R50U15H10D15L50R50F10D10 
U6L50BM100 , 180U5EU3EU3HL5GLU2R8E 
3U3ER2F2R2FR4F2GL4HL2GD3FD2FD2LU 
2H3LD6FD5G2L5H" : LINE (0 ,0) - (256, 1 
92 ) , PSET , B : GOSUB172 

120  PRINT" YOU  OPEN  THE  DOOR  AND 
SEE  A  KINGSIZE  GORILLA  BREAK  A  W 
INDOW  AND  GRAB  A  SCREAMING  YOUNG 

GIRL.  YOU  CLOSE  THE  DOOR,  YO 

U  DON'T  WANT  TO  INTERRUPT  ANYT 
HING.":GOTO  113 

121  PMODE4, 1 : PCLS 1 : COLOR0 , 1 : LINE 
(0,0) -(256, 192) , PSET, B: CIRCLE (12 
8,96) ,8:CIRCLE(128,96) ,30:DRAW"B 
M0, 120R110D15R3  6U15R110L110D15F1 
0G27H27E10BU68BR10U20H5E3R18F3G5 
D20U20E5H3U10EU3E2RE4R2E2R4E2RE3 
U3E5U2EL50D2F3R2F2R5F3D4GD3G2LG3 
D2G2D4GD5" 

122  PAINT(128,2) , 0 , 0 : GOSUB172 

123  PRINT" AS  YOU  OPEN  THE  DOOR, 
A  HUGE         LOCOMOTIVE   (A  TRAIN)  B 
ARRELLS       TOWARDS  YOU.   YOU  SHUT 
THE  DOOR.    (IT'S  ALL  IN  THE  mind. 
) ":GOT0113 

124  1   STATUE  SEQUENCE 

125  PRINT" YOU  SEE  ONE  HUNDRED  ST 
ATUES,   OF  DIFFERENT  MOVIE  STARS 
AND  COMIC  BOOK  CHARACTERS." 

126  GOSUB159:IFLEFT$(C$,8)="GET 
S  TAT " ORLE FT  $ (C$ , 9) ="PUSH  STAT "OR 


LEFT$ (C$,9)="M0VE  STAT"THENPRINT 
"THESE  STATUES  ARE  RATHER  BIG.": 
GOTO 126  ELSEIFC$="HELP" THENPRINT 
"NONE  TO  GIVE":GOT0126 
127  IFC$="LEAVE"ORC$="GO  DOOR"TH 
ENPRINT"GOOD,  THIS  PLACE  IS  CREE 
PY. ":GOT0113  ELSEIFC$="LOOK  STAT 


UE " THENPRINT " THEY  1 RE  STONE . » : GOT 
0126 

128  PRINT "I  DON'T  UNDERSTAND. " : G 
OT0126 

129  IF  RG=1THEN115  ELSEPM0DE4 , 1 : 
PCLS1 :  C0L0RJ3 , 1 :  LINE  (J3  ,  ,0 )  -  (256  ,  19 
2 )  ,  PSET ,  B :  Tl=100  :  T2=15J3  :  FORK=50T 
O10J3STEP5  :  LINE  (Tl ,  K)  -  (T2  ,  K+5)  ,  PS 
ET , B : Tl=Tl-5 : T2=T2+5 : NEXT : DRAW'B 
M105,0D50R4j3U5j3D50BF55F20U12  5D12 
5R35BL255R31U125D125E2J3BM98, 192H 
10U3R8J3D3L80R80G10 

130  PAINT (110,1) ,0,0:DRAW+"BU13L 
18H4UH3U2HU4HU10EU2E2UE2RER2EUE2 
U3L30D3F2DFR2FRF2DF2D2FDlj3GD4GD2 
G3DG4" :GOSUB172 

131  PRINT" YOU  ARE  IN  AN  EMPTY  RO 
OM  WITH  A  FOUNTAIN  AND  A  STAIRCA 
SE." 

132  GOSUB159 : IFC$="HELP"THENPRIN 
T" DON'T  DRINK  THE  WATER. ": GOTO 13 
2  ELSEIFC$="GO  DOOR"ORC$="LEAVE" 
THEN113  ELSEIFC$=" DRINK  WATER "OR 
C $= " DRINK  FOUNTAIN " THENPRINT " THE 
RE'S  NONE  TO  DRINK. " : GOT013  2 

133  IFC$="LOOK  FOUNTAIN"ORC$="GO 
FOUNTAIN "THENPRINT "IT'S  CRYSTAL 

,   BUT  HAS  NO  WATER. " :GOT0132 

134  IFC$="LOOK  STAIRS "THENPRINT" 
THEY  GO  UP,": PRINT" AND  DOWN.": GO 


T0132  ELSEIFC$="MOVE  FOUNTAIN "OR 
C$="PUSH  FOUNTAIN "ORC$=" GET  FOUN 
TAIN"THENPRINT"IT  IS  WELL  SECURE 
D  IN  THE  GROUND" ; :GOT013  2  ELSEIF 
C $ = " BREAK  FOUNTAIN " THENPRINT "YOU 
•RE  TOO  VIOLENT. ":G0T013 2 

135  IFC$="CLIMB  STAIRS "ORC$=" GO 
STAIRS "ORC$="UP"THENPRINT"AS  YOU 

CLIMB  THE  STAIRS,  A  RED  CAR,  W 
ITH  BLUE  WHEELS,  BARRELLS  DOWN  T 
HE  STAIRS.  IN  IT  IS  THE  MAN  YO 
U  SAW  BEFORE.  HE  SAYS:":GOTO  137 

136  PRINT" I  DON'T  UNDERSTAND. ": G 
OT0132 

137  PRINT" 'AH,  YOUR  STORY  HAS  TO 
UCHED  ME  HEART.  ME  NAME  IS  RING 
0,  AND  I'LL  HELP  YOU  IF  YOU  L 
IKE . » " : RG=1 : G0T0113 

138  IF  JN=1THEN115  ELSEPM0DE4 , 1 : 
PCLSl:COLOR0,l:LINE(0,j3)-(256,19 
2)  ,PSET,B:DRAW"BM100, 120U30R5D30 
L5R5E5U25L15Ulj3R100Dlj3L9j3R80D30R 
5U30D3j3E5U25E20U10G20E2j3D10G5D25 
G5U2  5D2  5L5U20BG5BL8J3D15R5U15D15E 
5Ulj3BM2J30, 130G5R20E5DG5L20BE4BR3 
R10EL10FR4E1J3 

139  DRAW+"R2E2U2H2L2G2D2FG10BU2L 
6R19BM10 , 170R10J3U3L100D3U3E20R10 
0G2J3D3E20U3D3G4D40L3U33G2D31L15U 
20L3  D2  0L2U2 1L6 1D2 1L3U2 1L2  D2 1U2 1L 
15D21L3U21L2D21BE20BU10FR5E2U10H 
3U1J3L2D10G3D10F2BR2J3BD2E2U5H2U4L 
2D4G2D5F2R2BM110 ,  7J3H2U6E2R3D6F2R 
4G2L7R7E3R3U3D4F2R30U5L20BU3 

14J3  DRAW+"BL11E5RER35G2L20R16G6E 
6R4j3G3L30R3j3G3L40DR6FD2GL6R4j3U13 
E6R2D12U12G3D12U12G4D12E6BM108 , 6 
lE5R2G4E4Rlj3G4L7R7F2E4H2BM96,80E 
12BE8BR88R10"  :  PAINT (4J3, 16j3)  ,J3,0 

141  PAINT(109,64)  ,0 , j3 : GOSUB172 

142  PRINT"YOU  ARE  IN  A  ROOM  WITH 
THE  MON-  STER,   STRAPPED  TO  THE 

OPERATING  TABLE.  YOU  SEE  A  LEVER 
,  AND  A  DOZEN  BOTTLES  ON  A  TAB 
LE." 

143  G0SUB159 : IFC$="LEAVE"ORC$="G 
0  D00R"THEN113  ELSEIFC$="READ  BO 
TTLE " ORC $= " LOOK  BOTTLE " THENPRINT 
"THE  LABEL  SAYS" : PRINT" 1UCY  IN  T 
HE" : PRINT" SKY  WITH" : PRINT "dIAMON 
DS": PRINT" (THIS  HAS  NOTHING  TO  D 
0  WITH  CONTROLLED  SUBSTANCES. 
) ":GOT0143 

144  IFC$="DRINK  BOTTLE "THENPRINT 
"SUDDENLY,   YOU  FEEL  RATHER  SICK, 

IN  FACT,  YOU  FEEL  TERRIBLE .": GO 
T0174  ELSEIFC$="HELP"THENPRINT"D 
ON'T  DRINK  THE  WATER.": IF  RG=1TH 
ENPRINT " RINGO  IS  A  NATIVE  LIVERP 


OOLER. " :GOT0143 

145  IFC$="PULL  LEVER" THENPRINT"T 
HE  MONSTER  BREAKS  HIS  STRAPS,  A 
ND  TAKES  A  SIP  OF  ONE  OF  THE  B 
OTTLES.  SUDDENLY,  HE  CHANGES  I 
NTO  A  MAN  WITH  A  MOUSTACHE.  HE  S 
AYS:  1 RINGO ,  I'VE  JUST  HAD  THE  S 
TRANGEST  DREAM. » ; :GOT0147 

146  PRINT" I  DON'T  UNDERSTAND" GOT 
0143 

147  IF  RG=1THENPRINT" '": PRINT "RI 
NGO  SAYS:  'JOHN,  I  WARNED  YOU  NO 
T  TO  EAT  ON  AN  EMPTY  STOMACH.  CO 
ME  ON,  FRED'S  HERE,  AND  NEEDS  HE 
LP."  ELSEPRINT"  OH,  YOU'RE  NOT  R 
INGO,  YOU'RE  FRED.  I'M  JOHN. 
LET'S  SEE  ABOUT  THESE  MEANIES ,  S 
HALL  WE?" 

148  JN=1:G0T0113 

149  IF  PL=1THEN115  ELSEPM0DE4 , 1 : 
PCLS : SCREEN1 , 1 : PM0DE3 , 1 : C0L0R2 , 1 
: F0RK=1T085STEP4: CIRCLE ( 10, 10) ,K 
,2:CIRCLE(245,10) , K, 2 : NEXT : FORK= 
1TO20STEP4 : : LINE (K, 93 ) - (K+3 , 190) 
,PSET:LINE(255-K,93) -(252-K, 190) 
,PSET:NEXT 

150  PM0DE4 , 1 : DRAW"BM80 , 150C1U10R 
100D10E10U10G10E10U5E20D10G20E20 
U20H5L75G50D7R100G5D3E4G4L100U3R 
100L100E4BD7R6D4FD10R3U10EU4R77D 
4FD10R3U10EU4BM130, 135UE2R4ER8D4 
U4R8FR4F2DL30R15U40BR8D3  6L16U3  6H 
2U3C0R20L20C1H5U20E5R4EUH2U5EUE2 
RER4FRF2DFD5GDFR4F5D20G5 

151  PAINT (82 , 148) , 1, l:FORK=85T01 
70STEP3 : DRAW"BM"+STR$ (K) +" , 150C0 
E5" : NEXT 

152  PMODE4,l:GOSUB172 

153  PRINT"YOU  SEE  A  MAN  SITTING 
ON  A  PIANOAND  HE  does'nt  HAVE  A 
MOUSTACHE  1 HE  LOOKS  VERY  NICE,  EV 
EN  FOR  A     NONPEPPERIE.   HE  SAY'S: 

'WHAT'S  ALL  THIS  ABOUT  MEANIES 
?  I'M  PAUL-LET'S  GET  A  MOVE  ON! ! 
":PL=1:G0T0113 

154  IF  GE=1THEN115 

155  PRINT"YOU  SEE  A  MAN  PLAYING 
A  STRANGE  GUITAR   (TODAY  IS  SITAR 
DAT) ,    IN  APSYCHEDELIC  WONDERLAND 
.     YOU        HEAR  FROM  BEHIND  YOU:" 
: PRINT" ' YOU ' RE  NOT  PREPARED ,  ARE 

YOU?     IF  IT'S  BLUE  MEANIES  YOU 
WANT,     THEN  WE  MUST  HURRY" :GE=1: 
G0T0113 

156  PRINT" JOHN  SAYS:    'LET'S  SEE- 
JOHN,         PAUL,   GEORGE,   RINGO,  A 

ND  FRED-     YEP,   WE'RE  ALL  HERE.  L 
ET'S  SEE     WHAT  THE  TROUBLE  IS  IN 
PEPPER-     LAND.   THERE'S  A  DOOR  0 


UT  RIGHT  HERE. 1  YOU  WALK  OUTS ID 
E,  ENTER  THE  SUB,  AND  YOU'RE  OF 
F  TO" 

157  PRINT "PEPPERLAND  YOU  HOPE 

 " : GOSUB173 : CLS : PRINT"congra 

tulations-YOU  MADE  IT  TO     THE  HA 
LFWAY  MARK.   TO  GET  TO  PARTTWO,  F 
IRST  SAVE  YOUR  STATUS,   ANDTHEN  L 
OAD" YELL0W2 "    (DISK  USERS  DON'T 
WORRY" : X=l : Y=6 : GOSUB178 

158  IF  D=1THENL0AD"YELL0W2 . BAS" , 
R  ELSEEND 

159  'COMMAND  ROUTINE 

160  INPUT"WHAT  DO  YOU  DO";C$ 

161  IFC$=""THEN160  ELSEIFLEFT$ (C 
$,4)="KILL"THENPRINT"WE  DON'T  KI 
LL  IN  PEPPERLAND. .." :GOT0159ELSE 
IFLEFT$ (C$ , 3 ) ="NOR"  ORLEFT$ (C$ , 5 
)="G0  NO"THENC$="N"  ELSEIFLEFT$ ( 
C$,3)="S0U"  0RLEFT$(C$,5)="G0  SO 
"THENC$="S"  ELSEIFLEFT$ (C$ , 3) ="R 
UN"THENC$=MID$(C$,5) 

162  IFC$="RUN"THENINPUT"WHICH  DI 
RECTION" ; C$ : G0T0161  ELSEIFLEFT$ ( 
C$ , 3 ) ="WES"ORLEFT$ (C$ , 5) ="G0  WE" 
THENC$="W"  ELSEIFLEFT$ (C$, 3)="EA 
S"ORLEFT$ (C$, 5) ="G0  EA"THENC$="E 
it 

163  IFC$="L00K"ANDX=2ANDY=1ANDLM 
=1THENG0T028ELSEIFC$="L00K"THENG 
OSUB172 :GOT0159  ELSEIFC$="ASK  KE 
Y"ANDLM=1ANDKY=0THENPRINT"THE  LO 
RD  MAYOR  GRACIOUSLY  HANDS  YOU  TH 
E  KEY" :KY=l:GOT0159ELSEIFC$="ASK 

KEY"ANDLM=1ANDKY=1THENPRINT" YOU 
'VE  GOT  IT.":GOT0159 

164  IFC$="INVEN"THENGOSUB183 : GOT 
0  159  ELSEIFC$="SAVE"THENG0SUB17 
8: GOTO  159  ELSEIFC$="LOAD"THENG0 
SUB195 : G0T0159  ELSEIFC$="QUIT"TH 
ENINPUT"ARE  YOU  SURE" ; C$ : IFC$="Y 
"THENEND  ELSE159 

165  IFLEFT$(C$,3)="PUT"THEN167 

166  RETURN 

167  IFRIGHT$ (C$ , 3 ) ="KEY"ANDKY=1T 
HENPRINT"IT  BREAKS  AS  YOU  PUT  IT 

DOWN" :KY=0:GOTO159  ELSEIFRIGHT$ 
(C$,5) = "MAYOR" ANDLM= 1THENPRI NT " 0 
. K. " : LM=0 : GOT0159  ELSEIFRIGHT$ (C 
$ , 4 ) ="HOLE"AND  H0=1THENPRINT"THE 

HOLE  FALLS  ON  THE  GROUND  ANDDIS 
SAPEARS . " : HO=0 : GOTO 

168  IFRIGHT$(C$,6)="WRITER"ANDTY 
=1THENPRINT" IT  SMASHES  ON  THE  GR 
OUND. " :GOT0159  ELSEIFLEFT$ (C$ , 8 ) 
="PUT  APPL"THENPRINT" IT  TURNS  TO 

MUSH  ON  THE  GROUND . " ; : GOT0159  E 
LSEIFRIGHT$ (C$,4) ="ROPE"THENPRIN 
T"AS  IT  TOUCHES  THE  GROUND, IT  RO 
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TSAWAY . " : RP=0 : G0T01 

169  IFRIGHT$(C$,4)="OUTS"THEN  CU 
«0:PRINT"THE  CUTOUTS  SMASH  ON  TH 
E  GROUND."; :GOT0159  ELSEIFRIGHT$ 
(C$, 5) ="MENTS"THENPRINT"THE  INST 
RUMENTS  BREAK. ":IN=0: GOTO  159  EL 
SEIFRIGHT$  (C$  ,  5)  =" FORMS "THENPRIN 
T"THEY  GET  ALL  MUDDY  AND  USEL 
ESS . " : UN-0 : GOT0117 

170  PRINT"YOU  DON'T  HAVE  IT  TO  P 
UT  DOWN." : RETURN 

171  IFX=1ANDY=1THEN10  ELSEIFX=2A 
NDY=1THEN23  ELSEIFX=3ANDY=1THEN3 
5  ELSEIFX=1ANDY=2THEN47  ELSEIFX= 
2ANDY=2THEN65  ELSEIFX=1ANDY=4THE 
N71  ELSEIFX=4ANDY=4THEN91  ELSEIF 
X=1ANDY=5THEN103  ELSEIFX=2ANDY=5 
THEN110 

172  PMODE4,l:SCREENl,l:IF  INKEY$ 
<> " " THENRETURNE LS  E 1 7  2 

173  PRINT§508 , "<E>" ; : IFINKEY$=CH 
R$( 13 )THENPRINT: RETURN  ELSE  PRIN 
T@508 ,  "  [  E  ]  "  ; : IFINKEY$=CHR$ (13 ) TH 
ENPRINT : RETURN  ELSEGOT0173 

174  GOSUB173:PRINT"WE'RE  SORRY  T 
0  ANNOUNCE  THAT  YOUHAVE  COME  TO 
THE  END  OF  YOUR  ADVENTURE.  YO 
U  HAVE  FAILED,  BUT  WHO  KNOWS?  pe 
rhaps  SOMEONE  ELSE  ESCAPED  PEPPE 
RLAND,  perhaps  THE  BEATLES  CAN  S 
AVE  PEPPERLAND  ON     THEIR  OWN." 

175  PRINT" BUT,  IT'S  NOT  THAT  BAD 
.  LOOK  ON  THE  BRIGHT  SIDE-BLUE  I 
S'NT  that  BAD  OF  A  COLOR  

it . 

176  F0RK=1T0512 : FORT=1TO10 : NEXTT 
:PRINTCHR$ (175) ; : NEXTK: CLS3 : PRIN 
T@11,"TRY  AGAIN"; : INPUTC1$ : IFC1$ 
="Y"THENRUN  ELSEEND 

177  PMODE4,l:SCREENl,l:PMODE3,l: 
PCLS2 : IFINKEY$=" "THEN177ELSERETU 
RN 


178  'SAVE  ROUTINE 

179  INPUT"tAPE  OR  dISK" ; D$ : IFD$= 
"T"THEN  D=-1ELSEIFD$="D"THEN  D=l 
ELSE179 

180  INPUT" FILENAME"  ;  F$ :  OPEN"0"  ,  # 

D,  F$ 

181  PRINT#D,X, Y,LM,AP,KY,HO,RG, J 
N , PL , GE , JE , TY , EG , DR , RP , CU , WN , IN , 
UN 

182  CLOSE  #D: RETURN 

183  '  INVENTORY 

184  PRINT"  inventory": 

185  PRINT"YOU  HAVE:": IF  KY=1THEN 
PRINT "A  GOLD  KEY." 

186  IFLM=1THENPRINT"Y0UR  LORD  MA 
YOR.  " 

187  IFAP=1THENPRINT"A  GREEN  APPL 

E.  " 

188  IFH0=1THENPRINT"A  HOLE  IN  YO 
UR  POCKET." 

189  I FT Y= 1THENPRINT " A  TYPEWRITER 
it 

190  I FRP= 1THENPRINT "A  ROPE." 

191  IFCU=1THENPRINT"A  CUTOUT  OF 
BLUE  PERSON." 

192  IFIN=1THENPRINT"BAND  INSTRUM 
ENTS . " 

19  3  I FUN= 1THENPRINT "MI LITARY  UNI 
FORMS . " 

194  RETURN 

195  'LOAD  ROUTINE 

19  6  INPUT" tAPE  OR  dISK" ; D$ : IFD$= 
"T"THEND=-1  ELSEIFD$="D"THEND=1 
ELSE196 

197  INPUT "FILENAME" ; F$ : OPEN"I" , # 
D,F$ 

198  INPUT # D , X , Y , LM , AP , KY , HO , RG , J 
N,PL,GE, JE,TY,EG,DR,RP,CU,WN,IN, 
UN 

199  CLOSE #D: RETURN 

200  PCLEAR4:GOT01 


r-  YELLOW2 

0  'POKE65495,0 

1  •  ******************** 

2  '*  YELLOW  SUBMARINE  * 

3  '*           PART  TWO  * 

4  ********************* 

5  GOSUB13  9 : DIMA2 (23,12): CLS : PRIN 
T@200, "YELLOW  SUBMARINE" : PRINT @ 2 
40, "PART  TWO": PRINT: PRINT "LOAD  S 
TATUS" :GOSUB156:GOT013  2 

6  PMODE4, 1:PCLS: CIRCLE ( 128, 80) ,3 

0:  CIRCLE  (128,  80)  ,  33  :  DRAWBM128  ,  8 
0C1U25D25E15BM0, 192C1E50R27D10U3 
0R100G10D30U30L80D30U30H10D30F10 
R80E10U30D20R27F50H50U120M255,0B 
M203 , 21L153D120U120M0,0" : PAINT (1 
28,130) ,1,1 

7  PMODE3,1:FORK=85TO170STEP9:DRA 
W"BM"+STR$ (K) +" , 123C"+STR$ (INT (R 
ND(3) ) )+"F2R2E2L6" : NEXT : FORK=90T 
0165STEP9 : DRAW"BM"+STR$ (K) +" , 127 
C"+STR$(INT(RND(3) ) ) +"F2R2E2L6" : 
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NEXT 

8  PM0DE4 , 1 : SCREEN1 , 1 : IFINKEY$=" " 
THEN7 

9  1 

10  X1=0  :  Y1=0  :  PRINT"  YOU  ARE  FLOAT 
ING  IN  A  BLACK  AND  DARK  SEA.  IN 
SIDE  OF  THE  SUB  IS  AN  ARRAY  OF  B 
UTTONS,  A  BIG  LEVERAND  A  HUGE  CL 
OCK,  WHICH  IS,  AT  THE  MOMENT,  G 
OING  BACKWARDS." 

11  FORBN=1TO20:IFQ=9THEN12  ELSEI 
FBN>5ANDBN<10THENPRINT"YOU  AND  T 
HE  FOUR  SEEM  YOUNGER."  ELSEIFBN> 
9 ANDBN< 1 5THENPRINT " THE  FOUR  ARE 
NOW  CHILDREN."  ELSEIFBN>14THENPR 
INT" YOU  ARE  NOW  A  YOUNG  BOY,  AT 
THISRATE  YOU'LL  SOON  DISAPPEAR  0 
UT     OF  YOUR  OWN  EXISTANCE!" 

12  IFX1>5THENX1=5ELSEIFXK-5THEN 
X=-5ELSEIFYl>5THENYl=5ELSEIFY<-5 
THENX=-5ELSEIFX1=-1ANDY1=3ANDQ=9 
THENX=2 : Y=6 : GOT013  2 

13  GOSUB120:IFLEFT$(C$, 10)="TURN 
CLOCK"ORC$="FIX  CLOCK"ORC$="GET 
CLOCK" THENPRINT" SUDDENLY,   THE  C 

LOCK  SPINS  FOR-     WARDS,   AND  EVER 
YTHING  RETURNS  TONORMAL. 11 :  PRINT" 
JOHN  EXPLAINS : ' IN  MY  HUMBLE 
OPINION,   WE  HAVE  BEEN  CAUGHT  IN 
»; :GOT017 

14  IFC$="PRESS  BUTTON " THENPRINT " 
SOME  LIGHTS  FLASH,  BUT  NOT  MUCH 
ELSE  HAPPENS. ": GOTO 16  ELSEIFC$=" 
N"THENX1=X1+1 : GOT016  ELSEIFC$=" 
S"THENX1=X1-1 : GOT016  ELSEIFC$="E 
"THENY1=Y1+1 : GOT016  ELSEIFC$="W" 
THENY1=Y1-1 : GOT016 

15  PRINT" I  DON'T  UNDERSTAND. ": IF 
Q=9THEN12 

16  IFQ=9THEN12  ELSE  NEXTBN: PRINT 
"SUDDENLY,   EVERYTHING  SEEMS  TO 

SLIP  AWAY,   AND  YOU  CAN'T  SEEM  T 

OREMEMBER  ANYTHING  

.":GOTO  136 

17  PRINT"EINSTIEN'S  TIME/SPACE  C 
ONTINOUM  THEORY,  RELATIVELY  SPEA 
KING , THATIS . '" : GOSUB13  5 : Q=9 : GOTO 
12 

18  PMODE4,1:PCLS:DRAW"BM80,80R4F 
R3F2D4G2D5GDG2L5H2UH2U4H2U4E2R3E 
BD12BL3EU3ER6FD3F5R4E2R4E10RE5F5 
HE2U2EU2E3ULG8F6G10LG15D20F15R2F 
15G6EF6RF2R2EU2H2UH6G6H20L2H8L2H 
L8GL2G10D11H8U10E10UEU15L2G10L14 
BU8BL4R13E18RE2RE2BM73 , 130FR3FR1 
4ER3E 

19  PAINT (80, 90) ,1,1: PAINT (120,80 
)  ,  1, 1:  DRAWBM126  ,  72R2F2G2EF2G3DG 
3L2BM79 , 90C0RBR3RBD5BL4ER2FL4FR2 


EBD4C1G2L2U2D2G5ER3U2E4G4D2F5D4L 
2H7 

20  COLOR1,0:CIRCLE(128,96) ,89:LI 
NE (40, 96) -(80,96) , PSET : LINE ( 115 , 
96)-(217,96) ,PSET 

21  GOSUB134 

22  PRINT "THE  SUBMARINE  IS  NOW  OV 
ER  A  VERYSTRANGE  PART  OF  THE  SEA 
.  THERE  ARE  STRANGE  AND  WONDERF 
UL  CREAT-URES  EVERYWHERE.  AS  YO 
U  WATCH,   RINGO  PRESSES  THE  PANIC 

BUTTON,  FLIES  OUT  THE  BACK  HATC 
H,  AND  LANDS  ON  TOP  OF  A  CYCLO 
PS   (BUT     ITS  GOT  TWO  EYES;"; 

23  PRINT"  MUST  BE  A  BICYCLOP 
S) .  WHAT'LL  THE  BEATLES  DO  (LEAR 
N  TO  SING  TRIOS?) ": PRINT "SAVE  HI 
M!":RG=0 


24  X2=0:Y2=0 

25  IFX2=3ANDY2=4THEN30  ELSEIFX2= 
0ANDY2  =  1THEN3 9  ELSEIFX2>5THENX2  = 
5ELSEIFX2<-5THENX2=-5ELSEIFY2>5T 
HENY2=5ELSEIFY2<-5THENY2=-5  ELSE 
GOSUB120 

26  IFC$="N"THENY2=Y2+l:GOT025  EL 
SEIFC$="S"THENY2=Y2-1 : GOT025  ELS 
EI FC$= " E " THENX2  =X2 + 1 : GOT02 5  ELSE 
IFC$="W"THENX2=X2-1 : GOT025  ELSEI 
FC $= " PRES S  BUTTON "THENPRINT " THE 
SUB  DOES  A  BACKFLIP,  BUT  NOTH 
ING  SPECIAL. ":GOT02 5 

27  IFC$="HELP"THENPRINT"FIND  RIN 
GO  (SUCKER) .":GOT025ELSEIFC$="GE 
T  RINGO "THENPRINT "YOU  DON'T  EVEN 

KNOW  WHERE  HE  IS . " : GOT025ELSEIF 
C$=" FOLLOW  RINGO"THENPRINT"HE  JU 
ST  RAN  AWAY,   YOU  CAN'T  SEE  WHERE 

HE  WENT. " :GOT025 

28  IFC$="FIND  RINGO"THENPRINT"EA 
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SY  FOR  YOU  TO  SAY . " : GOT02 5  ELSEI 
FLEFT$ (C$,4) ="LAND"THENPRINT"NO , 
YOU  CAN'T  GO  ON  FOOT. " : GOT025 

29  PRINT" I  DON'T  UNDERSTAND" : GOT 
025 

30  PM0DE4, 1:PCLS: CIRCLE (12 8,96) , 
90  :  DRAWBM128  ,  60C1H3U2RF2U5ER2D2 
U2R2FD7FD20U20L5GD19G3D6U6E3R8F2 
D3L10D4L2R2D3F3R6U2L3U3R3UR2UH2U 
BL13BD5G2D15F10EF4RE3UH4G4E5H8U1 
0BR5F3D14BD10D2F10D5G15H6L2G3F2E 
F2D2F6REUH4U2H6E10UH10U5R12L12U1 
0" 

31  PAINT(130,90) , 1, 1:DRAW"BM137, 
87C0LBM45,90C1R4F2G2L4E2H2R4F2R2 
0U2F2R2L2G2U2BM50 , 135ER4ER5ER6ER 
7ER8ER9ER12ER14ER2BE3BR11R5ER8ER 
7ER6ER4ER4ER2E2R2E3RE4RE5RE4UE3U 
E3UE3U2E2 

32  GOSUB134 

33  PRINT "YOU  HEAR  A  LOUD  SCREAM 
•HELP',     AND  SEE  POOR  RINGO  ON  T 
HE  BACK     OF  A  BICYCLOPS,   BEING  C 
HASED  BY  SOME  INJUNS." 

34  IFX2=0ANDY2=1THEN39  ELSEIFX2> 
5THENX2=5ELSEIFX2<-5THENX2=-5ELS 
EIFY2>5THENY2=5ELSEIFY2<-5THENY2 
=-5 

35  GOSUB120:IFC$="N"THENY2=Y2+1: 
GOT025  ELSEIFC$="S"THENY2=Y2-1:G 
OT025  ELSEIFC$="E"THENX2=X2+1 : GO 
T025  ELSEIFC$="W"THENX2=X2-l:GOT 
025  ELSEIFC$="GET  RINGO" THENPRIN 
T"EASY  FOR  YOU  TO  SAY.":GOT03  4 

36  IFC$="GO  RINGO"ORC$=" FOLLOW  R 
INGO"ORC$="FIND  RINGO "THENPRINT" 
HE ' S  HERE" : GOT034ELSEIFC$="PRESS 

BUTTON " ORC $= " PULL  LEVER" THENPRI 
NT "YOU  HEAR  A  BLARING  OF  TRUMPET 
S  AND  SUDDENLY  THE  CAVALRY  EXIT 
S  THE  SUB,  AND  RETURNS  WITH  RIN 
GO" : RG=1 : G0SUB13  5 : GOTO 3 9 

37  IFC$="SEND  CAVALRY "THENPRINT" 
YOU  NEED  TO  FIND  A  BUTTON  FOR 
THAT. ":GOT034  ELSEIFC$="HELP"THE 
NPRINT"DO  LIKE  A  WESTERN .": G0T03 
4 

38  PRINT"I  DON'T  UNDERSTAND" : GOT 
034 

39  PM0DE4 , 1 : PCLS : : PM0DE3 , 1 : CIRCL 
E(98,46) ,10, 3, 1.5: CIRCLE (100, 46) 
, 5 : PM0DE3 , 1 : DRAW" BM 10 8 , 40C3F5RF2 
R2F2R3E2R3FRF2RF2D4F2R4F4D40L10D 
5L20U30G20H6E20U9E6L8G2" : PAINT (1 
10  ,  50 )  ,  3  ,  3  :  DRAWC1BM112  ,  58E2R4BM 
134, 69D34C0D3F2R4E2U3C1BM126,50E 
RBD20BL2C2G4L6F4G4 

40  DRAW+"R4E2R2F2R4H4E4L4U3C0BL3 
9BD22G3D2F3R2E3BR22BD11R24D50L22 


U50" : PAINT (126, 75) , 2 , 2 : PAINT ( 12 6 
,110) ,2,0 

41  DRAW"BM125,120C1D38C0G3L7G2D2 
R13E4R2D4R6U5H2L20G2L4G2D2R2BM14 
5,100C3R5E10R5E10U20H2L3G2D18G8L 
4G8L3 " : PAINT (147, 98), 3, 3: DRAW+"R 
2DC1D4" :PM0DE4, 1: CIRCLE (128, 98) , 
90: LINE (40, 80) -(100,80) ,PSET:LIN 
E (145, 80) -(165,80) , PSET : LINE ( 175 
,80) -(215,80) ,PSET 

42  GOSUB134 

4  3  PRINT  "YOU  ARE  FACE  TO  FACE  WI 
TH  THE  DREADED  VACCUM  SUCKER, 
WHICH  IS, AT  THE  MOMENT,  SUCKING 
UP  MONST-ERS  LEFT  AND  RIGHT.  UPO 
N  EYEING  YOU,  THE  SUCKER  TURNS, 
READY  TO  SUCK  YOU  INTO  OBLIVION 
(OR  EVEN  FURTHER!)" 

44  GOSUB120 : IFC$="HELP" THENPRINT 
"DO  THE  STRANGEST  THING  YOU  CAN 

THINK  OF.":GOT044  ELSEIFC$="GO 
SUCKER"THENX=3:Y=6:GOT013  2  ELSEI 
FC$="N"ORC$="S"ORC$="E"ORC$="W"T 
HEN4  6  ELSEIFC$="PULL  LEVER"ORC$= 
"PRESS  BUTTON "THENPRINT "NOTHING 
HAPPENS. ":G0T04 4 

45  PRINT" I  DON'T  UNDERSTAND .": GO 
TO  44 

46  IF  RG= 1THENPRINT " THE  ENGINE, 
SHE'S  PATTED  OUT !!": X=3 : Y=6 : GOTO 
132  ELSE26 

47  PM0DE4, 1:PCLS1: LINE (0,0) -(256 
,192) , PRESET, B:GOSUB134:GOTO  51 

48  DRAWBM88,  126C0U11H2U3E2R3F2D 
3GF10D3L14R14E10U3G10E10H10R6E2L 
G2L5G10E10U2H2L3G10BR3BF3F9EH9EF 
9EH9EF9EH9EF9EH9EF10BH10G10UE10U 
2G8H2E8BM118, 126R30E2U2EU6HU4H2U 
2H2LHL2HLH2UH2U3HU2H2UH3L2HL4GL2 
G2DG2F3DF3D2F2D3G5L5G2D2R2E2R5D2 
F2DF3RF2D2L6GL2G2BU34BHG 

49  DRAW+ "D5G4D2FR2E4D2G2F2BU9BRU 
2HLRBD2DBM151, 124F2R4E2U3H2L4G3F 
4EH4EF5EH4RF2 " : PAINT (90, 124), 0,0 
: PAINT (130, 124) ,0,0 

50  PMODE4,l:GOSUB134:GOTO  52 

51  PRINT" SUDDENLY,  THE  SUCKER  GR 
ABS  HOLD  OF  YOU,  AND  YOU  ARE  LOS 
T  IN  OB-  LIVION.  FORTUNATELY,  TH 
E  SUCKER  SEES  HIS  OWN  TAIL  AND  L 
OOSES  HIMSELF,  AS  WELL.":PRIN 
T"NOW  YOU'RE  NOWHERE .": G0SUB13 5 : 
GOTO  48 

52  PRINT"YOU  SEE  A  LITTLE  MAN,  W 
ELL  NOT  REALLY  A  MAN,  SITTING  I 
N  THE  MIDDLE  OF  NOWHERE,  TYPI 
NG  ON  A     TYPEWRITER.": PRINT "HE'S 

A  NOWHERE  MAN." 

53  GOSUB120 : IFC$="N"ORC$="S"ORC$ 


="E"ORC$="W"THENPRINT"YOU  CAN'T, 
THE  ENGINE  JUST  DIED" : GOT053  EL 
SEIFC$="FIX  ENGINE"THENPRINT" zap 
-YOU  SEEM  TO  HAVE  BURNED  YOURFIN 
GER,  BUT  THE  ENGINE  ISN'T  ANYBET 
TER.":GOT053 

54  I FC$=" HELP "THENPRINT" DON ' T  SH 
OW  YOUR  MOTORS  TO  ANY-  BODY  (BU 
T  THIS  IS  A  NOBODY) .":GOT05 3  ELS 
EIFC$="PRESS  BUTTON"ORC$="PULL  L 
EVER"THENPRINT"NOTHING. " :GOT053 

55  IFC$="GO  MAN"ORC$="GO  JEREMY" 
ORC$="GO  NOWHERE " ORLE FT  $ (C$ , 3 ) =" 
SAY "THEN 5 7  ELSEIFC$="GET  ENGINE" 
ANDEG=1THENPRINT" LOOK  IN  YOUR  PO 
CKET . " : GOTO 5 3  ELSEIFC$="GET  ENGI 
NE " THENPRINT " YOU  PUT  THE  ENGINE 
INTO  YOUR         POCKET   (IT'S  RATHER 

SMALL) . " : EG=1 : GOT053 

56  PRINT"I  DON'T  UNDERSTAND. ": GO 
T053 

57  'JEREMY 

58  PRINT "THE  MAN  SAYS :": PRINT" 'A 
D  HOC,  ADD  LOG,   AND  SID  PRO  QU 
O.   SO  LITTLE  TIME,   SO  MUCH  TO  KN 
OW!     OH,   HELLO! '   HE  HANDS  YOU  A 
CARD. " 

59  GOSUB120:IFC$="LOOK  CARD"ORC$ 
="READ  CARD " THEN PR I NT " I T  SAYS:  ' 
JEREMY  HILLARY  BOOB  PHD.  (EMIN 
ANT  PHYSICIST,  POLY-  GLOBTOLOGI 
ST,  LOUSY  POET,  BRIL-  LIANT  SATR 
1ST,  GOOD  DENTIST,TOO.":GOT059 

60  IFC$="HELP"  THENPRINT  "DON '  T  S 
HOW  YOUR  MOTORS  TO  JUST  ANYBODY 

(BUT  THIS  IS  A  NOBODY. ) ":GOT05 9 
ELSEIFC$="PUT  ENGINE"ORC$="SHOW 
ENGINE"ORC$="FIX  ENGINE "THENPRI 
NT "JEREMY  SAYS:   AH,   I'VE  NEVER  S 
EENONE  OF  THESE,   BUT  I'M  SURE  I 
CAN"; : GOTO 6 3 

61  IFC$="GO  SUB "THENPRINT "JEREMY 
,  THE  NOWHERE  MAN,  DECIDESTO  COM 
E  WITH,  SO  YOU  CAN  TAKE  HIM  SO 
MEWHERE" : GOTO 6 4  ELSEIFC$="GET  TY 
PEWRITER"AND  TY=1THENPRINT" YOU ' V 
E  GOT  ONE ,  DON ' T  BE  GREEDY . " ; : GO 
T059 

62  IFC$="GET  TYPEWRITER"THENPRIN 
T" JEREMY  SAY'S:    'DON'T  WORRY,  WH 
ATI  HAVE  IS  YOURS.   I'VE  GOT  AN- 
OTHER ONE  TO  DO  MY  CHORES.": GO 

T059  ELSEPRINT"I  DON'T  UNDERSTAN 
D":GOT059 

63  PRINT"FIX  IT,   IF  IT'S  BROKEN. 
HE  PULLSIT  APART,   AND  PUTS  IT  B 

ACK  TO-  GETHER.  IT  WORKS! ":EG=2 
:GOT059 

64  IF  EG=2THENPRINT"THE  ENGINE  W 


ORKS  FINE. . .AND  YOU  ARE  OFF. . . " : 

PRINT "NOW  YOU ' RE  SOMEWHERE . " : 

X=4:Y=6:GOT0132  ELSEPRINT"THE  SU 
B  STILL  DOESN'T  WORK. " : GOT052 

65  PMODE4  , 1 :  PCLS1 : A$="C0EEUE3U2E 
2U3EU4HU2H2UH3UH2U2HU5EU4EU3E2UE 
2RER2ER12FR2F2DF3DF2D3G2LGDFRF4D 
2FDGL4HUDFR2D2FDGFD3GL3GDGD2FD4F 
D2F2DF2L10HL15GL6 

66  DRAW"BM10,100;XA$;BM42,88;XA$ 
;  BM80 ,  110 ;  XA$ ;  BM124 ,  70 ; XA$ ;  BM164 
,55;XA$;BM170,110;XA$;BM220,80;X 
A$; 

67  PMODE3,1:LINE(0,0)-(256,192) , 
PRESET,  B:  DRAWBM0, 120C1R40G40BD2 
0E50R50G60L40BR50E70R60F72BR4U10 
H40R40"  :  PAINT  (2  , 122 )  ,  3  , 1 :  PAINT  (2 
,180) ,3,1: PAINT (62, 180) ,3,1: PAIN 
T(253,175) ,3,1 

68  GOSUB134 

69  PRINT "YOU  ARE  NOW  OVER  THE  FO 
OTHILLS  OF  THE  HEADLANDS.  OH,  N 
O,  NOT  AGAIN!  SOMETHING  IS  WRO 
NG  WITH  THE  SUB,  BUT  IT'S  NOT  T 
HE  ENGINETHIS  TIME,  IT  MAY  BE  TH 
E  RUDDER." 

70  GOSUB120:IFC$="FIX  ENGINE "THE 
NPRINT"THAT ' S  NOT  THE  PROBLEM,  I 
T'S  A  BACK  RUDDER  THAT'S  DAMAGE 
D.":GOTO70  ELSEIFC$="GO  RUDDER" T 
HENPRINT"O.K. ,  THE  WHOLE  GANG  CO 
MES  WITH . " ; : RD=1 : GOT07 0  ELSEIFC$ 
= " HELP" THENPRINT " CHEWING  GUM  WIL 
L  DO  THE  JOB.": GOTO  70 

71  IFC$="FIX  RUDDER"AND  RD=0THEN 
PRINT "THE  RUDDER'S  IN  BACK.":GOT 
070  ELSEIFC$="FIX  RUDDER"AND  RD= 
1  THENINPUT " HOW " ; Cl$ : IFC1$="USE 
GUM"THENPRINT" JEREMY  TAKES  A  WAD 

OUT  OF  HIS       MOUTH  AND  SECURES 
THE  RUDDER.   ITWORKS,   BUT  ";:GOTO 
75  ELSE74 

72  IFC$="N"ORC$="S"ORC$="E"ORC$= 
"W" THENPRINT "YOU  CAN'T,  THE  SUB 
WON'T  MOVE.":GOTO70  ELSEIFC$="WA 
LK"THENPRINT"AS  YOU  EXIT  THE  SUB 
,  THE  RUDDER  WORKS  ";:GOT075  ELS 
EIFC$="PRESS  BUTTON "ORC$=" PULL  L 
EVER"THENPRINT"NOTHING" : GOTO70 

73  PRINT"I  DON'T  UNDERSTAND. ": GO 
TO70 

74  PRINT "THE  RUDDER  FELL  OFF,  AN 
D  IT  WILLNOT  STAY  ON.":GOTO70 

75  PMODE4,l:PCLSl:A$="C0E4U10F4R 
4E6U5E2U4EU2HU2HUH2LHL10GLG2DGD2 
GD2FD4F3D5FD10G5F5R12E5H5U10BU13 
HL2GBL4HL2GER2BF2D7FRBD2L2 

76  DRAWBM10, 100  ; XA$ ; BM42  ,  88  ; XA$ 
; BM80 , 110 ; XA$ ; BM124 , 70 ; XA$ ; BM164 


15 


, 55 ; XA$ ; BM170 ,  110 ; XA$ ; BM220 ,  80 ;  X 
A$; 

77  PM0DE3 , 1 : LINE (0 ,0) - (256 , 192 )  , 
PRESET, B: DRAW" BM0, 120C1R40G40BD2 
0E50R50G60L40BR50E70R60F72BR4U10 
H40R40"  :  PAINT  (2  , 122)  ,  3  ,  1:  PAINT (2 
,180) ,3,1: PAINT (62, 180) ,3,1: PAIN 
T(253,175) ,3,1 

78  GOSUB134 

79  PRINT "THE  SUB  FLIES  AWAY...": 
PRINT"YOU  ARE  NOW  STANDING  ON  A 
BLACK, FINE  DUST,  LOOKING  AT  FACE 
S  THE  SIZE  OF  YOUR  OLD  HOUSE  (AN 
D  THEYARE  STARING  BACK) .  YOU  ALS 
0  SEE  A  PILE  OF  ROPE . " : X1=0 : Y1=0 

80  GOSUB120 

81  IFX1>3THENX1=3 :GOT088  ELSEIFX 
1=-2ANDY1=0THEN89  ELSEIFX1=-3AND 
Y1=0THENX=1: Y=7:GOSUB132  ELSEIFX 
1<-3THENX1=-3:G0T088  ELSEIFY1>3T 
HENY1=3:G0T088  ELSEIFYK-3THENY1 
=-3:GOT088 

82  IFC$="N"THENX1=X1+1:GOTO80  EL 
SEIFC$="S"THENX1=X1-1 : GOTO80  ELS 
EIFC$="E"THENY1=Y1+1 : GOTO80  ELSE 
IFC$="W"THENY1=Y1-1:GOTO80 

83  IFC$="W"THENY1=Y1-1:GOTO80  EL 
SEIFC$="LOOK  DUST"THENPRINT" JERE 
MY  SHOUTS: 'THIS  IS' NT  QUITE  DUST 
,  IF  I  AM  PRECISE.  THIS  IS  ACOND 
IMUN   (A  WHAT?).   A  SPICE!  IT'S 

PEPPER. " :GOTO80ELSEIFC$="HELP"T 
HENPRINT"NONE  TO  GIVE . " : GOTO80 

84  IFC$="GET  ROPE "AND  RP=0THENPR 
INT"O.K. " :RP=1:GOTO80  ELSEIFC$=" 
LOOK  ROPE"THENPRINT"IT'S  A  ROPE. 
":GOTO  80  ELSEIFC$="GET  ROPE"AND 
RP= 1THENPRINT " YOU  HAVE  IT.": GOTO 
80 

85  IFC$="GET  SPICE"ORC$="GET  PEP 
PER" ORC$= " GET  DUST " THENPRINT " THE 

PEPPER  IS  WAFTED  THROUGH  THEAIR 
. " : PRINT "ACHOO ! " : PRINT "ACHOO ! !  F 
ROM  THE  NORTH,  ALL  OF     THE  GIANT 

HEADS  SNEEZE.  achoo!!!" 
: PRINT "THE  FORCE  OF  THE  SNEEZE  B 
LOWS       YOU  SOUTH" :GOT087 

86  PRINT" I  DON'T  UNDERSTAND" : GOT 
080 

87  PRINT"  SOUTH" : PRINT" 

SOUTH. . . " : PRINT" YOU  FALL  IN 
TO  A  DEEP  HOLE . " : GOSUB13  5 : GOT089 

88  PRINT "YOU  CAN'T  GO  ANY  FARTHE 
R  THIS  WAY-THE  HEADS  ARE  TOO  C 
LOSE  TO-  GETHER  AND  TOO  HIGH.":G 
0T081 

89  X1=-2:Y1=0:PMODE4,1:PCLS:COLO 
Rl ,0 : DRAW"BM108 , 140D20R40U20L40E 
10R20F10H10" :PM0DE3, 1:DRAW+"C0U5 


0L20D50R13U40BU10L17U20H2U20F2R4 
E2U2E5G5D18F10G5H12U18H2UE2R4E6F 
10E5U5F2R2F5R30D5L30G4D3  6L3BM12  6 
, 69F4RE3UH4 

90  PAINT(124, 126) , 2 , 0 : PAINT ( 124 , 
79) ,3,0: PAINT (122 ,65) ,3,0 

91  PM0DE4,1:DRAW"C1BM12  5,2  8U4LH2 
U7ER17D4GF2D2L2D4GC0L4H3C1L5R5U5 
E4R3E2L2 " : PAINT (128, 28), 1,1: DRAW 
"BM139,25C0L3GER3BD3GL5H4U2D7U7B 
U4BR7ERBU4BR3C1R2FR2FR2UL2HL7U3L 
16D3U3H2U2E2R16F2D2G2BM178 , 35R13 
FGL6D2GL5H2BM0, 100R118BR20R120" : 
PAINT(128,28) ,1,1 

92  GOSUB134 

93  PRINT" YOU  SEE  A  LARGE,  GOLDEN 
STATUE     OF  A  MAN." 

94  GOSUB120:IFC$="LOOK  STATUE "TH 
ENPRINT"WHY,  IT  LOOKS  LIKE  SGT. 
PEPPER,  AND  HE'S  POINTING  SOUTH. 
":GOT094  ELSEIFC$="S"THEN98  ELSE 
IFLEFT$ (C$ , 9 ) ="MOVE  STAT"ORLEFT$ 
(C$,9)="PUSH  STAT " THENPRINT "IT  T 
IPS  OVER,  REVEALING  A  HOLE  GOIN 
G  DOWN. " :SP=l:GOT094 

95  IFC$="GO  HOLE "AND  SP=1THENPRI 

NT"GOING  DOWN  " : X=l : Y=7 : G0T01 

32  ELSEIFC$="GO  HOLE "AND  SP=0THE 
NPRINT"WHAT  HOLE? " : GOT094  ELSEIF 
C$="N"ORC$="E"ORC$="W"THEN82  ELS 
EIFC$="HELP"THENPRINT"SGT.  PEPPE 
R  WOULD  BE  PROUD. " :GOT094 

96  IFLEFT$(C$,10)="BREAK  STAT"TH 
ENPRINT"YOU  WOULD  DESTROY  ONE  OF 

THE  FEWRELICS  LEFT  OF  OUR  OWN  S 
GT.  PEPPER?  I  AM  ASHAMED. ":G 

OT094 

97  PRINT" I  DON'T  UNDERSTAND" : GOT 
094 

98  'LARGE  HOLE 

99  Xl=-3 :Y1=0: PRINT" YOU  SEE  A  HU 
GE  BLACK  HOLE  UP  IN  THE  SKY.": 

100  GOSUB120:IFC$="GO  HOLE"THENI 
NPUT"HOW" ;C1$:IFC1$="USE  ROPE"OR 
C1$="THR0W  R0PE"THENX=1 : Y=7 : GOSU 
B132  ELSEPRINT"YOU  CAN'T  REACH  I 
T  THAT  WAY.  ".'GOTO  100 

101  IFC$="LOOK  HOLE " THENPRINT "IT 
'S  ROUND": GOTO 100  ELSEIFC$="HELP 
" THENPRINT " NONE  TO  GIVE . " : GOTO10 
0  ELSEIFC$="N"ORC$="S"ORC$="E"OR 
C$="W"THEN81 

102  PRINT "I  DON'T  UNDERSTAND" : GO 
TO100 

103  PMODE4,1:PCLS1:COLOR0,1:R=3  5 
: CIRCLE (12, 96) ,10,0, .5:PAINT(10, 
96) ,0,0: GET (0,90) -(23,102) ,A2,G 

104  PCLS1:SCREEN1, 1 : FORT=5T09  6ST 
EP14 : FORK=0TO240STEPR: PUT (K, T) - ( 


K+23,T+12) ,A2,PSET:PUT(K, 190-T) - 
(K+23 , 178-T) ,A2,PSET:NEXTK:R=R-2 
: NEXTT : LINE (0,0)-(256,192), PSET , 
B 

105  GOSUB134 

1)36  PRINT"YOU  SEE  HOLES,  HOLES, 
AND  MORE     holes.  THERE  ARE  ENOUG 
H  HOLES  TOFILL  THE  ALBERT  HALL. 
YOU  CAN'T  EVEN  FIND  THE  HOLE  YOU 

FELL  THROUGH." 
107  H1=INT(RND(10) ) -1 : IFH1=1THEN 
111  ELSEPRINT" YOU  SEE  BLACK  HOLE 
S.  " 


108  GOSUB120 : IFC$="HELP"THENPRIN 
T"YOU  REMEMBER  HEARING:    'THE  SEA 

OF  HOLES  LEADS  TO  THE  THE  SEA 
OFGREEN. " :GOTO108ELSEIFC$="N"ORC 
$="S"ORC$="W"ORC$="E"ORC$="GO  HO 
LE"ORC$="JUMP  HOLE"THEN107ELSEIF 
C $= " LOOK  HOLES " THENPRINT " THEY ' RE 
ROUND, AND  BLACK. ": GOTO108 

109  IFC$=" LEAVE "THENPRINT" EASY  F 
OR  YOU  TO  SAY,  HOW? " : GOTO 108  ELS 
EIFC$="GET  HOLE"AND  HO=0THENPRIN 
T"YOU  PICK  UP  A  HOLE.   NOW  YOU'VE 

GOT  A  HOLE  IN  YOUR  POCKET.": HO 
=1:GOTO107  ELSEIFC$="GET  HOLE "AN 
DH0=1THENPRINT" YOU ' VE  GOT  ONE. (G 
REEDY) " :GOTO108 

110  PRINT" I  DON'T  UNDERSTAND" : GO 
TO108 

111  PMODE3 , 1: CIRCLE (147, 123) , 10, 
3, .5: PAINT (147, 123) ,3,3: PMODE4 , 1 
: SCREEN1 , 1 : PMODE3 , 1 

112  CIRCLE (147, 123) ,10,2, .5: IF  I 
NKEY$<>" "THEN113  ELSECIRCLE ( 147 , 


12  3) ,10,3, .5:IFINKEY$=""THEN112 

113  PRINT"YOU  SEE  A  FLASHING  GRE 
EN  HOLE." 

114  GOSUB120:IFC$="GO  HOLE"THENP 
RINT" SUDDENLY,   YOU  FEEL  STRANGE, 

AND  YOU  START  TO  DISSAPPEAR  

":GOT0117  ELSEIFC$="LOOK  HOLE"TH 
ENPRINT"IT'S  FLASHING. " :GOT01 14 
ELSEIFC$="N"ORC$="S"ORC$="W"ORC$ 
="E"THEN107  ELSEIFC$="HELP"THENP 
RINT "NONE  TO  GIVE . " : GOT0114 

115  IFC$="GET  HOLE"ANDHO=0  THENP 
RINT" YOU  CAN'T  BUDGE  THE  FLASHIN 
G  ONESOYOU  SETTLE  FOR  A  BLACK  ON 
E.":HO=l:GOT0114  ELSEIFC$="GET  H 
OLE"ANDHO=1THENPRINT"YOU ' VE  GOT 
ONE. (GREEDY) ":GOT0114 

116  PRINT "I  DON'T  UNDERSTAND .": G 
OT0114 

117  GOSUB135:CLS 

118  FORK=0TO6:PRINT§(K*32)+10,"P 
EPPERLAND" : FORT=1TO10 : NEXTT : PRIN 
T@ (K*32)+10, "  ":NEXT:PR 
INT"  pepperland" : PRINT" 
congratulations!  YOU  HAVE  JUST 
FINISHED  PART 2 .  NOW,  SAVE  YOUR 
STATUS  AND  LOAD  PART  3.":X=1:Y=8 
:GOSUB140 

119  IF  D=lTHENLOAD"YELLOW3 . BAS" , 
R  ELSEEND 

120  'COMMAND  ROUTINE 

121  INPUT"WHAT  DO  YOU  DO";C$ 

122  IFC$=""THEN121  ELSEIFLEFT$ (C 
$,4)="KILL"THENPRINT"WE  DON'T  KI 
LL  IN  PEPPERLAND. ..": GOTO 120 ELSE 
IFLEFT$ (C$, 3)="NOR"  ORLEFT$ (C$, 5 
)="GO  NO"THENC$="N"  ELSEIFLEFT$ ( 
C$,3)="SOU"  ORLEFT$(C$,5)="GO  SO 
"THENC$="S"  ELSEIFLEFT$ (C$, 3)="R 
UN"THENC$=MID$ (C$,5) 

123  IFC$="RUN"THENINPUT"WHICH  DI 
RECTI ON" ;C$:GOT0122  ELSEIFLEFT$ ( 
C$, 3) ="WES"ORLEFT$ (C$, 5) ="GO  WE" 
THENC$="W"  ELSEIFLEFT$ (C$ , 3) ="EA 
S"ORLEFT$ (C$, 5) ="GO  EA"THENC$="E 

N 

124  IFC$="LOOK"ANDX=2ANDY=lANDLM 
=1THENGOT02  2ELSEIFC$="LOOK"THENG 
OSUB134:GOTO120  ELSEIFC$="ASK  KE 
Y"ANDLM=1ANDKY=0THENPRINT"THE  LO 
RD  MAYOR  GRACIOUSLY  HANDS  YOU  TH 
E  KEY" : KY=1 : GOTO120ELSEIFC$="ASK 

KEY"ANDLM=1ANDKY=1THENPRINT"Y0U 
'VE  GOT  IT.":GOTO120 

125  IFC$=" INVEN"THENGOSUB14 5 : GOT 
O  120  ELSEIFC$="SAVE"THENGOSUB14 
0:GOTO  120  ELSEIFC$=" LOAD"THENGO 
SUB156 : GOTO120  ELSEIFC$="QUIT"TH 
ENINPUT"ARE  YOU  SURE" ; C$ : IFC$=" Y 


"THENEND  ELSE 120 

126  IFLEFT$ (C$ , 3 ) ="PUT"THEN128 

127  RETURN 

128  IFRIGHT$(C$,3)="KEY"ANDKY=1T 
HENPRINTMIT  BREAKS  AS  YOU  PUT  IT 

DOWN":KY=0:GOTO120ELSEIFRIGHT$  ( 
C$ ,  4 ) ="HOLE"AND  HO= 1THENPRINT " TH 
E  HOLE  FALLS  ON  THE  GROUND  ANDDI 
SSAPEARS . " : HO=0 : GOTO 120 

129  IFRIGHT$(C$,6)="WRITER"ANDTY 
=1THENPRINT"IT  SMASHES  ON  THE  GR 
OUND.":TY=0:GOTO120  ELSEIFLEFT$  ( 
C$,8)="PUT  APPL"THENPRINT"IT  TUR 
NS  TO  MUSH. "; :AP=0: GOTO 120  ELSEI 
FRIGHT $ (C$ , 4 ) ="ROPE"THENPRINTMAS 

IT  TOUCHES  THE  GROUND, IT  ROTSAW 
AY.  "  :RP=0  :GOTO120 

13 0  IFRIGHT$(C$,4)="OUTS"THEN  CU 
=0 :  PRINT  "THE  CUTOUTS  SMASH  ON  TH 
E  GROUND. " ;: GOTO 12 0  ELSEIFRIGHT$ 
( C $ , 5 ) = "MENTS " THENPRINT " THE  INST 
RUMENTS  BREAK. ":IN=0: GOTO  120  EL 
SEIFRIGHT$ (C$/5)="FORMS"THENPRIN 
T"THEY  GET  ALL  MUDDY  AND  USEL 
ESS .  "  :  UN=0 :  GOTO120 

131  PRINT "YOU  DON'T  HAVE  IT  TO  P 
UT  DOWN. ": RETURN 

132  IFX=1ANDY=6THEN6  ELSEIFX=2AN 
DY=6THEN18  ELSEIFX=3ANDY=6THEN47 

ELSEIFX=4ANDY=6THEN65  ELSEIFX=1 
ANDY=7THEN103 

13  3  PRINT "YOU  HAVE  AN  INCORRECT 
FILE-TRY  AGAIN.":GOSUB156:GOT01 
32 

134  PMODE4 , 1 : SCREEN1 ,  1 :  IF  INKEY$ 
<> " "THENRETURNELSE 1 3  4 

135  PRINT@508,"<E>"; :IFINKEY$=CH 
R$( 13) THENPRINT: RETURN  ELSE  PRIN 
T@508 , " [E] " ; : IFINKEY$=CHR$ ( 13 ) TH 
ENPRINT : RETURN  ELSEGOT0135 

136  GOSUB13  5:PRINT"WE'RE  SORRY  T 
0  ANNOUNCE  THAT  YOUHAVE  COME  TO 
THE  END  OF  YOUR  ADVENTURE.  YO 
U  HAVE  FAILED,  BUT  WHO  KNOWS?  pe 
rhaps  SOMEONE  ELSE  ESCAPED  PEPPE 
RLAND,  perhaps  THE  BEATLES  CAN  S 
AVE  PEPPERLAND  ON     THEIR  OWN." 

137  PRINT "BUT,  IT'S  NOT  THAT  BAD 
.  LOOK  ON  THE  BRIGHT  SIDE-BLUE  I 
S'NT  that  BAD  OF  A  COLOR  

ii . 

..........  , 

138  FORK=1TO512:FORT=1TO10:NEXTT 
: PRINTCHR$ (175);: NEXTK : CLS  3 : PRIN 
T§11, "TRY  AGAIN" ; : INPUTC1$ : IFC1$ 
="Y"THENRUN  ELSEEND 

139  PMODE4 , 1 : SCREEN1 , 1 : PMODE3 , 1 : 
PCLS2 :IFINKEY$=" "THEN139ELSERETU 
RN 

140  'SAVE  ROUTINE 


141  INPUT"tAPE  OR  dISK" ; D$ : IFD$= 
"T"THEN  D=-1ELSEIFD$="D"THEN  D=l 
ELSE141 

142  INPUT "FILENAME" ; F$ : OPEN"0" , # 

D,  F$ 

143  PRINT # D , X , Y , LM , AP , KY , HO , RG , J 
N , PL , GE , JE , TY , EG , DR , RP , CU , WN , IN , 
UN 

144  CLOSE  #D: RETURN 

145  '  INVENTORY 

146  PRINT"  inventory": 

147  PRINT"YOU  HAVE:": IF  KY=1THEN 
PRINT "A  GOLD  KEY." 

148  IFAP=1THENPRINT"A  GREEN  APPL 

E.  " 

149  IFH0=1THENPRINT"A  HOLE  IN  YO 
UR  POCKET." 

150  I FTY= 1THENPRINT "A  TYPEWRITER 
•i 

151  I FRP= 1THENPRINT "A  ROPE." 

152  IFCU=1THENPRINT"A  CUTOUT  OF 
BLUE  PERSON." 

153  IFIN=1THENPRINT"BAND  INSTRUM 
ENTS . " 

154  IFUN=1THENPRINT"MILITARY  UNI 
FORMS . " 

155  RETURN 

156  'LOAD  ROUTINE 

157  INPUT"tAPE  OR  dISK" ; D$ : IFD$= 
"T"THEND=-1  ELSEIFD$="D"THEND=1 
ELSE157 

158  INPUT "FILENAME" ;F$:OPEN"I" . § 
D,F$ 

159  INPUT # D , X , Y , LM , AP , KY , HO , RG , J 
N , PL , GE , JE , TY , EG , DR , RP , CU , WN , IN , 
UN 

160  CLOSE#D: RETURN 

161  PCLEAR4:GOT01 


YELL0W3 


0  'POKE65495,0 

1  i  ******************** 

2  '*  YELLOW  SUBMARINE  * 

3  '*         PART  THREE  * 

4  ' ******************** 

5  GOSUB137:DIMA2 (23,12) :CLS:PRIN 
T@200 , "YELLOW  SUBMARINE" : PRINT @ 2 
3  8," PART  THREE " : PRINT : PRINT " LOAD 

STATUS" :GOSUB155:GOTO130 

6  LM=1 

7  PMODE4,1:PCLS:DRAW"BM10,192M70 
, 60R120M245, 192" : IFLM=1  THENPMOD 
E3, 1:T=160:T1=T:FORT2=155TO185ST 
EP10:FORK=T  TOT1  STEP2  5 :  CIRCLE  (K 
,T2) ,12,3, .5:PAINT(K,T2) , 3 , 3 : DRA 
W"BM"+STR$ (K) +" , "+STR$ (T2-5) +  "C0 
U3E3R2G3D4 " : NEXTK: T=T-10 : Tl=Tl+2 
0 : NEXTT2 : PMODE4 , 1 

8  GOSUB132 

9  ' X=l, Y=8 

10  PRINT  "YOU  ARE  NOW  ON  A  STAIRW 
AY  GOING  DOWN  TO  PEPPERLAND  (A  B 
IT  SALTY  'ROUND  THE  EDGES .  )  " : IFL 
M=1THENPRINT"Y0U  SEE  A  PILE  OF  A 
PPLES,   ABOUT  TEN  FEET  HIGH." 

11  GOSUB118:IFLEFT$(C$,8)="GET  A 
PPL"ANDLM=1THENPRINT "UNDER  THE  A 
PPLES,   YOU  FIND  YOUR  LORD  MAYOR! 

BUT  HE'S  BEEN  BOBBEDPERHAPS  A  B 
IT  OF  A  TUNE  WOULD  HELP  HIM.": 
GOTOll  ELSEIFLEFT$(C$,8)="GET  AP 
PL"THENPRINT"WHAT  APPLES? " : GOTOl 
1 

12  IFLEFT$(C$,5)="PLAY  "THENPRIN 
T"THIS  IS  NOT  THE  TIME .": GOTOll 
ELSEIFLEFT$ (C$ , 9) ="LOOK  APPL"AND 
LM=1THENPRINT"THERE ' S  AN  EYE  IN 
THE  APPLE.": GOTO 11  ELSEIFC$="D"0 
RC$="DOWN"THEN19  ELSEIFC$="N"ORC 
$="S"ORC$="E"ORC$="W"THENPRINT"Y 
OU  CAN'T. ": GOTOll 

13  IFLEFT$(C$,9)="LOOK  APPL"THEN 
PRINT "WHAT  APPLE?": GOTOll 

14  IFLEFT$ (C$,4) = " SING " THENPRINT 
"THE  BEATLES  WAFT  A  CRAFTY  SONG 

INTO  THE  AIR. ":IFLM=1THENPRINT" 
THE  LORD  MAYOR  WAKES  UP.":GOT016 

ELSEGT0812  ELSEIFC$="GET  MAYOR" 
AND  LM=1THENPRINT"Y0U  TAKE  THE  F 
ROZEN  MAYOR.": GOTOll  ELSEIFC$="H 
ELP " THENPRINT " NO . " : GOT 

15  PRINT" I  DON'T  UNDERSTAND. ": GO 
TOll 

16  GOSUB13 3 : PRINT" LORD  MAYOR  SAY 
S:«  FRED,  YOU'RE  BACK! !  YOU  BRO 
UGHT  HELP ! ! •   HE       LOOKS  AT  THE  B 


EATLES  AND  SAYS  'WHY,  IT'S  QUI 
TE  UNCANNY,   YOU       COULD  PASS  FOR 

THE  ORIGINAL!!'  JOHN  SAYS  'WE 
are  THE  ORIGINAL. ' 'NO,  NO,  SGT. 
PEPPER'S  LONELY       " ; 

17  PRINT " HEARTS  CLUB  BAND.  YOU  C 
OULD  IM-  PERSONATE  THEM  AND  READ 

Y  TE  LANDTO  REBELLION.   YOU'LL  NE 
ED  THE       INSTRUMENTS  OF  WAR-LOCK 
ED  IN  THEBANDSTAND! '" : GOSUB133 : P 
RINT"PAUL  ASKS   'THEY  HATE  MUSIC 
THAT  MUCH,   DO  THEY? ' " : PRINT" 1  THE 

Y  SHRIEK  AT  THE  VERY  S 

18  PRINT"WELL,IT'S  SHRIEKING  TIM 
EL  IN  PEPPERLAND.  ..." 

19  PMODE4 , 1 : PCLS : COLOR1 , 0 : DRAW'B 
M10, 192E60R115F60H60L10H30L35G30 
" : T=110 : Tl=145 : FORK=104TO130STEP 
3 : LINE (T , K) - (Tl , K) , PSET : T=T- . 5 : T 
1=T1+ . 5 : NEXTK: T=90 : Tl=165 : FORK=l 
34T0192STEP3 : LINE (T, K) - (Tl , K) , PS 
ET : T=T- . 7 : T1=T1+ . 7 : NEXTK 

20  LINE(110, 102) -(105, 131)  , PSET: 
LINE  ( 145  , 102 )  -  ( 150  ,131),  PSET :  LIN 
E (90, 131) -(76, 192) , PSET : LINE ( 165 
, 131) -(178, 192) ,PSET:GOSUB132 : PR 
INT  "YOU  ARE  AT  THE  BOTTOM  OF  THE 

STAIRS . " 

21  GOSUB118 : IFC$="N"THENPRINT"YO 
U  CAN'T  GET  PAST  THE  STAIRS.": GO 
T021  ELSEIFC$="S"THENX=2 : Y=8 : GOT 
0130  ELSEIFC$="E"THENX=2 : Y=7 : GOT 
0130  ELSEIFC$="W"THENPRINT"THERE 
' S  WATER  THERE ,  YOU ' D  DROWN" ; : GO 
T021 

22  IFC$="HELP"THENPRINT" PERHAPS 
YOU  SHOULD  DO  WHAT  IS  EXPECTED 

OF  Y0U.":G0T021  ELSEIFC$="U"ORC 
$=»UP"THEN7  ELSEIFLEFT$ (C$ , 4 ) ="P 
LAY "THENPRINT "THIS  ISN'T  THE  PLA 
CE.":G0T021 

23  PRINT" I  DON'T  UNDERSTAND" : GOT 
021 

24  BN=0: 'X=2,Y=8 

25  IFWN=0THENPRINT"YOU  SEE  A  SAD 
SIGHT-HUNDREDS  OF  PEPPERIES  BOB 

BED,   AND  TURNED         BLUE. FRIENDS 
OF  YOURS,   DEPRESSEDAND  BLUE.  IN 
THE  MIST  OF  THIS,     YOU  SEE  TWO  B 
ONKERS,   BOBBING  ANYMOVING  CREATU 
RE."  ELSEPRINT"YOU  SEE  YOUR  GOOD 
FRIENDS,  ALIVE AND  WELL. 

26  BN=BN+1:IFWN=1THENBN=0ELSEIFB 
N=4THEN32 

27  G0SUB118 : IFC$="HELP"THENPRINT 
"HELP  YOUR  FRIENDS. ":BN=BN-l: GOT 
026  ELSEIFC$="LOOK  PEOPLE "ANDWN= 
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0ORC$="LOOK  FRIENDS " ANDWN=0THENP 
RINT"THEY  LOOK  DEPRESSED  AND  BLU 
E . " : GOT026  ELSEIFLEFT$ (C$,4)=MPL 
AY"ANDIN=1ANDUN=1THEN3  3 

28  IFC$="LOOK  BONKERS " ANDWN=0THE 
NPRINT"THEY'RE  MEAN,  AND  UGLY,  A 
ND  blue" ; :GOT026  ELSEIFC$="GET  P 
EOPLE " THENPRINT " YOU  ARE  STRANGE- 

YOU  CAN'T  JUST  TAKE  PEOPLE i " : GO 
T02  6 

29  IFLEFT$(C$,4)="BOB  "ANDAP=1AN 
DRG=10RC$="DROP  APPLE "ANDAP=1AND 
RG=1  THENIFWN=j3  THENPRINT"  BONK,  Y 
OU  HIT  A  BONKER !  !  "  :  BN=0 :  AP=0 :  GOT 
02  6  ELSEPRINT"THE  APPLE  SMASHES 
ON  THE  GROUND. " :AP=0:GOTO2 6  ELSE 
IFC$="DROP  APPLE "ANDWN=1THENPRIN 
T"ON  YOUR  FRIENDS?" :G0 

30  IFLEFT$  (C$,  4)  ="BOB  "ANDAP=0OR 
C$="DROP  APPLE "ANDAP=0THENPRINT" 
NO  APPLE. ":G0T026  ELSEIFLEFT$ (C$ 
,4)=" BOB  "ANDRG=0ORC$="DROP  APPL 
E"ANDRG=0  THENPRINT" YOU  CAN'T  RE 
ACH . " : G0T02 6  ELSEIFLEFT$ ( C$ , 4 ) =" 
BOB  "ANDWN=1THENPRINT"N0THING  TO 

DROP  IT  ON.":GOT026 

31  IFC$="N"THENX=l:Y=8:GOT019  EL 
SEIFC$="S"THENX=1 : Y=9 : GOTO130  EL 
SEIFC$="E"THENX=3  :  Y=8  :  GOTO130  EL 
SEIFC$="W"THENPRINT"THERE ' S  WATE 
R  THERE ,   YOU • D  DROWN" ; : G0T02  6 

32  PRINT "FROM  OUT  OF  NOWHERE,  AN 
APPLE       SMASHES  ON  YOUR  HEAD,  A 

ND  NOW  YOU  FEEL  VERY  BLUE . . . " : 
GOT0134 

33  PRINT "THE  BEATLES  SAY  'WE  MIG 
HT  AS  WELL  TRY  THE  TUNES  NOW. 
  IT  WAS  TWENTY  YEARS  AGO 

TODAY,     SGT.   PEPPER  TAUGHT  THE 
BAND  TO     PLAY.": PRINT "THEY'VE  BE 
EN  GOING  IN  AND  OUT  OFSTYLE":PRI 
NT "BUT  THEY'RE  GUARANTEED  TO  RAI 
SE  A  SMILE 

34  PRINT "SO  MAY  I  INTRODUCE  TO  Y 
OU  THE  ACT  YOU'VE  KNOW  FOR 

ALL  THESE  YEARS-" : PRINT" SGT 

.  PEPPERS  LONELY  HEARTS  CLUB  BAN 
DMM1HMMMMMMMMMM" 

35  GOSUB13  3 :PRINT"AS  THE  TUNE  RI 
SES  THROUGH  THE  AIR,  THE  BLUEN 
ESS  OF  ALL  THE  PEOPLE  DISAPPE 
AR,  THEY'RE  FREED! YOU  SEE,  FROM 
THE  NORTH,  SOUTH,  AND  EAST,  A  MI 
LLION  BILLION  MEANIES,  HUNDR 
ED  OF  BERSERK  BON-KERS ,  AND  THOU 
SANDS  OF  CLOWNS     " ; 

36  PRINT "NORTH  IN  TERROR!!  PEPPE 
RLAND  IS  SAFE,  OR  IS  IT?":WN=1:G 
OSUB13  3:GOTO101   'DA  GLOVE!!! 


3  7  PM0DE4 , 1 :  PCLS 1 :  BN=0 :  COLOR0 , 1 : 
DRAW" BM0 , 180R100E2U4EU10EU20E2U3 
0HU2H2UH4L2H5L5H3L4HL5HL10H2R14F 
R8F2R2F2R4F2R4F2R3E2U2EU10L2HL5H 
L10GL3GL2G2LUE2RE2R3ER12FR6U2EU5 
RU10HU2H2UH2R3FRDF2D2FD4FD4FRE2R 
2ER4FR2F2DF2LH2LHL4G2DG3D2GD3FD1 
0FD10F2D5FR3E" 

38  DRAW+"R10ER10FR5FR3F2DLHL5HL2 
0G2L5GL2G2D2GD2GD10FD10F2D10FD10 
FD3F2D3FDFR135" : LINE (0,0) -(256,1 
92) ,PSET,B:PAINT(2,190) ,0,0:PMOD 
E3,l: CIRCLE (84, 106) ,13,3, .5:PAIN 
T  (84, 106) ,3,3:DRAW"BM84,100C2U7" 
:CIRCLE(90,90) ,13,3, .5:PAINT(90, 
90) ,3,3:DRAW"BM91,84U3" 

39  CIRCLE (125, 80) ,13,3, . 5 : PAINT ( 
125,80) ,3,3:DRAW"BM126,75U5":CIR 
CLE  (145, 120)  ,13,3, . 5 : PAINT ( 145 , 1 
20 ) , 3 , 3 : DRAW" BM14  6 , 1 15U2 " : G0SUB1 
32 

40  'X=3,Y=8 

41  PRINT" YOU  SEE  A  TREE  WITH  BIG 
GREEN       APPLES . " : BN=0 

42  BN=BN+1:IFWN=1THENBN=0  ELSEIF 
BN=4THEN47 

43  G0SUB118:IFC$="G0  TREE"THENPR 
INT"YOU'RE  THERE. ":GOT042  ELSEIF 
C$="HELP"THENPRINT"RUN. " :GOT042 
ELSEIFC$="GET  APPLE "ANDAP=1THENP 
RINT"YOU  CAN'T  CARRY  TWO  (GREEDY 
) .":GOT043  ELSEIFLEFT$(C$,9)="GE 
T  APPL"THENPRINT"THEY ' RE  GREEN, 
AND  ROUND.": GOT 

44  IFLEFT$ (C$, 4) =" PLAY "THENPRINT 
"THIS  ISN'T  THE  PLACE . " : GOT042  E 
LSEIFC$="LOOK  TREE "THENPRINT "IT ' 
S  TALL,   AND  GREEN. ": GOTO 4 2 

45  IFC$="GET  APPLE "ANDAP=0 THEN  A 
P=l: PRINT" YOU  MANAGE  TO  PLUCK  AN 

APPLE  OFFOF  A  BRANCH .": IFWN=1TH 
EN47ELSE42  ELSEIFC$="N"THENX=2 : Y 
=7 : GOTO130  ELSEIFC$="S"THENX=1 : Y 
=9 : G0T013 0  ELSEIFC$="E"THENX=4 : Y 
=8 : GOTO130  ELSEIFC$="W"THENX=2 : Y 
=8:GOTO130 

46  PRINT" I  DON'T  UNDERSTAND" : GOT 
042 

47  PRINT "YOU  SEE  THREE  BONKERS  C 
OME  BY  AND  PICK  AN  APPLE  FRO  T 
HE  TREE.   LUCKILY,   THEY  DON'T  SEE 

YOU.":BN=0 

48  BN=BN+1:IFBN>2THEN51  ELSEGOSU 
B118 : IFC$="N"THENX=2 : Y=7 : GOTO130 
ELSEIFC$="W"THENX=2 : Y=8 : GOTO130E 
LSEIFC$="E"THENX=4 : Y=8 : GOTO130EL 
SEIFC$="S"THENX=1 : Y=9 : GOTO130ELS 
EIFC$="DROP  APPLE " ORLE FT  $ (C$ , 4 )  = 
"BOB  "THENPRINT "NO  TIME  FOR  THAT 
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, RUN ! ! " : GOT 

49  IFLEFT$(C$,4)="PLAY"THENPRINT 
"THIS  IS  NOT  THE  TIME ! ! " : GOT048 
ELSEIFC$="HELP"THENPRINTI,RUN .  " :  G 
OT048  ELSEIFC$="LOOK  TREE"THENPR 
INThITiS  TALL. " :GOT048  ELSEIFC$= 
"LOOK  BONKERS "THENPRINT"THEY ' RE 
BLUE. ": GOTO 4 8 

50  PRINT" I  DON'T  UNDERSTAND .": GO 
T04  8 

51  PRINT "BECAUSE  OF  YOUR  JUST  ST 
ANDING  AROUND,  A  BONKER  SAW  YO 
U. " :GOT032 

52  PMODE4 , 1 : PCLS : PMODE3 , 1 : CIRCLE 
(128,96) , 60,0:DRAW"BM68, 96R5F10R 
4D20F2R2U30E5R4E4U10E2R2F2D10F4D 
2F10D4F5R4FR6FR6ER5E2R2E2U5R2F4D 
10F2E4U20E2U10E4U2E2U4E2BD70BL15 
R20D30L116U30R20L20"  :  CIRCLE  ( 155  , 
70) , 10,0, 1.5: PAINT (12 8, 96) ,0,0 :P 
AINT(128, 130) ,3,0 


53  DRAW+"D30L40D20BR195U19L40" :P 
AINT ( 12  8 , 180 ) , 2 , 0 : PAINT ( 12  8 , 1 60 ) 
,2,0:GOSUB132 

54  PRINT" YOU  SEE  SGT.  PEPPERS  BA 
ND,   STILLTRAPPED  IN  THE  BIG  BLUE 

BALL. " : IFWN=0THEN62 

55  GOSUB118:IFC$="LOOK  BALL" THEN 
PRINT" IT'S  BLUE  GLASS  (MUST  BE  F 
ROM  KENTUCKY . ) " : GOT055  ELSEIFC 
$=»puT  HOLE"ANDHO=10RC$="USE  HOL 
E " ANDHO= 1THEN10 7  ELSEIFLEFT$ (C$ , 
4 ) ="PLAY"THENPRINT"THIS  ISN'T  TH 
E  PLACE" :GOT055 

56  IFC$="HELP"THENPRINT"LOOK  IN 


YOUR  POCKETS. ": GOTO 5 6  ELSEIFC$=" 
GET  BAND"ORC$="OPEN  BALL"ORC$="F 
REE  BAND"THENINPUT"HOW? " ; Cl$ : IFC 
1$="USE  HOLE"ANDHO=l  ORCl$="PUT 
HOLE"ANDHO=1THEN107  ELSE61 

57  IFC$="GET  BALL" THENPRINT " SORR 
Y,   A  TWELVE  FOOT  HIGH  BLUE  BALL 

IS  RATHER  DIFFICULT  TO  PUT  INTO 
YOUR  POCKET. " :GOT05 5  ELSEIFC$=" 
BREAK  GLASS "ORC$=" BREAK  BALL" THE 
NPRINT"YOU  CAN'T.   IT'S  BEATLEPRO 
OF.":GOT055 

58  IFC$="PUSH  BALL"ORC$="MOVE  BA 
LL"THENPRINT"IT  WON'T  BUDGE .": GO 
T055ELSEIFC$="LOOK  BAND"THENPRIN 
T"THEY  LOOK  FROZEN,   LIKE  LITTLE 

FISHES  INSIDE  A  BLUE  FISHBOWL. 
":GOT055 

59  IFC$="USE  HOLE"ANDHO=0ORC$="P 
UT  HOLE "ANDHO=0THENPRINT" YOU  DON 
•T  HAVE  A  HOLE  TO  PUT.":GOT055  E 
LSEIFC$="N"THENX=3 : Y=7 : GOTO130  E 
LSEIFC$="S"ORC$="E"THENPRINT"YOU 

SEE  MOUTAINS. " :GOT055  ELSEIFC$= 
"W"THENX=3 : Y=8 : GOTO130 

60  PRINT"I  DON'T  UNDERSTAND" : GOT 
055 

61  IFC1$="PUT  HOLE"ANDHO=0ORC1$= 
"USE  HOLE "ANDHO=0THENPRINT" WHAT 
HOLE?" :G0T055  ELSEPRINT" YOU  CAN' 
T  GET  THE  BAND.    IT'S  BEATLEPR 
OOF. " :G0T055 

62  PRINT"YOU  SEE  MEANIES  EVERYWH 
ERE ! " : BN=0 

63  BN=BN+l:IFBN=4THEN67  ELSEGOSU 
B118 : IFC$="N"THENX=3 : Y=7 : GOTO130 
ELSEIFC$="S"ORC$="E"THENPRINT"TH 
ERE  ARE  MOUNTAINS. ": GOTO 6 3  ELSEI 
FC$="W"THENX=3 : Y=8 : GOTO130 

64  IFRIGHT$ (C$,4) ="BALL"ORRIGHT$ 
(C$ , 5) ="GLASS"ORRIGHT$ (C$ , 4) ="H0 
LE"ORRIGHT$ (C$ , 4 ) ="BAND"ORLEFT$ ( 
C$,4)="PLAY"THENPRINT"N0  TIME  FO 
R  THAT! " :GOT063  ELSEIFC$="HELP"T 
HENPRINT"NONE  TO  GIVE . " : GOT063 

65  IFC$="HELP"THENPRINT"RUN. " : GO 
T063  ELSEIFC$="LOOK  MEANIES "THEN 
PRINT "THEY  MEAN  MEANIES .": GOT063 

66  PRINT" I  DON'T  UNDERSTAND" : GOT 
063 

67  PRINT"A  MEANIE  PULLS  OUT  HIS 
GUN,  AND  zap -AN  ARROW  HITS  YOU, 
AND  YOU     FEEL  DIZZY,   AND  VERY  BL 
UE. " :GOT0134 

68  PM0DE4, 1: PCLS: DRAW" BM2 1,19 2 E2 
R5E3R3E4R2E5R2E6RE10UE7U2E5U2E3U 
3E2U5EU10EU20E2U2E3UE5R2ER5ER50F 
R5FR2F5DF3D2F2D20FD10FD5F2D3F3D2 
F5D2F7DF10RF6R2F5R2F4R3F3R5F2BM1 
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06,83U2j3H2L2U2L4E4UE3UE2RER2ER4E 
R20FR4  FR2  FRF  2  DF3  DF4  L4  D2  L2  G2  L4  2  R4 
2D21L18U10L6D10 

69  60SUB132 

70  PRINT  "YOU  ARE  AT  THE  BOTTOM  0 
F  A  HILL, ■ ; : IFWN=0THENPRINT"WHIC 
H  IS  COVERED  WITH  MEANIES." 

71  PRINT"ON  THE  TOP  OF  THE  HILL 
IS  A  BANDSTAND. " : BN=0 

72  GOSUB118:IFC$="GO  HILL"ANDCU= 
10RC$="GO  BANDSTAND" ANDCU=10RC$= 
"UP"ANDCU=10RC$="U"ANDCU=1  THENP 
RINT"UNDER  YOUR  DISQUISE,  YOU  MA 
LE  ITPAST  THE  MEANIES  AND  CLOWNS 
,«:GOT078  ELSEIFC$="GO  HILL"ORC$ 
»"GO  BANDSTAND"ORC$="UP"ORC$="U" 
THEN77 

73  I FC$= " HELP " THENPRINT " HI DE . " : G 
OT072  ELSEIFLEFT$(C$,4)="PLAY"TH 
ENPRINT"THIS  ISN'T  THE  PLACE. ":G 
OT072  ELSEIFC$="LOOK  MEANIES "THE 
NPRINT"WHY,  THEY'RE  SLEEPING.  TH 
EY  LOOKKINDDA  CUTE,  ALMOST  HUMAN 
.":GOT072 

74  IFC$="LOOK  CLOWN"ORC$="LOOK  C 
LOWNS" THENPRINT "THEY 'RE  AWAKE,  A 
ND  ALERT.":GOT072  ELSEIFC$="N"TH 
ENX=2:Y=8: GOTO 130  ELSEIFC$="E"TH 
ENPRINT " THERE ' S  MOUNTAINS  THERE. 
" : GOT072  ELSEIFC$="W"THENPRINT"T 
HERE'S  WATER  THERE . " : GOT072 

75  IFC$="S"THENPRINT"YOU  WOULD  N 
EVER  GET  PAST  THE  HILL  UNNOTI 
CED.  BESIDES,  THERE ' SMOUNTAINS  T 
HERE.":GOT072 

76  PRINT" I  DON'T  UNDERSTAND" : GOT 
072 

77  PRINT"AS  YOU  ACSEND  THE  HILL, 
YOU'RE     SEEN  BY  A  CLOWN,   AND  YO 

U'RE  IN-  STANTLY  POUNDED. ": GOSUB 

133: PRINT" YOU  WAKE  UP  ":X=2:Y 

=8:GOTO130 

78  PRINT "YOU  ARE  AT  THE  DOOR  OF 
THE  BAND-STAND .  "  :  OP=0 :  CL=0 

79  G0SUB118:IFC$="0PEN  DOOR"ANDO 
P=0THENPRINT"THE  DOOR  IS  LOCKED. 
":GOT079  ELSEIFC$="UNLOCK  DOOR"A 
ND  KY=0ORC$="USE  KEY "ANDKY=j3 THEN 
PRINT" YOU  DON'T  HAVE  A  KEY.": GOT 

079  ELSEIFC$="GO  DOOR"ANDCL=0THE 
NPRINT"YOU  BANG  YOUR  FACE  ON  A  C 
LOSED     DOOR . " : G0T07  9 

80  IFC$="GO  D00R"ANDCL=1THEN83  E 
LSEIFC$="UNLOCK  D00R"ANDKY=10RC$ 
»"USE  KEY " ANDKY= 1THENPRINT " THE  D 
OOR  IS  NOW  UNLOCKED" :0P=1:G0T07 9 

ELSEIFC$="OPEN  D00R"AND0P=1THEN 

CL=1: PRINT" CREEAAKK  " :GOT079 

ELSEIFC$="HELP"THENPRINT"NONE  T 


0  GIVE.":GOT079 

81  IFC$="N"ORC$="S"ORC$="E"ORC$= 
" W" THENPRINT " YOU  CAN'T,  YOU'RE  O 
N  A  HILL.":GOT079  ELSEIFC$="DOWN 
"ORC$="D"ORC$="GO  HILL"ORC$="LEA 
VE" THEN 6 8 

82  PRINT"I  DON'T  UNDERSTAND. ": GO 
T079 

83  PRINT"YOU  SEE  A  ROOM.": IF  UN= 
0 THENPRINT "IT  HAS  AN  OPEN  TRUNK, 

FILLED  WITH  OLD  MILITARY  UNI 
FORMS . " 

84  IFIN=0THENPRINT"IT  HAS  BAND  I 
NSTRUMENTS . " 

85  G0SUB118:IFC$="GET  UNIFORMS"A 
NDUN=10RC$="WEAR  UNIFORMS "ANDUN= 
1 THENPRINT " YOU  ARE  WEARING  THEM. 
":GOTO  85  ELSEIFLEFT$ (C$, 8) ="GET 

INST "ANDIN=1THENPRINT" YOU  HAVE 
THEM . " : G0T08 5  ELSEIFLEFT$ ( C$ , 8 )  = 
"GET  INST " THENPRINT " ONE  FOR  EACH 

OF  YOU":IN=l:GOT085 

86  IFC$="GET  UNIFORMS "ORC$="WEAR 
UNIFORMS "THENPRINT "YOU  LIKE  THE 

M  SO  MUCH,  THAT  YOU  WEAR  THEM.": 
UN=1 : GOT085  ELSEIFC$="HELP"THENP 
RINT"PLAY  FOR  THE  PEOPLE .": GOTO 8 
5  ELSEIFLEFT$ (C$ , 4 ) ="PLAY"THENPR 
INT"THIS  ISN'T  THE  PLACE .": G0T08 
5 

87  IFC$="LEAVE"ORC$="GO  DOOR" THE 
N78  ELSEIFC$="N"ORC$="S"ORC$="E" 
ORC$="W"THENPRINT"YOU'RE  INSIDE 
A  BUILDING. ":G0T08 5 

88  PRINT "I  DON'T  UNDERSTAND. ": GO 
T085 

89  'X=2:Y=7 

90  IF  WN= 1THENPRINT " YOU  SEE  THE 
MOUNTAINS  TO  THE  NORTH  AND  A 
STAIRWELL  TO  THE         EAST.   TO  THE 

WEST  YOU  SEE  MORE     MOUNTAINS,  A 
ND  TOTHE  SOUTH,   NO-  THING."  ELSE 
PRINT"YOU  SEE  A  MILLION  BILLION 
MEAN-  IES ! ! ! 

91  BN=BN+1:IFWN=1THENBN=0  ELSEIF 
BN=4THEN67 

92  G0SUB118 : IFC$="N"THENPRINT"MO 
UNTAINS . " : G0T09 1  ELSEIFC$="LOOK 
MEANIES "AND  WN=0THENPRINT"THEY  L 
OOK  MEAN. " :G0T091  ELSEIFC$="HELP 
"THENPRINT "RUN. " :G0T091  ELSEIFC$ 
="E"THENX=3  :  Y=7  :G0T013J3  ELSEIFC$ 
="W"THENX=1 : Y=8 : G0T019 

93  IFC$="S"THENX=3:Y=8:GOTO130  E 
LSEIFLEFT$ (C$ , 4) =" PLAY "THENPRINT 
"THIS  ISN'T  THE  TIME . " : G0T091 

94  PRINT"I  DON'T  UNDERSTAND" : GOT 
091 

95  PMODE4,1:PCLS:COLOR1,0:DRAW"B 
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M100 ,  130R40E30UE10U2E5U3H3L2E8U2 
H2L7GLG10L2GL2GL2GL2G5LG16L2G32D 
4R40U4D4E30U4D3E10U4D2E4U4BU7E5U 
4" 

96  PAINT (lip, 128) , 1, 1:DRAW"BM120 
,130C0E20BE11R20L40R12BE24R14L7B 
E3R2EGL4UBR2BE2UE2GBFBREGBL6E" : C 
OLORl,0:LINE(0,40)-(255,40)  ,PSET 
:GOSUB132 

97  IFCU=0THENPRINT"YOU  SEE  A  PIL 
E  OF  STRANGE  PIECESOF  CARDBOARD. 

ON  THEM  ARE  DRAW  PICTURES  OF  B 
LUE  MEANIES,  BLUE  PEOPLE,  AND  B 
LUE  CLOWNS.  THEY  1 RECUTOUTS . "  ELS 
EPRINT"YOU  SEE  MOUNTAINS." 

98  GOSUB118 : IFC$="N"ORC$="E"THEN 

PRINT "THERE  ARE  MOUNTAINS  THERE. 

":GOT098  ELSEIFC$="S"THENX=4 : Y=8 
:GOTO130  ELSEIFC$="W"THENX=2: Y=7 
:GOTO130  ELSEIFC$="HELP"THENPRIN 

T"GET  THE  CUTOUTS  AND  CUT  OUT.": 

GOT098 

99  IFC$="GET  CUTOUTS "ANDCU=0THEN 
PRINT"YOU  CAN  HIDE  FAIRLY  WELL  B 
EHIND  THEM.":CU=l:GOT098  ELSEIFC 
$="GET  CUTOUTS "ANDCU=1THENPRINT" 
YOU  HAVE  THEM. " :GOT098  ELSEIFC$= 
"LOOK  CUTOUTS "THENPRINT"THEY  LOO 
K  LIKE  BLUE  PEPPERIES . " : GOT098 

100  PRINT" I  DON'T  UNDERSTAND" : GO 
T098 

101  PMODE3,l:PCLS:COLOR2,3:FORK= 
60TO100STEP2  :  LINE  (255,  K) -  (165,  K) 
, PSET : NEXTK : DRAW" BM1 64 , 100C3G8L3 
0H2L30H4U4E4H4U4E4R4E6L12H4U4E4L 
50H4U4E4R80E2R30F10D40U40H10L20 

102  PAINT (160,90) ,3,3: DRAW+"C1G1 
0L14G4D4F4R30F10R10L15G16D4G4E4U 
4H4L30R30E4U4H4L30U5R30E4BU10BL2 

4  LI 2  G2  BD1 6  BR2  C0U4  BR4  D4BR4BU2U2BU 
10BR12U6D6H2U2E2R10L8D2C1D2 

103  GOSUB132 

104  PRINT" YOU  SEE,  OH  NO!  THE  DR 
EADED  BLUEFLYING  GLOVE-  HE'S  COM 
ING  RIGHT  AT  YOU,  AND  HE  LOOKS  M 
AD." 

105  GOSUB118 : IFC$="HELP"THENPRIN 
T"ALL  YOU  NEED  IS  LOVE .": GOTO 10 5 
ELSEIFC$="SAY  LOVE " ORLEFT$ (C$ , 4) 
="SING"ORLEFT$ (C$ , 4 ) ="PLAY"THENP 
RINT"THE  GLOVE,   IN  REALITY,  LOVE 

5  TO  LOVE, AND  LOVES  MUSIC. ":X=4: 
Y=8:GOTO130  ELSEIFC$="N"ORC$="S" 
ORC  $ = " E " ORC  $= " W " THEN 10  3 

106  IFC$="LOOK  GLOVE "THENPRINT"H 
E  LOOK  MEAN,  AND  UNLOVED .": GOTO 1 
05  ELSEIFLEFT$(C$,4)="LOVE"ORRIG 
HT$ (C$ , 4) ="LOVE"ORLEFT$ (C$ , 3 ) ="Y 
ES"ORRIGHT$ (C$ , 3 ) ="YES"THENPRINT 


"LOVE  IS  ALL  YOU  NEED,  AND  SO 
DOES  THE  GLOVE. " : X=4 : Y=8 : GOT013 

P 

107  GOSUB133:PRINT"A  THICK,  BLAC 
K  SMOKES  POURS  FROMTHE  HOLE,  PLA 
CED  ON  THE  SIDE  OF  THE  BALL.  THE 
N,  SLOWLY,  BUT  SURELY,  SGT. 
PEPPER'S  LONELY  HEARTS  CLUB  B 
AND  COMES  ALIVE.  YOU'VE  DONE  I 
Till   THE  GLOVE  IS     NOW  GOOD,  THE 

MEANIES  ARE  BACK  "; 

108  PRINT "WHERE  THEY  BELONG,  AND 
ALL  THE     PEOPLE  ARE  FREED  FROM 

THE  BLUES . CONGRATULATIONS .  PERHA 
PS  NOW  THEBEATLES  CAN  GO  HOME,  A 
ND  YOU  CANTAKE  A  LONG  REST  AND  L 
ISTEN  TO     YOUR  BAND  


109  PMODE4,l:PCLSl:LINE(0,0)-(25 
6,192), PRESET , B : PMODE3 , 1 : DRAW'BM 
102 , 30C3E2R31FDGL14G2D7G2L13H2U1 
0 " : PAINT (105,34),3,3: DRAW" BM40 , 1 
92C1U20L6H2U4E2U4E2U4E2U4E2U4G2L 
4G2L4G2L6HL2H2U6E2R2E2R6E2R6E2R1 
0E2R10F4R6E4F4R2F4D10F2D12G4L4H2 
5E6F8G5E5F9U4BD18 

110  CIRCLE(22, 141) ,5,1,1.5, .75, . 
25 : DRAW+"BU9BL4D15G2L15H2U10E2U1 
0D10G2D10G2L10BR25D30BM83 , 192U4E 
2U2E2U2E2U2E2U2E2U4H2U4H2U2H2BU1 
6BH2E4R2F6G6L2H6F6R2E6H6E2R2F4R8 
E4R4F4R2F4D10G2D2G2D2G2D4G2D4F2D 
2F2D2D2F2D2F2D2F2D4" : PAINT (43 , 15 
3) ,3,1: PAINT (43, 188) ,2,1 

111  DRAW+»L7U5H10L11G10D5BM120, 1 
35E5R10F10E10R2F3D2G15L13H2U10D1 
0F2R2E10G10R12F2D4R4E2U4H2L4D6G2 
L20BL6U4D18BU3  7BR40F5BD60BL6U24E 
10R2H2U4H2L6H2U2E2R6U6R15D4R2D2L 
15R2D4F5R6E2R10G6L8E6G6L2G8L6BG4 
BD5R16E14U2BD50BR5U20F6R4E12U4L2 
0H5 

112  DRAW"BM53,192U20BM105,192U20 
" : PAINT ( 140 , 190 ) , 2 , 1 : PAINT (85,19 
0) ,1,1: PAINT (180, 190) ,3,l:DRAW"B 
M117 , 165C3L6H20U3BE6R2F12E3U2E3 

113  PMODE4,1:DRAW"BM74,128C0U2E4 
UE3U3HL3GL2G2D10GD2U2EU15E2U2H2L 
6U5HL2GD5L2G2D2F2R11L11D3R11L11G 
2R9ER2EBD2BL11D12U3E3R4F4BL3G2LH 
2R3BU5L2U5BL2L2H2L2G2D4FR2FDF4BR 
32BU10E4R12F4D4G4D4U4BL3U12D12GH 
3  L2  G3 " : PAINT (75, 122), 0,0: PAINT ( 5 
5,120) ,0,0:PAINT(64,125) 

114  DRAW+"HU11G5D2F2D4U4H2U3E6U2 
H3R4E2R5F2R4G3L9R9D3L7BD3D5RBM13 
8 , 132E2U4H2U4G2L3H2U2E2R3FR5F2R4 
E2R2U4HL10GD4U4ER4H2U2E2R2F2D2G2 
R4FD4R2ER3F2D2G2L2H2D4G2D4G3L5H3 
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U13R10D12BLH2L4G2RER2FRLHLBU3LU4 
BM170 , 157R5BU13BR8F2D2L2D3BR10R3 
0ER3E2RE2D13H2LH2L4F2D2 

115  DRAWG2L5BU2R2EU2HL21GD2FR20 
"  :  PAINT  ( 1J32  , 12 7 )  ,0,0:  PAINT  (134,1 
20)  ,0,01  PAINT  (153  ,119)  ,0,01  PAINT 
(172,156) , 0,0: CIRCLE ( 172, 120) ,20 
,0,1,  .55,  .  16:  CIRCLE  (172, 12J3)  ,5,0 
:GOSUB13  3 

116  PM0DE3  , 1 :  PAINT  ( 17j3 , 16J3)  ,3,1: 
PAINT  (170, 165)  ,3,1:  :  FORK=90TO10J3 
:W=INT(RND(4) ) : CIRCLE (100, K) , 120 
,W, .5, .6, .75:NEXTK:PM0DE4, 1:SCRE 
EN1,1:G0T0116 

117  PRINT "DONE" : END 

118  1  COMMAND  ROUTINE 

119  INPUT"WHAT  DO  YOU  DO" ;C$ 

120  IFC$=""THEN119  ELSEIFLEFT$ (C 
$,4)="KILL"THENPRINT"WE  DON'T  KI 
LL  IN  PEPPERLAND. . . " : GOT0118ELSE 
IFLEFT$ (C$ , 3 ) ="NOR"  ORLEFT$ (C$ , 5 
)="GO  NO"THENC$="N"  ELSEIFLEFT$ ( 
C$,3)="SOU"  ORLEFT$(C$,5)="GO  SO 
"THENC$="S"  ELSEIFLEFT$ (C$, 3) ="R 
UN " THENC  $ =MI D  $ ( C  $ , 5 ) 

121  IFC$="RUN"THENINPUT"WHICH  DI 

RECTION";C$:GOTO120  ELSEIFLEFT$ ( 

C$ , 3 ) ="WES"ORLEFT$ (C$ , 5) ="GO  WE" 

THENC$="W"  ELSEIFLEFT$ (C$, 3) ="EA 

S  " ORLEFT$  ( C$ ,  5 )  = 11  GO  EA" THENC $= " E 
it 

122  IFC$="LOOK"THENGOSUB13 2 : GOTO 
118  ELSEIFC$="ASK  KEY"ANDLM=1AND 
KY=0THENPRINT " THE  LORD  MAYOR  GRA 
CIOUSLY  HANDS  YOU  THE  KEY" : KY=1 : 
GOT0118ELSEIFC$="ASK  KEY"ANDLM=1 
ANDKY=1THENPRINT" YOU'VE  GOT  IT." 
:GOT0118 

123  IFC$="INVEN"THENGOSUB143 :GOT 
0  118  ELSEIFC$="SAVE"THENGOSUB13 
8: GOTO  118  ELSEIFC$=" LOAD"THENGO 
SUB155 : GOT0118  ELSEIFC$="QUIT"TH 
EN INPUT "ARE  YOU  SURE" ; C$ : IFC$=" Y 
"THENEND  ELSE118 

124  IFLEFT$(C$,3)="PUT"THEN126 

125  RETURN 

12  6  IFRIGHT$ (C$,3) ="KEY"ANDKY=1T 
HENPRINT"IT  BREAKS  AS  YOU  PUT  IT 

DOWN":KY=0:GOTO118  ELSEIFRIGHT$ 
(C$,4) ="HOLE"AND  HO= 1THENPRINT " T 
HE  HOLE  FALLS  ON  THE  GROUND  ANDD 
ISSAPEARS. "  :HO=j3:GOT0118 
127  IFRIGHT$(C$,6)="WRITER"ANDTY 
=1THENPRINT" IT  SMASHES  ON  THE  GR 
OUND . " : GOT0118  ELSEIFLEFT$ (C$,8) 
="PUT  APPL"THENPRINT"IT  TURNS  TO 

MUSH. " ; :AP=0:GOTO118  ELSEIFRIGH 
T$(C$,4)="ROPE"THENPRINT"AS  IT  T 
OUCHES  THE  GROUND, IT  ROTSAWAY.": 


RP=p:GOT0118 

128  IFRIGHT$(C$,4)="OUTS"THEN  CU 
=0:PRINT"THE  CUTOUTS  SMASH  ON  TH 
E  GROUND. ";: GOTO 118  ELSEIFRIGHT$ 
( C $ , 5 ) = "MENTS " THENPRINT " THE  INST 
RUMENTS  BREAK. ":IN=p: GOTO  118  EL 
SEIFRIGHT$ (C$ , 5) =" FORMS "THENPRIN 
T"THEY  GET  ALL  MUDDY  AND  USEL 
ESS.":UN=j3:GOT037 

129  PRINT" YOU  DON'T  HAVE  IT  TO  P 
UT  DOWN .": RETURN 

130  IFX=1ANDY=8THEN7  ELSEIFX=2AN 
DY=8THEN24  ELSEIFX=3 ANDY=8THEN3 7 

ELSEIFX=4ANDY=8THEN52  ELSEIFX=1 
ANDY=9THEN68  ELSEIFX=2ANDY=7THEN 
89  ELSEIFX=3ANDY=7THEN95 

131  PRINT "YOU  HAVE  AN  INCORRECT 
FILE-TRY    AGAIN. " : GOSUB155 : GOTOl 
30 

132  PMODE4,l:SCREENl,l:IF  INKEY$ 
<  >  ii  ii  THENRETURNE  LS  E 1 3  2 

133  PRINT@508 , "<E>" ; : IFINKEY$=CH 
R$( 13) THENPRINT: RETURN  ELSE  PRIN 
T@5p8, " [E] " ; : IFINKEY$=CHR$ (13) TH 
ENPRINT : RETURN  ELSEGOT013  3 


134  G0SUB13 3: PRINT "WE'RE  SORRY  T 
0  ANNOUNCE  THAT  YOUHAVE  COME  TO 
THE  END  OF  YOUR  ADVENTURE.  YO 
U  HAVE  FAILED,  BUT  WHO  KNOWS?  pe 
rhaps  SOMEONE  ELSE  ESCAPED  PEPPE 
RLAND,  perhaps  THE  BEATLES  CAN  S 
AVE  PEPPERLAND  ON     THEIR  OWN." 

135  PRINT "BUT,  IT'S  NOT  THAT  BAD 
.  LOOK  ON  THE  BRIGHT  SIDE-BLUE  I 
S'NT  that  BAD  OF  A  COLOR  


13  6  FORK=1TO512:FORT=1TO10:NEXTT 
:PRINTCHR$ (175) ; : NEXTK : CLS  3 : PRIN 
T@11,"TRY  AGAIN"; : INPUTC1$ : IFC1$ 
="Y"THENRUN  ELSEEND 

137  PMODE4,l:SCREENl,l:PMODE3,l: 
PCLS2 :IFINKEY$=" "THEN137ELSERETU 
RN 

138  'SAVE  ROUTINE 

139  INPUT" tAPE  OR  dISK" ; D$ : IFD$= 
"T"THEN  D=-1ELSEIFD$="D"THEN  D=l 
ELSE139 

14/3  INPUT"FILENAME";F$:OPEN"0",  # 

D,  F$ 

141  PRINT  #  D , X , Y , LM , AP , KY , HO , RG , J 
N , PL , GE , JE , TY , EG , DR , RP , CU , WN , IN , 
UN 

142  CLOSE  #D: RETURN 

143  '  INVENTORY 

144  PRINT"  inventory": 

145  PRINT "YOU  HAVE:": IF  KY=1THEN 
PRINT "A  GOLD  KEY." 

146  IFLM=1THENPRINT"Y0UR  LORD  MA 
YOR.  " 

147  I FAP= 1THENPRINT "A  GREEN  APPL 

E.  " 

148  I FHO= 1THENPRINT "A  HOLE  IN  YO 
UR  POCKET." 

149  IFTY=1THENPRINT"A  TYPEWRITER 
ii 

150  IFRP=1THENPRINT"A  ROPE." 

151  IFCU=1THENPRINT"A  CUTOUT  OF 
BLUE  PERSON." 

152  IFIN=1THENPRINT"BAND  INSTRUM 
ENTS . " 

153  I FUN= 1THENPRINT " MI LITARY  UNI 
FORMS . " 

154  RETURN 

155  'LOAD  ROUTINE 

156  INPUT"tAPE  OR  dISK" ; D$ : IFD$= 
"T"THEND=-1  ELSEIFD$="D"THEND=1 
ELSE156 

157  INPUT " F I LENAME " ; F$ : OPEN"I" , # 
D,F$ 

158  INPUT#D, X, Y, LM, AP, KY , HO , RG, J 
N , PL , GE , JE , T Y , EG , DR , RP , CU , WN , IN , 
UN 

159  CLOSE#D: RETURN 

160  PCLEAR4 : GOTOl  ^ 
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CHIEF  INSPECTCK 


  Program  by  Jeff  Crow 

 :  1 

ood  morning,  Inspector.  How  are  you  doing 
on  that  promotion  you've  been  eyeing  for  years? 
If  you  can  solve  this  case,  you're  bound  to  get 
it. 

Mr.  B.  L.  Brown,  the  president  of  the  Brown 
Paper  Products  Company,  has  been  found  dead 
in  an  upstairs  bathroom  at  his  country  estate. 
You're  familiar  with  the  company's  products 
because  you've  been  using  them  for  years  — 
those  brown  paper  bags  you  wrap  your  lunch 
in  every  day. 

The  coroner's  report  isn't  back  yet  so  nobody 
knows  how  Brown  was  murdered.  The  mobile 
crime  unit  has  been  through  the  mansion 
dusting  for  fingerprints  and  other  clues,  but 
has  found  nothing. 

Statements  have  been  taken  from  some 
people  who  were  in  the  house  at  the  time  of 
the  murder.  Apparently  Brown  had  called  some 
friends  over  to  make  an  important  announce- 
ment, one  he  never  had  a  chance  to  make. 

The  suspects  and  their  relationship  to  the 
deceased  are: 
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Miss  Jane  Prude,  secretary 
Ms.  Sylvia  Smythe,  mistress 
Mr.  John  Dough,  accountant 
Mr.  Billy  Green,  nephew 
Mr.  Edward  Jones,  vice-president 
Mr.  Lawrence  Hobson,  butler 

They  all  claim  to  be  innocent,  of  course,  and  each  probably  has  his  or 
her  reason  for  suspecting  someone  else  in  the  group.  You  can  expect  a  lot 
of  bias  and  not  much  help  by  interrogating  them.  But  you  learned  a  long 
time  ago  to  do  everything  by  the  book. 

To  solve  the  mystery,  use  two-word  commands  to  move  through  the  house 
to  examine  and  pick  up  clues.  To  make  it  easier,  you  need  only  to  type  the 
first  three  letters  of  the  verb  (LOOk,  EXAmine,  INSpect).  Due  to  a  large 
assortment  of  nouns,  you  will  have  to  type  in  at  least  the  first  five  letters 
of  the  nouns.  For  directional  commands,  simply  type  in  the  first  letter  ('N' 
for  North,  etc.). 

As  in  any  house,  you  will  discover  a  lot  of  things  just  lying  around.  You 
must  decide  which  are  important  to  the  case.  Pay  attention  to  where  objects 
are,  look  in  things,  collect  the  clues  that  seem  to  suggest  means,  method, 
motive  and  opportunity. 

You  are  aware  that  the  murderer  could  have  planted  some  clues  to  make 
other  persons  look  guilty.  However,  the  culprit  will  be  the  person  with  the 
largest  number  of  clues  pointing  to  him  or  her. 

If  you  think  you  know  who  committed  the  act,  type  ACCusation.  Then 
you  will  be  prompted  to  fill  out  a  report,  giving  the  suspect's  full  name,  his 
relationship  to  the  deceased,  and  all  the  evidence  needed  for  a  conviction. 
Be  sure  to  enter  the  evidence  exactly  as  it  appears  in  the  INVentory.  To 
review  the  statements,  type  STAtements. 

This  program  consists  of  two  listings.  The  first  is  to  help  you  achieve  the 
maximum  display.  It  has  been  provided  because  the  opening  display  is  intended 
for  a  computer  monitor;  it  does  not  look  good  on  some  TV  sets.  After  the 
first  listing  is  loaded,  you  will  receive  instructions  on  how  to  achieve  optimum 
readability.  You  will  then  be  queried  on  whether  you  are  using  disk  or  cassette. 
Cassette  users  should  wait  until  OK  appears  on  the  screen,  indicating  that 
the  loading  of  the  second  listing  is  complete. 

There  is  a  PCLEflR  in  the  program  which  could  cause  an  error  to  occur 
anywhere  in  the  Adventure.  If  this  occurs,  simply  press  the  BREAK  key  and 
type  RUN  again  and  the  error  should  not  reoccur. 
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To  save  a  game  in  progress,  type  SAVe.  You  then  will  be  asked  if  you 
are  using  disk  or  cassette.  Next,  you  must  name  the  file.  If  you  respond  by 
only  pressing  the  ENTER  key,  the  default  name  ADVDATA  will  be  used. 
To  load  a  save,  simply  type  LOAd. 

For  this  game,  directional  commands  are  considered  verbs  since  you  need 
only  to  type  in  the  first  letter.  Those  separated  by  a  slash  (/)  are  acceptable 
for  the  same  action.  The  following  is  a  list  of  available  verbs:  North,  South, 
East,  West,  Up,  Down,  Inventory,  Look,  Statements,  Save,  Load,  Accusation, 
Quit,  Get/ Take/ Carry,  Drop,  Examine/ Inspect/ Read,  Open,  Move/ Pull, 
Push,  Enter/ Type  and  Unlock. 


(Jeff  Crow  currently  is  a  ride  operator  at  Six  Flags  Magic  Mountain  in 
Valencia,  Calif  Jeff  hopes  to  start  his  own  software  business.) 


r  INSPMOD 


32K  ECB 


1  1  * PROGRAM  1  "INSPMOD" 

2  1 *MEMORY  MODIFICATION  FOR  THE 

3  ' *ADVENTURE ,  "INSPECTR" 

4  '* 

5  ' *BY  JEFF  CROW 

6  '* 

10  CLS: PRINT "MEMORY  CHECK  AND  MO 
DIFICATION  IN  PROGRESS." 
20  IF  PEEK(116) <>127  OR  PEEK(327 
68)<>69  THEN  PRINT : PRINT"SORRY , 
YOU  NEED  A  3  2K  COMPUTER  WITH  EX 
TENDED  BASIC  TO  RUN  THIS  ADVENTU 
RE. " :END 

30   CLEAR200, &H7FA0 
40  I=&H3000 

50  READ  A: IF  A=999  THEN  70 
60  POKEI, A:  1=1+1 '.GOTO  50 
70  EXEC&H3000 
80  POKE&HB2,0 

90  CLS: PRINT"  ADJUST  BRIGHTNESS 
SO  THAT  THE  AREA  AROUND  THE  CHA 

RACTERS  IS  BLACK." 

100  PRINT"  THEN  ADJUST  CONTRAST 
(CALLED     PICTURE  ON  SOME  TV  SET 

S)    SO  THATTHE  CHARACTERS  ARE  MOS 

T  READABLE"; 

110  PRINT"     ADJUST  SHARPNESS  FOR 
CLEAREST  CHARACTER  DEFINITION." 
120  PRINT"     FINE  TUNE  BY  REPEATI 


NG  THE  PROCESS." 
130  PRINT"     IF  THE  GREEN  ON  BLAC 
K  DISPLAY  IS  ACCEPTABLE,   PRESS  < 
C>,  OTHERWISE,    PRESS  <Q>  T 

0  GO  BACK  TO  NORMAL  DISPLAY,  THE 
N  LOAD  ANDRUN  'INSPECTR'." 
140  A$=INKEY$:IF  A$="Q"  THEN  150 
ELSE  IF  A$="C"  THEN  160  ELSE  14 

0 

150  POKE&HFFDE,0:POKE113,0:EXEC& 
HA027 

160  CLS:PRINT"IS  THE  NEXT  PROGRA 
M  ON  <C>ASSETTE  OR  <D>I 

SK?" 

170  A$=INKEY$:IF  A$="C"  THEN  CLO 
AD" INSPECTR"  ELSE  IF  A$="D"  THEN 

RUN"INSPECTR/BAS"  ELSE  170 
1000  DATA26, 80, 142, 128,0, 166, 132 
,127,255,223,167,132,161,128,38, 
88, 127,255,222, 140,255,0,37,237, 
127,255,223,134,32,183,163,24 
1010  DATA183, 163, 36,183, 163, 89,1 
83,161,186,183,169,41,134,21,183 
,161,158,204,8,2,183, 163,57,247, 
163,61,134,159,183,163,63,134 
1020  DATA126,183,161,163,204,232 
,0,253,161,164,142,48,190,206,23 
2,0,166,12  8,167,192,140,4  8,205,3 
5,247,252,1, 103,253, 127, 161, 182, 
1 
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1030  DATA105, 183, 127, 163,28,175, 
57,127,2  55,2  22,252,1,103,253,12  7 
,161,182,1,105,183,127,163,134,1 
26,183,1,103,142,127,164,191,1,1 
04,204,125,0,237,129,204,111,38, 
2  37,12  9,134,248,167,128,204,50 
1040  DATA98, 237, 129, 16, 142, 163,1 
0,166,160,167,128,16,140,163,94, 
35,246,134,32,183,127,185,18  3,12 
7,197,183,127,250,204,8,2,183 
1050  DATA127,218,247,127,222,134 
,159,183,127,224,32,167,99,141,0 
,11,39,4,134,32,32,2,134,63,126, 
161, 169,0,999 


INSPECTR 


50   'LISTING  2 

100   '         CHIEF  INSPECTOR 

200  ' 

300    'BY  JEFF  CROW 

400    1        27711  CALYPSO  LANE 

500   •       CANYON  COUNTRY,   CA.   913  5 

1 

600  1 

700  CLEAR200, &H7FA0 

800  POKE188,8:POKE183,0:PCLEAR1 

900  C=PEEK ( 178 ) AND1 

1000  DIMRS$(22) ,RD(22,6) ,OP(22,2 

5) ,OB$(25) ,NS$(52) ,IN(25) ,VB$(27 

) 

1100  EV$="WICACOTEHA" 

1200  FOR  1=1  TO  22 :READ  RS$(I):N 

EXT 

1300  FOR  1=1  TO  22: FOR  J=l  TO  6: 
READ  RD(I,J):NEXT  J, I 
1400  OP(4/2)=2:OP(4,20)=-1:OP(5, 
24 ) =1 : OP ( 7 , 1 ) =2 : OP ( 7 , 4 ) =2 : OP ( 7 , 1 
1) =2 : OP ( 7 , 13 ) =2 : OP ( 7 , 15 ) =1 : OP ( 7 , 
18)=l:OP(7,21)=l:OP(8,24)=l:OP(9 
, 5 ) =2 : OP ( 9 , 2  4 ) =-1 : OP ( 13 , 10 ) =2 : OP 
(13,12)=2 

1500  OP(14,8)=2:OP(14,9)=2:OP(15 

, 22 ) =-1 : OP ( 15 , 2  3 ) =-1 : OP ( 16 , 19 ) =2 

: OP ( 17 , 7 ) =2 : OP ( 17 , 14 ) =2 : OP ( 17 , 16 

) =2 : OP ( 17 , 17 ) =2 : OP ( 18 , 3 ) =2 : OP ( 18 

,6)=2:OP(19,25)=-l 

1600  FOR  1=1  TO  2 5 : READ  OB$(I):N 

EXT 

1700  FOR  1=1  TO  52 :READ  NS$(I):N 
EXT 

1800  FOR  1=1  TO  2 7 : READ  VB$(I):N 
EXT 

1900  RM=1:F1=1:F2=1:F3=0:F4=0:F5 


=1 : F6=l : F7=l : F8=l : F9=l 

2000  GOSUB32600 

2100  CLSC: PRINT  RS$(RM) 

2200  FOR  1=1  TO  25 

2300  IF  OP(RM,I)=-l  THEN  PRINT  O 

B$(I) 

2400  NEXT 

2500  LINEINPUT">";CM$:IF  CM$="" 
THEN  2500 

2600  V$=LEFT$(CM$,3) :VB=0 

2700  IF  V$="TAK"  OR  V$="CAR"  THE 

N  V$="GET" 

2800  IF  V$="INS"  OR  V$="REA"  THE 
N  V$="EXA" 

2  900  IF  V$="PUL"  THEN  V$="MOV" 
3000  IF  V$="TYP"  THEN  V$="ENT" 
3100  FOR  VB=1  TO  27: IF  V$=LEFT$ ( 
VB$(VB),3)   THEN  3300  ELSE  NEXT 
3200  GOTO  35700 

3300  IF  VB<13  THEN  VS=1  ELSE  IF 
VB>20  THEN  10300  ELSE  VS=VB-11 
3400  ON  VS  GOTO  3500,4000,2100,8 
900,4500,5100,6200,8700,34400 

3  500  IF  VB>6  THEN  VB=VB-6 

3600  T=RD(RM,VB) : IF  T=0  THEN  338 
00 

3700  IF  T=16  AND  F6=l  AND  RM=17 
THENPRINT"THE  DOOR  IS  LOCKED. ":G 
OTO  2500 

3800  IF  T=17  AND  F6=l  AND  RM=16 
THENPRINT 11  THE  DOOR  IS  LOCKED.  ":G 
OTO  2500 

3900  RM=T : GOTO  2100 
4000  PRINT  "YOU  ARE  CARRYING  " ; 
4100  IF  MI=0  THEN  PRINT  "NOTHING 
.":GOTO  2500  ELSE  PRINT  "THE  FOL 
LOWING : » 

4200  FOR  1=1  TO  25 
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4300  IF  IN(I)=1  THEN  PRINT  NS$(I 
) 

4400  NEXT: GOTO  2500 

4500  A$="SAVE  TO":GOSUB  5700: OPE 

N"0", #DV,A$ 

4600  FOR  1=1  TO  22: FOR  J=l  TO  25 
4700  PRINT#DV,OP(I, J) ; :NEXTJ,I 
4800  FOR  1=1  TO  25:PRINT#DV,IN(I 
)  ; :  NEXT 

4900  PRINT#DV,F1;F2 ;F3 ;F4 ;F5;F6; 
F7 ; F8 ; F9 ; RM ; TA ; MI 
5000  GOTO  5600 

5100  A$="LOAD  FROM":GOSUB  5700:0 
PEN"I", #DV,A$ 

5200  FOR  1=1  TO  22: FOR  J=l  TO  25 
5300  INPUT # DV , OP ( I , J )  : NEXT J , I 
5400  FOR  1=1  TO  25:INPUT#DV,IN(I 
)  :  NEXT 

5500  INPUT#DV,F1,F2,F3,F4,F5,F6, 
F7,F8,F9,RM,TA,MI 

5600  CLOSE : PRINT : PRINT "DONE" : GOT 
0  2500 

5700  PRINTA$ ; "  <D>ISK  OR  <C>ASSE 
TTE":INPUTA$ 

5800  IF  A$="D"  THEN  DV=1  ELSE  IF 
A$="C"  THEN  DV=-1  ELSE  5700 

5900  INPUT" FILENAME" ; A$ : IF  A$="" 
THEN  A$="ADVDATA" 

6000  PRINT"READY  DEVICE  THEN  PRE 

SS  A  KEY" 

6100  IF  INKEY$=" "  THEN  6100  ELSE 
RETURN 

6200  CLSC:PRINTSTRING$ (38, "#")  ;" 
ACCUSATION     REPORT  ";STRING$(38 
r  "  #  M ) 

6300  PRINT "NAME  OF  THE  ALLEGED:" 
6400  INPUTA$:IF  A$=""  THEN  6400 
6500  PRINT :PRINT"RELATIONSHIP  TO 

THE  DECEASED:" 
6600  INPUTR$:IF  R$=""  THEN  6600 
6700  FA=0:T=0 

6800  IF  LEFT$(A$,2)o"BI"  THEN  F 
A=l 

6900  IF  RIGHT$(A$,2)<>"EN"  THEN 
FA=1 

7000  IF  LEFT$(R$,2)<>"NE"  THEN  F 
A=l 

7100  PRINT: PRINT" PRESS  <ENTER> 
WHEN  DONE." 

7200  INPUT" EVIDENCE " ;E$: IF  E$="" 

THEN  7600 
7300  T=T+1:E$=LEFT$ (E$,2) 
7400  IF  INSTR(EV$,E$)=0  THEN  FA= 
1 

7500  GOTO  7200 

7  600  IF  T<>5  THEN  FA=1 

7700  TA=TA+1:CLSC 

7800  IF  FA  THEN  7900  ELSE  8200 

7900  PRINT§133,"**INACCURATE  REP 


ORT**" 

8000  PRINT"  CASE  THROWN  OUT  IN 
COURT." : PRINT"  YOU  RECIEVE  A 
REPRIMAND" : PRINTTAB ( 8 ) ; " FROM  TH 

E  CHIEF." 

8100  PRINT: PRINT "YOU  HAVE  RECEIV 
ED 11  TA" REPRIMANDS"  :  PRINT"THUS  FAR 
.": PRINT : GOTO  2500 
8200  PRINT:  PRINT"  C  O  N  G  R  A  T 
ULATIONS  ! " : PRINT: PRINT" 
YOU  APPREHENDED  THE  MURDERER!" 
8300  PRINT: PRINT: PRINTTAB (7) ;"Y0 
U  TOOK"TA"TRIES. " 

8400  PRINT: PRINT"  YOU  HAVE  BEE 
N  PROMOTED  TO" : PRINTTAB (8 ); "CHIE 
F  INSPECTOR" 

8500  FOR  1=1  TO  1000: NEXT 

8600  PRINTS 4 16, "CASE  CLOSED": END 

8700  INPUT "ARE  YOU  SURE?  Y/N";N$ 

:IF  N$="Y"  THEN  8800  ELSE  2500 

8800  POKE&HFFDE,0:POKE113,0:EXEC 

&HA027 

8900  CLSC: PRINTTAB (11) ; "STATEMEN 
TS" 

9000  PRINT"MRS.  PRUDE:  'I  WAS  TA 
LKING  ON  THE  PHONE  WITH  MR 

.   BROWN'S  NEPHEW  WHO  SAID  H 

E  HAD  CAR  TROUBLE  AND  WOULD 

BE  LATE.  I  COULD  BARELY  HE 

AR  HIM  WITH  LAWRENCE  MAKING  A 
LL  THAT  NOISE  IN     THE  NEX 

T  ROOM. 1 " 

9100  PRINT"ED:  'I  WAS  IN  THE  D 
EN  TALKING  WITH  MS.  SMYTHE. 

IF  YOU  ASK  ME  IT  WAS  HER  EX- 

HUSBAND,  MR.   DOUGH,   HE  WAS 

JEALOUS  OF  BROWN  FOR  SPENDIN 
G  SO  MUCH  TIME  WITH  HER.'" 

9200  GOSUB10000 

9300  PRINT "BILLY:      'I  DIDN'T  DO 
IT!   I  WASN'T  EVEN  THERE 

.    IT  WAS  MR.   JONES,   HE  WOU 

LD  BECOME  THE  HEAD  MAN  WITH 

BROWN  GONE,   BEING  VICE 

PES I DENT  AND  ALL. ' 

9400  PRINT"MR.  HOBSON:  'I  WAS  C 
LEANING  THE  DISHES  WHEN  IT  HA 
PPENED.   MR.  BROWN  WAS  UPSTAIR 

S  TAKING  A  BATH  AS  HE  ALWAYS 

DID  AT  NINE  O'CLOCK.'" 

9500  GOSUB  10000 

9600  PRINT"JOHN:      'I  WAS  IN  THE 
LIVING  ROOM.   I  COULD  SEE 

JANE  ON  THE  PHONE . 1 

9700  PRINT"SYLVIA:      'I  DIDN'T  DO 

IT,   I  WAS  TALKING  TO  THE  VI 

CE  PRESIDENT.'" 
9800  PRINT: PRINT "PRESS  <R>  TO  RE 
VIEW,   <C>  TO  GO     BACK  TO  COMMAND 
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LEVEL." :GOSUB  10100 
9900  IF  N$="R"  THEN  8900  ELSE  21 
00 

10000  PRINT"PRESS  A  KEY  TO  CONTI 
NUE" 

10100  N$=INKEY$:IF  N$=""  THEN  10 
100 

10200  CLS:PRINTTAB(11) ; "STATEMEN 
TS" : RETURN 

10300  T=INSTR(CM$, "  ")+l 
10400  IF  T=l  THEN  34800 
10500  N$=MID$(CM$,T,5) :NN=0 
10600  IF  N$="PAPER"  THEN  N$="CAR 
BO": GOTO  11500 

10700  IF  N$="MAGAZ"  THEN  N$="RAI 
NB":GOTO  11500 

10800  IF  N$="PAINT"  OR  N$="PICTU 
"  THEN  N$="PORTR" : GOTO  11500 
10900  IF  N$="BOX"  THEN  N$="SHOE 
11 :  GOTO  11500 

11000  IF  N$="PHONE"  THEN  N$="TEL 
EP":GOTO  11500 

11100  IF  N$="COUCH"  THEN  N$="SOF 
A": GOTO  11500 

11200  IF  N$="COCO"  THEN  N$="COMP 
U":GOTO  11500 

11300  IF  N$="CASE"  THEN  N$="BOOK 
C":GOTO  11500 

11400  IF  N$="RACK"  THEN  N$="GUN 
R" 

11500  FOR  NN=1  TO  52: IF  N$=LEFT$ 
(NS$(NN),5)  THEN  11700  ELSE  NEXT 
11600  GOTO  34800 

11700  IF  NN<26  THEN  T=OP(RM,NN) 
11800  ON  NN  GOTO  12000,12800,132 
00, 13500, 14000, 14300, 14700, 15000 
, 15500, 15900, 16400, 16800, 17200, 1 
7600,18000,18400,18700,19000,194 
00,19700,20000,20500,20800,21100 
,21600,21900,22200,22500,22800,2 
3200,23800,24300,24  600,24800,268 
00,27100,27400,27700,28100,2840 
11900  ON  NN-47  GOTO  31200,31500, 
31800,32000,32400 

12000  IF  T=-l  THEN  12100  ELSE  35 
600 

12100  ON  VB-20  GOTO  35300,12200, 
12  600, 34900, 34900, 34900, 12700 
12200  IF  Fl  THEN  PRINT  "IT  HAS  A 
PUSH  BUTTON  COMBINATIONLOCK. " : G 
OTO  2500 

12300  IF  F2  THEN  PRINT  "THE  DOOR 

IS  AJAR.": GOTO  2500 
12400  IF  F9  THEN  PRINT  "THERE  IS 

A  WILL  INSIDE  THE  SAFE . " : OP (7 , 4 
)=l:GOTO  2500 

12  500  PRINT  "THE  SAFE  IS  EMPTY." 
:GOTO  2500 

12600  IF  Fl  THEN  PRINT"IT'S  LOCK 


ED.": GOTO  2  500  ELSE  PRINT"OK":F2 
=0:GOTO  2  500 

12700  IF  Fl  THEN  PRINT"YOU'LL  HA 
VE  TO  ENTER  THE  COMB I NAT I 

ON.": GOTO  2500  ELSE  PRINT" IT'S  U 
NLOCKED . " : GOTO  2500 
12800  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

12900  ON  VB-20  GOTO  34200,13000, 
13000,3  5900, 3  5900, 3  4900, 34900 
13000  PRINT "THE  GUN  IS  LOADED,  E 
XCEPT  FOR       TWO  EMPTY  CHAMBERS." 
13100  GOTO  2500 

13200  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

13300  ON  VB-20  GOTO  34200,13400, 
34900, 35900, 3  5900, 3  4900, 34900 
13400  PRINT "THE  CANDLESTICK  IS  B 
ENT!":GOTO  2  500 

13500  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

13600  ON  VB-20  GOTO  13700,13800, 

13800, 35900, 35900, 34900, 34900 

13700  F9=0:GOTO  34200 

13800  IF  IN(NN)=0  THEN  35200 

13900  PRINT"IT  READS, 'I,   B.L.  BR 

OWN,    LEAVE     ALL  MY  POSSESSIONS  T 

0  MY  NEPHEW. ": GOTO  2500 

14000  IF  ABS(T)<>1  AND  IN(NN)=0 

THEN  35600 

14100  ON  VB-20  GOTO  34200,14200, 
34900, 35900, 3  5900, 3  4  900, 3  4900 
14200  PRINT" IT'S  A  LAMP  CORD,  BO 
TH  ENDS  HAVEBEEN  STRIPPED .": GOTO 
2500 

14300  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

14400  ON  VB-20  GOTO  34200,14500, 
14500, 35900, 35900, 34900,34900 
14500  IF  IN(NN)=0  THEN  35200 
14600  PRINT" IT  IS  A  NOTICE  OF  TE 
RMINATION       FROM  BROWN  PAPER  PRO 
DUCTS,   AND     THE  SECRETARY  IS  THE 

TERMINEE ! " : GOTO  2  500 
14700  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

14800  ON  VB-20  GOTO  34200,14900, 
34900, 35900, 35900, 34900, 34900 
14900  PRINT" IT  APPEARS  TO  BE  A  P 
HOTO  OF  THE  BUTTLER  IN  A  LARGE  B 
RASS  BED,  WITH  MR.  BROWN'S  MIS 
TRESS! ":GOTO  2500 

15000  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  IF   (ABS(OP(RM,9) ) =1  OR  IN(9 
)=1)   AND  F7=l  THEN  15100  ELSE  35 
600 

15100  ON  VB-20  GOTO  15200,15300, 
15300,35900, 35900, 34900, 34900 
15200  F7=0:GOTO  34200  
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15300  IF  IN(NN)=0  THEN  35200 
15400  PRINT" IT  READS,    'SYLVIA,  I 
WILL  KILL     HIM  IF  I  SEE  YOU  TOG 
ETER  AGAIN .' IT ' S  SIGNED,  'JOHN1. 
":GOTO  2500 

15500  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

15600  ON  VB-20  GOTO  34200,15700, 
15700,35900, 35900, 34900, 15700 
15700  IF  F7  THEN  15800  ELSE  PRIN 
T"IT'S  A  LEATHER  PURSE.": GOTO  25 
00 

15800  PRINT "THERE  IS  A  LETTER  IN 
SIDE.": GOTO  2500 

15900  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

16000  ON  VB-20  GOTO  34200,16100, 
16100, 35900, 3  5900, 34900, 16100 
16100  IF  IN(NN)=0  THEN  35200 
16200  PRINT"IT  READS,    'DEAR  DIAR 
Y,   NOW  I         KNOW  I  AM  IN  HIS  WIL 
L     I'LL  SOONBE  A  MILLIONAIRE.'" 


■  nil  t  xn 
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16300  GOTO  2500 

16400  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

16500  ON  VB-20  GOTO  34200,16600, 
16600, 35900, 3  5900, 34900, 34900 
16600  IF  IN(NN)=0  THEN  35200 
16700  PRINT" IT  IS  AN  INVESTIGATI 
VE  REPORT       PROVING  THE  ACCOUNTA 
NT  WAS  EMBEZZLING  MONEY  FRO 

M  MR.   BROWN.": GOTO  2500 
16800  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  3  5600 

16900  ON  VB-20  GOTO  34200,17000, 
35800, 35900, 35900 , 34900 ,3  6000 
17000  IF  IN(NN)=0  THEN  35200 


17100  PRINT"IT  IS  A  PROXY  GIVING 
THE  VICE  PRESIDENT  FULL  CONTR 
OL  OF  BROWN  PAPER  PRODUCTS  ON  TH 
E  DEATH  OF  MR.  BROWN.": GOTO  2  50 
P 

17200  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

17300  ON  VB-20  GOTO  34200,17400, 
34900, 3  5900, 3  5900, 34900, 34  900 
17400  IF  IN(NN)=0  THEN  35200 
17  500  PRINT" IT  APPEARS  TO  HAVE  B 
EEN  USED  TO  MAKE  A  COPY  OF  A  TER 
MINATION         NOTICE,   THE  WORD  SEC 
RETARY  HAS     BEEN  TYPED  OVER  THE 
WORDS    'MR.      GREEN '.": GOTO  2500 
17600  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  IF  ABS (OP (RM, 17 ) =1  OR  IN(17 
)=1)   AND  F8=l  THEN  17700  ELSE  35 
600 

17700  ON  VB-20  GOTO  17800,17900, 
34900, 3  5900, 35900, 3  4  900, 34900 
17800  F8=0:GOTO  34200 
17900  PRINT "THEY  ARE  MASTER  KEYS 
.":GOTO  2500 

18000  IF  ABS(T)<>1  THEN  35600 
18100  ON  VB-20  GOTO  18200,18200, 
35000, 18200, 18300, 34900, 34900 
18200  PRINT "THAT ' S  STRANGE,    IT  W 
ILL  NOT  COMEOUT  ALL  THE  WAY.": GO 
TO  2500 

18300  F3=l:PRINT"OK" : GOTO  2500 
18400  IF  ABS (OP(RM, 17) ) <>1  AND  I 
N(17)=0  THEN  35600 

18500  ON  VB-20  GOTO  34900,18600, 
18600, 18600, 18600, 3  4900, 3  6000 
18600  IF  F8  THEN  PRINT "THERE  ARE 
KEYS  INSIDE.": GOTO  2  500  ELSE  PR 
INT "THEY  ARE  EMPTY.": GOTO  2  500 
18700  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

18800  ON  VB-20  GOTO  34200,18900, 
35800, 3  5900, 3  5900, 3  4  900, 3  4  900 
18900  PRINT"THEY  ARE  MONOGRAMED 
' L.H. ' . " :GOTO  2500 
19000  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

19100  ON  VB-20  GOTO  34200,19200, 
19200, 3  5900, 35900, 3  4900, 34900 
19200  IF  IN(NN)=0  THEN  35200 
19300  PRINT" YOU  FIND  THAT  THE  RA 
INBOW  IS  A     GREAT  SOURCE  OF  INFO 
RMATION  FOR  COLOR  COMPUTER  U 

SERS.":GOTO  2500 

19400  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

19500  ON  VB-20  GOTO  34200,19600, 
34900, 35900, 35900, 34900, 34900 
19600  PRINT" THERE  IS  BLOOD  ON  IT 
!":GOTO  2500 
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19700  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

19800  ON  VB-20  GOTO  34200,19900, 
34900,35900,35900,34900,34900 
19900  PRINT"YOU  NOTICE  THERE  IS 
NO  CORD,   IT  APPEARS  TO  HAVE  BEEN 

PULLED  FROM  THE  LAMP.": GOTO 

2500 

20000  IF  RM<>7  THEN  3  5600 
20100  ON  VB-20  GOTO  20200,20300, 
20400,20400,35900,34900,34900 
20200  PRINT" IT'S  ATTACHED  TO  THE 

WALL,    BUT     IT  DOES  APPEAR  TO  BE 

LOOSE.": GOTO  2500 
20300  PRINT"IT  IS  A  PORTRAIT  OF 
MR.   BROWN'S  MOTHER.": GOTO  2500 
20400  OP(RM, 1)=-1:PRINT"THE  PORT 
RAIT  SWINGS  OPEN  TO  REVEAL  A 

SAFE  HIDDEN  IN  THE  WALL": GOTO  2 
500 

20500  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

20600  ON  VB-20  GOTO  34200,20700, 
35800, 35900, 35900, 34900, 36000 
20700  PRINT "THERE  IS  A  STRANGE  M 
ESSAGE  WRITTEN  INSIDE  THE  B 

OX,   IT  READS,    'HICKORY  DICK 

ORY  DOCK,   AS YOU  LOOK  UPON  THE  CL 
OCK,   THE         DIRECTION  IS  COUNTER 
,  THE  INFO     IS  OUTER,   NOW  YOU  CA 
N  OPEN  THE     LOCK.": GOTO  2500 
20800  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

20900  ON  VB-20  GOTO  34200,21000, 
34900,35900, 35900, 34900, 34900 
21000  PRINT "THEY  SMELL  BAD.": GOT 
0  2500 

21100  IF  T=0  AND  IN(NN)=0  THEN  3 
5600 

21200  ON  VB-20  GOTO  21300,21400, 
34900, 35900, 35900, 34900, 34900 
21300  IF  OP(RM,24)=l  AND   (RM=5  0 
R  RM=8)    THEN  35300  ELSE  34200 
21400  IF  OP(RM,24)=l  AND (RM=5  OR 

RM=8)   THEN  35400 
21500  IF  RM=9  THEN  PRINT"IT  IS  P 
ATCHED  IN  TO  THE  TELEPHO 
NE  WIRES.": GOTO  2500  ELSE  35400 
21600  IF  ABS(T)<>1  AND  IN(NN)=0 
THEN  35600 

21700  ON  VB-20  GOTO  34200,21800, 
34900, 35900, 35900, 34900,34900 
21800  PRINT" IT  IS  MONOGRAMED,  'B 
. A. G. '":GOTO  2500 
21900  IF  RM<>4  THEN  35600 
22000  ON  VB-20  GOTO  35500,22100, 
34900,35900, 35900, 34900, 34900 
22100  IF  OP(RM,2)>0  THEN  PRINT"T 
HERE  IS  A  GUN  HIDDEN  BETWEEN  T 


HE  CUSHIONS !":OP(RM, 2) =1: GOTO  25 
00  ELSE  35400 
22200  IF  RM<>5  THEN  35600 
22300  ON  VB-20  GOTO  35500,22400, 
34900,35500,35500,34900,34900 
22400  PRINT"IT  IS  A  LARGE  OAK  TA 
BLE.":GOTO  2  500 
22500  IF  RM<>6  THEN  35600 
22600  ON  VB-20  GOTO  34900,22700, 
34900,34900, 34900, 34900, 34900 
22700  PRINT" THERE  IS  A  KNIFE  SET 
HANGING         OVER  A  CHOPPING  BLOC 
K.   A  KNIFE     IS  MISSING  FROM  THE 
SET.": GOTO  2500 

22800  ON  VB-20  GOTO  35500,22900, 
3  4900,3  5900, 35900, 3  4900, 34900 
22900  PRINT "THERE  IS  A  COLOR  COM 
PUTER  ON  IT, AND  THERE  IS  A  DRAWE 
R  IN  THE  DESK." 

2  3000  IF  OP(7,18)>0  THEN  PRINT "A 
FEW  ISSUES  OF  THE  RAINBOW  LIE  N 
EAR  THE  COMPUTER." 
23100  GOTO  2500 
23200  IF  RM<>7  THEN  35600 
23300  ON  VB-20  GOTO  23400,23500, 
23700, 35900, 35900, 34900,34900 
23400  PRINT" THERE  ARE  JUST  TOO  M 
ANY  WIRES,     CABLES  AND  THINGS.": 
GOTO  2500 

23500  IF  F4  THEN  PRINT"A  QUESTIO 
N  MARK  AND  A  FLASHING  CURSOR  AR 
E  DISPLAYED  ON  THE  SCREEN.": 
GOTO  2500 

2  3  600  PRINT" IT  APPEARS  TO  BE  ALL 

HOOKED  UP.": GOTO  2500 
23700  PRINT"YOU'LL  VOID  THE  WARR 
ANTY! ! ! " : GOTO  2  500 
23800  IF  RM<>7  THEN  35600 
23900  ON  VB-20  GOTO  35500,24000, 
24100,24100, 35900, 34900, 34900 
24000  PRINT"ALL  THE  BOOKS  IN  THE 

BOOKCASE  ARE  BOOKS  ON  BUSSINE 
SS  LAW,  EXCEPT  ONE,    IT  IS  ON 

E  OF  THOSE  SELF  HELP  BOOKS  ENTI 
TLED,  'KEY  TO  OPENING  DOORS'.": 
GOTO  2  500 

24100  IF  F3  THEN  PRINT "THE  BOOKC 
ASE  SWINGS  OPEN  TO  REVEAL  AN 

OTHER  ROOM  TO  THE  WEST . " : RD (7 , 4 ) 
=9: GOTO  2500 

24200  PRINT" IT  DOESN'T  MOVE.": GO 
TO  2500 

24300  IF  RM<>8  THEN  35600 
24400  ON  VB-20  GOTO  35300,24500, 
34900, 35300, 35300,34900, 3  6000 
24500  PRINT "THERE  IS  A  GUN  MISSI 
NG  FROM  THE  COLLECTION .": GOTO  25 
00 

24600  IF  RM<>8  THEN  35600 


24700  ON  VB-20  GOTO  35500,35400, 
34900, 35900, 35900, 34900, 34900 
24800  IF  RM<>7  AND  RM<>17  AND  RM 
<>18  AND  RM<>13  THEN  35600 
24900  ON  VB-20  GOTO  25000,25100, 

25100.25100. 35900.2  6600,2  6700 
25000  IF  RM=7  AND  F5=l  THEN  PRIN 
T"IT  WON'T  OPEN"  .'GOTO  2500  ELSE 
PRINT "IT  WON'T  COME  OUT  ALL  THE 
WAY.": GOTO  2  500 

25100  IF  RM<>7  THEN  25700 
25200  IF  F5  THEN  PRINT"THAT'S  ST 
RANGE,   THE  DRAWER  WON'TOPEN  BUT 
THERE  DOESN'T  APPEAR  TOBE  ANY  LO 
CK.":GOTO  2500 

25300  IF  OP(7,11)>0  THEN  PRINT  0 
B$(ll) :OP(7,ll)=l 

25400  IF  OP(7,13)>0  THEN  PRINT  0 
B$(13) :OP(7,13)=l 

25500  IF  0P(7,13)<1  AND  OP(7,ll) 
<1  THEN  35400 
25600  GOTO  2500 
25700  IF  RM<>13  THEN  25900 
25800  IF  OP (13, 12) >0  THEN  PRINTO 
B$(12) :OP(13,12)=l:GOTO  2500  ELS 
E  35400 

25900  IF  RM<>17  THEN  26300 
2  6000  IF  OP(17,17)>0  THEN  PRINT 
OB$(17) :OP(17,17)=l 
2  6100  IF  OP(17,7)>0  THEN  PRINT  0 
B$(7) :OP(17,7)=l 

26200  IF  0P(17,7)<1  AND  OP(17,17 
)<1  THEN  35400  ELSE  2500  ■  < 

26300  IF  OP(18,6)>0  THEN  PRINT  O 
B$(6) :OP(18,6)=l 

26400  IF  OP(18,3)>0  THEN  PRINT  O 
B$(3) :OP(18, 3)=1 

26500  IF  0P(18,3)<1  AND  OP(18,6) 
<1  THEN  35400  ELSE  2500 
26600  IF  RM=7  AND  F4=l  THEN  3590 
0  ELSE  34900 

26700  IF  RM=7  AND  F5=l  THEN  PRIN 
T" THERE  IS  NO  LOCK.":GOTO  2500  E 
LSE  36100 

26800  IF  RM<>9  THEN  35600 

26900  ON  VB-20  GOTO  35300,27000, 

27000. 35300. 35300. 3  4900, 3  6000 
27000  IF  OP(9,5)>0  THEN  PRINT "TH 
ERE  IS  A  LAMP  CORD  SHORTING  TH 
E  FUSE  BOX  TO  THE  WATER  PIPES.": 
OP(9,5)=l:GOTO  2500  ELSE  35400 
27100  IF  RM<>17  AND  RM<>18  THEN 
35600 

27200  ON  VB-20  GOTO  35500,27300, 
24800, 35500, 3  5500, 3  4900, 3  6000 
27300  PRINT"IT'S  AN  OAK  CHEST  WI 
TH  DRAWERS     IN  IT.": GOTO  2  500 
27400  IF  RM<>14  THEN  35600 
27500  ON  VB-20  GOTO  35300,27600, 


34  900, 35300, 35300, 3  4  900, 3  4  900 
27600  IF  OP(14,9)>0  THEN  PRINT  0 
B$(9) :OP(14,9)=l:GOTO  2500  ELSE 
35400 

27700  IF  RM<>16  THEN  35600 
27800  ON  VB-20  GOTO  34900,27900, 
27900, 34900, 34900, 2  8000, 3  6000 
27900  IF  OP (16, 19) >0  THEN  PRINT" 
THERE  IS  A  KNIFE  HIDDEN  IN  THE 
LINEN. " :OP(16, 19)=l:GOTO  2500  EL 
SE  PRINT "NOTHING  BUT  LINEN  IN  HE 
RE . " : GOTO2500 

28000  PRINT"IT'S  TOO  SMALL.": GOT 
O  2500 

28100  IF  RM<>19  THEN  35600 


28200  ON  VB-20  GOTO  35500,28300, 
28300, 35500, 35500, 34900, 3  6000 
28300  PRINT "THEY 'RE  JUST  WINE  CR 
ATES.":GOTO  2  500 
28400  IF  RM<>4  THEN  35600 
28500  ON  VB-20  GOTO  35500,28600, 
3  4900, 3  5500, 3  5500, 3  4  900, 3  4  900 
28600  PRINT"THE  NUMBERS  TWO,  TEN 
AND  SIX  AREMISSING  FROM  THE  CLO 
CK'S  FACE.": GOTO  2500 
28700  IF  RM<>13  THEN  35600 
28800  ON  VB-20  GOTO  35500,28900, 
24900, 3  5500, 3  5500, 34900, 3  6000 
28900  PRINT"IT  IS  A  LARGE  OAK  BU 
REAU  WITH       DRAWERS .": GOTO  2500 
29000  IF  RM<>9  THEN  35600 
29100  ON  VB-20  GOTO  29200,29200, 
29300,29300, 29  300, 34900, 34900 
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29200  PRINT" IT  IS  ATTACHED  TO  TH 
E  WALL  BUT     IT  DOES  APPEAR  TO  BE 

LOOSE. ": GOTO  2500 
29300  PRINT"THE  PANEL  SLIDES  OPE 
N  TO  REVEAL  AN  ENTRANCE  TO  THE  D 
UMBWAITER. " : GOTO  2500 
29400  IF  RM<>13  AND  RM<>17  AND  R 
M<>18  THEN  35600 

29500  ON  VB-20  GOTO  35500,29600, 
34900,35500,35500,34900,34900 
29600  IF  RM<>13  THEN  35400 
29700  IF  OP(13,10)>0  THEN  PRINT11 
THERE  IS  A  DIARY  HIDDEN  BETWEEN 
THE  MATTRESSES. ": OP (13, 10) =1: GOT 
O  2500  ELSE  35400 

29800  IF  RM<>6  AND  RM<>9  AND  RM< 
>16  AND  RM<>19  THEN  35600 
29900  ON  VB-20  GOTO  34900,35400, 
36100,34900, 34900,30000, 3  6000 
30000  IF  RM=6  THEN  RM=21:GOTO  21 
00 

30100  IF  RM=9  THEN  RM=21:GOTO  21 
00 

30200  IF  RM=16  THEN  RM=2  2:GOTO  2 
100 

30300  IF  RM=19  THEN  RM=20:GOTO  2 
100 

30400  IF  RM<>15  THEN  35600 
30500  ON  VB-20  GOTO  30600,35400, 
34900, 35900, 35900, 34900, 34900 
30600  PRINT "THERE  ARE  TO  MANY  CL 
OTHES  FOR       YOU  TO  CARRY.": GOTO 
2500 

30700  IF  VB=25  THEN  34800 
30800  IF  VB=2  6  THEN  IF  RM=7  THEN 
IF  F4=l  THEN  F5=0:GOTO  35800  E 
LSE  35900  ELSE  35700 
30900  GOTO  35700 

31000  IF  RM=7  AND  VB=25  THEN  F4= 

l:GOTO  35800 

31100  GOTO  34800 

31200  IF  VB<>25  THEN  35700 

31300  IF  RM<20  THEN  34800 

31400  IF  RM=20  OR  RM=21  THEN  RM= 

RM+l:GOTO  2100  ELSE  35900 

31500  IF  VB<>25  THEN  35700 

31600  IF  RM<20  THEN  34800 

31700  IF  RM=21  OR  RM=22  THEN  RM= 

RM-l:GOTO  2100  ELSE  35900 

31800  IF  VB<>25  AND  VB<>26  AND  R 

M<>7  THEN  34800 

31900  IF  OP(7,l)=-l  THEN  F1=0:GO 

TO  35800  ELSE  35700 

32000  ON  VB-20  GOTO  34900,35400, 

32100,32100,32100,34700,32200 

32100  IF  RM=19  OR   ( (RM=17  OR  RM= 

16)   AND  F6=l)    THEN  PRINT"IT'S  LO 

CKED" '.GOTO  2500  ELSE  3  6100 

32200  IF  RM=19  THEN  PRINT"IT'S  L 


OCKED  FROM  THE  OUTSIDE .": GOTO  25 
00 

32300  IF  RM<>17  AND  RM<>16  THEN 
36000  ELSE  IF  IN(14)=1  THEN  F6=0 
:GOTO  3  5800  ELSE  PRINT "YOU  HAVE 
NOTHING  TO  UNLOCK  IT  WITH.": GOTO 
2500 

32400  IF  RM<>14  THEN  35600 
32500  ON  VB-20  GOTO  34900,35400, 
34900,34900, 34900, 34900,34900 
32600  CLSC:T=131 

32700  PLAY"T3;L4. ;C;P32 ;L8 ;C;L4 ; 
D;C" 

32800  FORX=191  TO  319  STEP32 

32900  T=T+35:READT$ 

33000  FORI=X-LEN(T$)   TO  T  STEP-1 

33100  PRINT§I,T$ 

33200  FOR  D=1T012:NEXT 

33300  NEXTI,X 

33400  PLAY"P2;L4. ;C;P32 ;L8 ;C;L4 ; 
D;C;L2 ;E" 

33500  FORI=1TO800:NEXT 

33600  FORI=1TO20: PRINT :F0RD=1T04 

5:NEXTD,I 

33700  RETURN 

3  3  800  PRINT  "THERE  IS  NO  WAY  FOR 

YOU  TO  GO  "; 

33900  IF  VB<7  THEN  VB=VB+6 
34000  PRINT  VB$(VB);"." 
34100  GOTO  2500 
34200  IF  IN(NN)=1  THEN  35100 
34300  IN(NN)=l:MI=MI+l:OP(RM,NN) 
=0:PRINT"OK":GOTO  2  500 
34400  IF  NN>25  THEN  35000 
34500  IF  IN(NN)=0  THEN  35000 
34600  IN(NN)=0:MI=MI-1:OP(RM,NN) 
=-1 : PRINT" OK" : GOTO  2  500 
34700  PRINT"WHICH  DIRECTION  IS  I 
T?":GOTO  2500 

34800  PRINT  VB$ (VB) ; "  WHAT?":GOT 
0  2500 

34900  PRINT  "IT  IS  NOT  POSSIBLE 
FOR  YOU  TO       ";VB$(VB);"  THE  ";N 
S$ (NN) :GOTO  2500 

35000  PRINT  "YOU  AREN'T  CARRYING 

IT.": GOTO  2500 
3  5100  PRINT "YOU  ARE  ALREADY  CARR 
YING  IT.": GOTO  2500 
35200  PRINT"YOU  CANNOT  READ  WHAT 

YOU  DO  NOT  HAVE.": GOTO  2500 
35300  PRINT  "YOU  CAN'T,   IT  IS  AT 
TACHED  TO         THE  WALL.": GOTO  2  50 
0 

35400  PRINT" YOU  SEE  NOTHING  SPEC 
IAL.":GOTO  2500 

35500  PRINT" IT  IS  FAR  TOO  HEAVY 
FOR  YOU  TO  ";VB$(VB) : GOTO  25 

00 

35600  PRINT  "THERE  IS  NO  ";NS$(N 
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N);"  HERE.": GOTO  2500 

3  5700  PRINT  "WHAT?" : GOTO  2500 

35800  PRINT"OK" : GOTO  2500 

3  5900  PRINT  "NOTHING  HAPPENS .": G 

OTO  2500 

36000  PRINT"IT'S  NOT  LOCKED.": GO 
TO  2500 

3  6100  PRINT" IT'S  ALREADY  OPEN.": 
GOTO  2  500 

36200  PRINT"OK" : GOTO  2500 
3  6300  DATA"  YOU  ARE  STANDING  ON 
THE  FRONT  DOORSTEP.  TO  THE  NORT 
H  OF  YOU  ARE  TWO  LARGE  OAK  DOO 
RS  LEADING  INTO  THE  HOUSE." 
3  6400  DATA"  YOU  ARE  IN  THE  FOYE 
R.  THERE  ARE  TWO  LARGE  OAK  DOO 
RS  TO  THE  SOUTH  AND  A  DOORWAY  T 
0  THE  NORTH . " 


3  6500  DATA"  YOU  ARE  STANDING  IN 
A  SMALL  HALL.  THERE  IS  A  DOOR 
TO  THE  EAST,  AND  ANOTHER  TO 
THE  SOUTH.  THERE  IS  AN  OPEN  DOOR 
WAY  LEADINGWEST  INTO  A  LARGE  ROO 
M.  TO  THE  NORTH  IS  A  LARGE  STAI 
RCASE  LEADING  UP." 

36600  DATA"  THIS  IS  A  LARGE,  BE 
AUTIFLY  DECORATED  LIVING  ROOM 
.  THERE  IS  A  SOFA  ON  THE  WEST  WA 
LL,  AND  TO  THE  SOUTH  IS  A  HANDSO 
ME  OAK  GRANDFATHER  CLOCK.  TO 

THE  EAST,   A  DOORWAY  LEADING  INT 
0  A  SMALL     HALL.   TO  THE  NORTH,  A 
DOORWAY  TOANOTHER  ROOM . " 


36700  DATA"     YOU'RE  IN  THE  DINNI 
NG  ROOM.       IN  THE  CENTER  OF  THE 
ROOM  IS  A     LARGE  TABLE.   THERE  AR 
E  DOUBLE       SWINGING  DOORS  TO  THE 

EAST  AND  ADOORWAY  TO  THE  SOUTH. 

THERE  IS  ATELEPHONE  ON  THE  NORT 
H  WALL." 

3  6800  DATA"     THIS  IS  THE  KITCHEN 
.   THERE  IS  A  COUNTER  ON  THE  EAST 
WALL.   ON     THE  WEST  WALL  THERE  I 
S  A  DUMBWAITER.   NEXT  TO  I 

T  ARE  SWINGING  DOORS  LEADIN 

G  WEST." 

3  6900  DATA"     YOU  ARE  IN  THE  STUD 
Y.   THERE  ISA  BEAUTIFUL  POTRAIT  0 
N  THE  NORTHWALL.   TO  THE  EAST  IS 
A  LARGE         DESK  WITH  A  COMPUTER 
ON  IT.   ON     THE  WEST  IS  A  BOOKCAS 
E.   THERE  ISA  DOOR  TO  THE  SOUTH." 
37000  DATA"     YOU  ARE  IN  THE  DEN. 
THERE  IS  ADOOR  TO  THE  NORTH  AND 
ANOTHER  TOTHE  WEST.   ON  THE  WEST 
WALL  IS  A  GUN  RACK.   TO  THE  EAST 
THERE  ARE  TWO  RECLINING  CHAIRS 
WITH  A  TELEPHONE  BETWEEN  THE 

M. 

37100  DATA"  YOU  ARE  IN  A  UTILIT 
Y  ROOM  UNDER  THE  STAIRCASE. 

THERE  IS  A  FUSE  BOX  ON  THE  WEST 
WALL  NEXT     TO  WATER  PIPES  LEADIN 
G  UPSTAIRS . THERE  IS  A  PANEL  ON  T 
HE  EAST         WALL,   NEXT  TO  A  PASS A 
GE  LEADING  EAST.   THERE  ARE  TELEP 
HONE  WIRES  HERE  ASWELL. " 
37200  DATA"     YOU  ARE  AT  THE  TOP 
OF  THE  STAIRCASE.   A  HALLWAY 

LEADS  SOUTH  PARALLEL  TO  THE  STAI 
RS." 

37300  DATA"  YOU  ARE  IN  A  LONG  N 
ORTH-SOUTH  HALLWAY,  THERE  IS  A  D 
OOR  TO  THE  EAST." 

37400  DATA"     YOU  ARE  AT  THE  SOUT 
H  END  OF  A  NORTH-SOUTH  HALLWAY. 
THERE  IS  A  DOOR  TO  THE  EAST  AND 
TO  THE  WEST." 
37500  DATA"     YOU  ARE  IN  A  LARGE 
LAVISHLY       DECORATED  MASTER  BEDR 
OOM.   THERE  IS  A  LARGE  BRASS  BED 
ON  THE  WEST  WALL.   ON  THE  SOUTH  W 
ALL  IS  A       HANDSOME  BUREAU  MADE 
OF  OAK.         THERE  IS  A  DOOR  TO  TH 
E  NORTH  ANDTO  THE  EAST." 
37600  DATA"     THIS  IS  THE  BATHROO 
M.   THERE  ISA  LARGE  MARBLE  BASIN 
ON  THE  WESTWALL  AND  A  BATHTUB  TO 
THE  EAST.   THERE  IS  A  DOOR  TO  TH 
E  NORTH  ANDTO  THE  SOUTH." 
37700  DATA"     YOU  ARE  IN  A  LARGE 
CLOSET.         THERE  ARE  CLOTHES  HAN 


GING  ON         EITHER  SIDE.   THERE  IS 

A  SHOERACKON  THE  NORTH  WALL." 
378)3)3  DATA"     THIS  IS  THE  SERVICE 

ROOM.  THERE  IS  A  LINEN  CLOS 

ET  TO  THE     NORTH  AND  ON  THE  WEST 

WALL  IS  A  DUMBWAITER.   THERE  IS 
A  DOOR  TO     THE  SOUTH." 
37900  DATA"     THIS  IS  THE  SERVENT 
•S  QUARTERS.   THERE  IS  A 

BED  ON  THE  EAST  WALL  AND  A  CHEST 

OF  DRAWERSON  THE  SOUTH.   THERE  I 
S  A  DOOR  TOTHE  NORTH  AND  TO  THE 
WEST.  " 

38000  DATA"  YOU  ARE  IN  THE  GUES 
T  BEDROOM.   THERE  IS  A  BED  ON  THE 

SOUTH  WALLAND  A  CHEST  OF  DRAWER 
S  TO  THE       EAST.   THERE  IS  A  DOOR 

TO  THE  WEST." 
38100  DATA"     YOU  ARE  IN  THE  CELL 
AR.   THERE     ARE  SOME  CRATES  IN  TH 
E  CENTER       OF  THE  ROOM.   THERE  IS 

A  DUMBWAITER  ON  THE  EAS 

T  WALL.   ON  THE  NORTH  WALL  IS  A  D 
OOR  LEADINGTO  THE  BACKYARD,   IT  I 
S  LOCKED       FROM  THE  OUTSIDE." 
38200  DATA"     YOU  ARE  IN  A  DUMBWA 
ITER.   TO       THE  WEST  YOU  CAN  SEE 
A  ROOM." 

38300  DATA"     YOU  ARE  IN  A  DUMBWA 
ITER.   TO       THE  EAST  YOU  CAN  SEE 
A  ROOM.   IN  FRONT  OF  YOU  ARE  TWO 
BUTTONS ,       ONE  MARKED   • UP ' ,  THE 
OTHER  • DOWN 1 . " 

38400  DATA"     YOU  ARE  IN  A  DUMBWA 
ITER.   TO       THE  EAST  YOU  CAN  SEE 
A  ROOM." 

38500  DATA2 ,1,1,1,0,0,3,1,0,0,0, 
0,10,2,8,4,10,0,5,0,3,0,0,0 
38600  DATA0,4,6,0,0,0,0,0,0,5,0, 
0,0,8,0,0,0,0,7,0,0,3,0,0 
38700  DATA0, 0,7, 0,0, 0,0, 11, 0,0,0 
,3,10,12,17,0,0,0,11,0,18,13,0,0 
38800  DATA14,0, 12,0,0,0, 15, 13,0, 
0,0,0,0,14,0,0,0,0,0,17,0,0,0,0 
38900  DATA16,0,0, 11,0,0,0,0,0, 12 
/0,P,0 ,0,0,0,0,0, 0,0, 0,19, 0,0 
39000  DATA0, 0,6, 9, 0,0, 0,0, 16, 0,0 
,t 

39100  DATA  THERE  IS  A  SAFE  IN  TH 
E  WALL., THERE  IS  A  GUN  LYING  HER 
E, THERE  IS  A  CANDLSTICK  HERE. 
39200  DATA  THERE  IS  A  WILL  LYING 

HERE., THERE  IS  A  LAMP  CORD  HERE 
., THERE  IS  A  NOTICE  HERE. 
39300  DATA  THERE  IS  A  PHOTOGRAPH 

LYING  HERE, THERE  IS  A  LETTER  LY 
ING  NEARBY. 

39400  DATA  THERE  IS  A  PURSE  HERE 
.,A  DIARY  LIES  NEARBY ., THERE  IS 


A  REPORT  HERE. 

39500  DATA  A  DOCUMENT  LIES  HERE. 
, THERE  IS  A  PIECE  OF  CARBON  PAPE 
RHERE . , THERE  ARE  SOME  KEYS  HERE . 
39600  DATA  ,, THERE  ARE  SOME  PANT 
S  HERE., THERE  IS  A  RAINBOW  MAGAZ 
INE  HERE, THERE  IS  A  KNIFE  HERE. 
39700  DATATHERE  IS  A  LAMP  SITTIN 
G  NEARBY . , , THERE  IS  A  SHOE  BOX  H 
ERE., THERE  IS  A  PAIR  OF  SHOES  HE 
RE., THERE  IS  A  TELEPHONE  LYING  H 
ERE., THERE  IS  A  HANDKERCHIEF  LYI 
NG       HERE . 

39800  DATASAFE, GUN, CANDLESTICK, W 
ILL, CORD , NOTICE , PHOTOGRAPH , LETTE 
R , PURSE , DIARY , REPORT , DOCUMENT , CA 
RBON  PAPER , KEYS , BOOK , POCKETS , PAN 
TS, RAINBOW  MAGAZINE, KNIFE, LAMP, P 
ORTRAIT , SHOE  BOX, SHOES , TELEPHONE 
, HANDKERCHIEF 

39900  DATA  SOFA, TABLE , COUNTER, DE 
SK, COMPUTER, BOOKCASE, GUN  RACK, CH 
AIR, DRAWER, FUSE  BOX, CHEST, BASIN, 
CLOSET , CRATES , CLOCK , BUREAU , PANEL 
, BED , DUMBWAITER , CLOTHES , OPEN , BUT 
TON , UP , DOWN , " 10 , 6 , 2 " , DOOR , BATHTU 
B 

40000  DATAN,S,E,W,U,D, NORTH, SOUT 
H , EAST , WEST , UP , DOWN , INV , LOO , STA , 
SAV , LOA , ACC , QUI , DROP , GET , EXAMINE 
, OPEN , MOVE , PUSH , ENTER , UNLOCK 
40100  DATACHIEF, INSPECTOR, BY, JEF 
F,CROW  /s\ 
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THE  WANDS 
OF  RAG  A  DUNE 


  Program  by  Larry  Lansberry 

T  — 

he  planet  Vogguk  has  been  held  in  the  grip 
of  the  evil  wizard  Raga  Dune  for  more  than 

 '  200  years,  slowly  deteriorating  into  rolling 

deserts  with  hundreds  of  species  of  cacti  and 
mountains  of  rock  and  sand. 

There  are  few  signs  of  life,  except  for  the 
Vogguk  warriors;  Rotsaluk,  a  fire-breathing 
dragon;  Voggukluk,  a  deadly  spider;  Snuklukug, 
a  venomous  snake;  and  various  robots. 

The  most  feared,  however,  is  Raga  Dune, 
the  evil  and  omnipresent  lord  of  the  planet. 
He  is  a  jealous  entity,  not  receptive  to  any  hint 
of  challenge  to  his  supreme  authority.  The 
inhabitants  of  the  planet  try  to  stay  out  of  his 
sight. 

As  a  conservationist,  you  have  been  sent  to 
Vogguk  as  part  of  a  research  project  being 
conducted  by  the  local  university  to  determine 
whether  the  planet  can  support  new  forms  of 
vegetation.  There  are  isolated  spots  on  the 
planet  where  huge  forests  exist,  indicating  that 
the  soil  is  indeed  fertile  in  those  areas. 
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Robbie,  a  robot,  has  been  assigned  to  your  mission.  Robbie  is  directly 
linked  to  your  psyche,  carrying  out  every  command.  In  many  ways,  the  robot 
is  an  extension  of  your  own  being.  Your  fragile  body  could  not  possibly 
withstand  the  attacks  of  the  inhabitants.  Make  no  mistake,  however,  since 
the  robot  is  so  much  a  part  of  you  that  its  destruction  could  mean  your 
death  as  well. 

You  know  from  a  doctoral  thesis  written  by  one  of  your  students  at  the 
university  that  Raga  Dune  derives  his  power  from  seven  magic  wands  that 
are  strategically  located  on  the  planet.  Before  you  can  conduct  any  experiments, 
you  must  find  the  seven  wands  and  destroy  the  Evil  One.  Any  attempt  to 
kill  Raga  Dune  before  then  will  result  in  failure. 

There  has  been  a  previous  effort  to  deal  with  Raga  Dune,  but  there  were 
no  survivors.  However,  they  did  manage  to  send  the  following  message  back 
to  earth: 

"Forest,  mountain,  forest,  caverns,  dungeons,  three,  north  to  south, 

Seven  wands  of  power  found,  each  unlocking  further  ground, 

The  first  reflected,  the  second  slipped, 

The  third  is  fishy,  the  fourth  a  cow, 

The  fifth  was  stewed,  or  drunk,  or  .  .  ., 

The  sixth  was  a  reminder  of  the  first, 

The  seventh,  cornered  last,  I  could  not  get ..." 

After  reading  the  message,  you  wish  you  had  paid  more  attention  in  English 
literature  classes  when  you  were  a  student.  It's  the  only  help  you  will  receive, 
so  read  it  carefully. 

As  you  begin  the  Adventure,  you  will  see  a  question  mark  to  the  left  of 
Robbie  on  the  screen.  This  means  there  is  a  small  object  there.  Simply  type 
LK  (look)  and  any  object  on  the  ground  will  be  spelled  out  for  you.  Robbie 
is  in  a  forest,  bordered  to  the  west  and  south  by  pyramids.  Raga  Dune  controls 
the  pyramids  and  you  cannot  travel  there. 

If  you  need  a  reminder  of  what  you  are  carrying,  type  DS  for  display. 
The  command  PEER  is  used  to  ensure  an  accurate  picture  on  the  screen. 
Other  verbs:  A  (attack),  K  (kill),  F  (flee),  GET,  DROP,  LIGHT,  OFF,  DON, 
OPEN,  PUT,  CHARGE,  PEER,  V  (view),  DS  (display),  CLUE,  PUT,  GET 
ALL. 

The  following  nouns  will  be  helpful:  RL  (rollers),  MI  (mirror),  HK  (hook), 
RP  (rope),  RC  (recharger),  PP  (powerpack),  BX  (box  w/ button),  IG  (igniter), 
LM  (lamp),  OC  (oil  can),  GR  (grease),  KY  (key),  LS  (laser),  FF  (force  field), 
BG  (bag),  and  WAND. 
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We  suggest  you  get  your  laser  first  and  keep  it  with  you.  If  you  are  attacked 
without  the  laser  in  your  possession,  you  will  be  paralyzed.  When  you  are 
being  assaulted,  press  the  'A'  key  over  and  over.  Using  the  'K'  command 
will  kill  monsters  17  times  out  of  20.  However,  there  is  a  danger  of  "circuit 
overload"  that  can  result  in  Robbie's  destruction.  Don't  panic  if  the  computer 
appears  to  lock  up;  this  merely  means  that  you  are  temporarily  paralyzed 
or  that  a  new  screen  element  is  being  drawn.  When  you  have  killed  a  monster, 
a  treasure  will  be  revealed. 

You  will  notice  the  passage  of  day  and  night.  Monsters  are  definitely  stronger 
during  evening  hours.  There  is  a  way  to  double  your  energy,  but  you  will 
have  to  figure  that  out  yourself.  The  command  HERE  MONSTER  HERE 
MONSTER  will  almost  always  call  a  monster  into  view,  but  don't  use  it 
until  you  have  attained  a  safe  confidence  level.  The  left  arrow  on  your  keyboard 
will  clear  typos  and  allow  you  to  enter  a  new  command. 


(Larry  Lansberry  is  a  computer  specialist  in  Phoenix,  Ariz.,  where  he 
has  been  employed  by  city  government.  He  has  also  written  technical 
manuals  for  programmers  and  users.) 


Caution  —  Packed  Lines!! 

Some  of  the  lines  in  this  program  may  be  too  long  to  enter  in  a  normal  fashion.  If  the  CoCo  stops  accepting 
characters,  press  ENTER,  go  into  the  EDIT  mode,  press  'X'  and  then  type  the  rest  of  the  line  in. 


I-  RAGADUNE     32K  ECB 


5  1  THE  WANDS  OF  RAGA-DUNE 

6  'L.    D.  LANSBERRY 

7  1  PHOENIX  SOFTWARE 

8  '5344  E.   VAN  BUREN  SP  #20 

9  'PHOENIX,   ARIZONA  85008 

10  PCLEAR2:PM0DE1,1:PCLS2:CLS2:S 
CREEN1, 1 

11  CLEAR500:GOSUB27000:GOSUB6000 
0:GOSUB47000:RE=200+RND(50)  :AR=1 
190  :  N=30  :  E=l :  INPUT  "NEW/ SAVED 11 ;  NJ 
$ : IFNJ$<> "NEW" THENPRINT "READY  RE 
CORDER/PRESS  ENTER" 

12  IFNJ$="NEW"THEN15ELSEINPUT"" ; 
NJ$:0PEN"I" , #-1, "WANDS" :INPUT#-1 
, BD, RE , ME , MR, Yl , Y2,Y3,Y4,Y5,Y6,Y 
7 , Y8 , AR , N , E , AQ , RL , NG , TR , QW , BD , DY 
,EU,QT,SS,XX,YY,QA(1) ,QA(2) , QA ( 3 
) ,QA(4) ,QA(5) ,QA(6) ,QA(7) ,QA(8) , 
QA(9) ,QA(10) ,QA(11) ,QA(12) ,QA(13 
) ,QA(14) ,QA(15) 

13  INPUT#-1,U1,U2,U3,U4,U5,U6,U7 
,U8,U9,I1,I2,I3,I4,I5,I6,C1,C2,C 


3 , C4 , C5 , C6 , C7 , P$ , MR, XM, MX , FZ , AA$ 
,UI,UU, JJ, JJ$, J1$,IT,TI,CP,DM,BX 

14  IF  EOF   (-1)  THENCLOSE#-l 

15  GOSUB50000:GOSUB45000 

22  WW$="PLANET  VOGGUK" : DRAW" C IBM 
2, 160" :GOSUB60600:WW$="ROBBIE  AW 
AITS  COMMANDS" :DRAW"C1BM2, 184" :G 
OSUB60600:GOSUB4 3000 :G0SUB4 1000 

23  WU=RND (-TIMER) : POKE65495 ,0 : IE 
=250+RND(500) 

30  DRAW"C2": LINE (0,148) -(255 ,191 
) ,PSET,BF:AA$="" 

40  WW$="COMMANDS":DRAW"C1BM2,160 

;":GOSUB60600 

50  DRAW"C1BM0,184;" 

60  II$=INKEY$ 

70  IFII$=""THENGOTO24000 

80  W8=ASC(II$) 

90  IFW8=8  THEN30 

100  IFW8=32THENAA$=AA$+"  " : DRAW" 
BM+0,+0R2R4R2" :PLAY"T25505L8A" :G 
OTO60 

110  IFW8=>65ANDW8=<90THENAA$=AA$ 
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+11$  :  PLAY"T25505L8AM  :  ELSE60 
120  W8=W8-64 :DRAWW9$ (W8) 

130  IFLEN(AA$) >24THEN30 

131  FZ=RND(4000) 

132  IFMX=0ANDFZ=>0ANDFZ=<103THEN 
GOSUB31000:MX=1 

138  IFAA$="CLUE"ANDRL=1  THENGOSU 
B20000:GOTO30 

139  IFAA$="KEEP"THENGOTO35000 

140  IFAA$="E"THENEU=EU+1 :  GOSUB50 
0 : AR=AR+1 :  E=E+1 :  GOSUB50000  :  GOSUB 
45000 : GOSUB34000 : IFINKEY$=" "THEN 
140ELSEGOTO30 

150  IFAA$="W"THENEU=EU+1 : GOSUB60 
0 : AR=AR-1 : E=E-1 : GOSUB50000 : GOSUB 
45000 : GOSUB34000 : IFINKEY$=" "THEN 
150ELSEGOTO30 

160  IFAA$="N"THENEU=EU+1 : GOSUB70 
0 : AR=AR-4 1 : N=N-1 : GOSUB50000 : GOSU 
B45000 : GOSUB34000 : IFINKEY$=" "THE 
N160ELSE30 

170  IFAA$="S"THENEU=EU+1 : GOSUB80 
0 : AR=AR+41 : N=N+1 : GOSUB50000 : GOSU 
B45000 : GOSUB34000 : IFINKEY$=" "THE 
N170ELSEGOTO30 

175  IFQA(l) =9999 ANDAA$= "DON  RL" 
THENRL=1 : BX=AR : GOTO30 : ELSEIFQA ( 1 
)=9999ANDAA$="OFF  RL"ANDBX=AR  TH 
ENRL=0:GOTO30 

176  IFRL=1THEN60 

177  IFAA$=" LIGHT  LM"ANDQA ( 8 ) =999 
9 ANDQA ( 9 ) =9 9 9 9 ANDN=>16ANDN=< 30AN 
DE=> 1 6 ANDE=< 3 0ORAA$= " LIGHT  LM"AN 
DQA ( 8 ) =9 9 9 9 ANDQA ( 9 ) =9 9 9 9 ANDN=> 1A 
NDN=<  3  0ANDE=>3 1ANDE=<4 1THENNG=1 : 
SCREEN1,0:GOTO30 

178  IFAA$=" LIGHT  LM"ANDQA ( 8 ) =999 
9ANDQA(9)=9999THENWW$="FOR  CAVER 
NS  OR  DUNGEONS" : DRAW" C2" : LINE (0, 
148) -(255, 191) ,PSET,BF:DRAW"C1BM 
2,182;": GOSUB60600 : GOSUB43000 : GO 
TO30 

179  IFAA$="OFF  LM"THENNG=0 : GOSUB 
44110 :GOTO30 

180  IFAA$="LK"ANDQA(15)=AR  THENG 
OSUB44000:GOTO30 

190  IFAA$="DS"THENGOSUB42000 : GOT 
030 

200  IFAA$="V"THENGOSUB40000 : GOTO 
30 

210  IFAA$="GET  ALL"THENDRAW"C2 " : 
LINE (0,148) -(255,191) ,PSET,BF:GO 
SUB39000:AA$="PEER" :GOTO250 
220  IFAA$="PUT"THENGOSUB3  7000:AA 
$="PEER" :GOTO250 

2  30  IFQT=<2ANDAR=QA ( 15 ) ANDAA$="G 
ET  BG"  THENQA(15)=9999:QT=QT+1:A 
A$="PEER" :GOTO2  50 

240  IFAA$="DROP  BG"ANDQA ( 15 ) =999 


9THENQA ( 15 ) =AR : QT=QT-1 : AA$="PEER 
":GOTO250 

250  IFAA$="PEER"ANDE=>31ANDE=<41 
ANDN=> 1ANDN=<  3 0  THENGOSUB41510 : G 
0SUB4 1000 : G0SUB2  8000 : G0T03  0 

251  IFAA$="PEER"THENGOSUB41500:G 
OSUB41000 : GOSUB2  8000 : GOTO30 

252  IFLEFT$ (AA$ , 3 ) ="GET"THEN260 

253  IFLEFT$ (AA$ , 4 ) ="DR0P"THEN2 60 

254  GOT0462 

260  IFQT=<2ANDAA$="GET  LS "ANDQA ( 
14)=9998ANDAR=QA(15)THENQA(14)=9 
999 : QT=QT+1 : AA$="PEER" : GOTO250 
270  IFAA$="DROP  LS "ANDQA ( 14 ) =999 
9THENQA (14 ) =AR : QT=QT-1 : AA$="PEER 
":GOTO250 

2  80  IFQT=<2ANDAA$="GET  RL"ANDQA( 

1 )  =9  9  9  8 ANDAR=QA (15) THENQA ( 1 ) =9  9  9 
9 : QT=QT+1 : AA$=" PEER" : G0T02  50 

2  90  IFAA$="DROP  RL" ANDQA ( 1) =9999 
THENQA ( 1 ) =AR: QT=QT-1 : AA$="PEER" : 
GOTO250 

300  IFQT=<2ANDAA$="GET  MI "ANDQA ( 

2)  =9998ANDAR=QA(15)THENQA(2)=999 
9:QT=QT+1:AA$="PEER" :GOTO250 
310  IFAA$="DROP  MI"ANDQA(2)=9999 
THENQA ( 2 ) =AR : QT=QT- 1 : AA$= " PEER" : 
GOTO250 

315  IFQT=<2ANDAA$="GET  HK"ANDQA( 

3 )  =9  9  9  8 ANDAR=QA ( 15 ) THENQA ( 3 ) =9  9  9 
9:QT=QT+l:AA$="PEER" :GOTO250 

3  20  IFAA$="DROP  HK" ANDQA ( 3 ) =9999 
THENQA (3 )=AR:QT=QT-1:AA$=" PEER" : 
GOTO2  50 

325  IFQT=<2ANDAA$="GET  RP"ANDQA( 

4 )  =9  9  9  8 ANDAR=QA ( 15 ) THENQA ( 4 ) =9  9  9 
9:QT=QT+l:AA$="PEER" :GOTO250 

3  30  IFAA$="DROP  RP" ANDQA (4 ) =9999 
THENQA ( 4 ) =AR : QT=QT-1 : AA$="PEER" : 
GOTO250 

3  40  IFQT=<2ANDAA$="GET  RC"ANDQA( 

5)  =9998ANDAR=QA(15)THENQA(5)=999 
9:QT=QT+1:AA$="PEER" :GOTO250 

342  IFAA$="DROP  RC"ANDQA(5) =9999 
THENQA ( 5 ) =AR : QT=QT-1 : AA$= " PEER" : 
GOTO30 

350  IFQT=<2ANDAA$="GET  PP"ANDQA( 

6 )  =9  9  9  8 ANDART=QA ( 15 ) THENQA ( 6 ) =9  9 
99 : QT=QT+1 : AA$="PEER" : GOTO250 
352  IFAA$="DROP  PP" ANDQA ( 6 ) =9999 
THENQA ( 6 ) =AR : QT=QT-1 : AA$=" PEER" : 
GOTO250 

355  IFQT=<2ANDAA$="GET  BX"ANDQA( 

7 )  =9  9  9  8 ANDAR=QA ( 15 ) THENQA ( 7 ) =9  9  9 
9 : QT=QT+1 : AA$="PEER" : GOTO250 
360  IFAA$="DROP  BX"ANDQA(7) =9999 
THENQA ( 7 ) =AR : QT=QT-1 : AA$="PEER" : 
GOTO2  50 

365  IFQT=<2ANDAA$="GET  IG"ANDQA( 
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8 )  =9  998ANDAR=QA ( 15) THENQA (8 ) =99  9 
9:QT=QT+1:AA$="PEER" :GOTO250 

37J3  IFAA$="DROP  IG"ANDQA (8 )  =9999 
THENQA ( 8 ) =AR : QT=QT-1 : AA$="PEER" : 
GOTO250 

375  IFQT=<2ANDAA$="GET  LM"ANDQA ( 

9)  =99  98ANDAR=QA(15)THENQA(9)=999 
9 :QT=QT+1: AA$="PEER" :GOTO250 

380  IFAA$="DROP  LM"ANDQA(9) =99  9  9 
THENQA ( 9 ) =AR: QT=QT-1 : AA$="PEER" : 
GOTO250 

390  IFQT=<2ANDAA$="GET  OC'ANDQA ( 

10)  =9998ANDQA(15)=AR  THENQA (10)= 
9999 : QT=QT+1 : AA$="PEER" : GOTO250 
400  IFAA$="DROP  OC'ANDQA ( 10 )  =999 
9 THENQA ( 10 ) =AR : QT=QT- 1 : AA$=" PEER 
" :GOTO2  50 

410  IFQT=<2ANDAA$="GET  GR"ANDQA( 

11)  =999  8ANDQA(11)=999  8ANDQA(15)= 
AR  THENQA ( 11 ) =999  9 :QT=QT+l:AA$=" 
PEER" :GOTO2  50 

420  IFAA$="DROP  GR"ANDQA ( 11) =999 
9 THENQA (11) =AR : QT=QT- 1 : AA$= " PEER 
":GOTO2  50 

430  IFQT=<2ANDAA$="GET  KY"ANDQA( 

12)  =9998ANDQA(15)=AR  THENQA ( 12 ) = 
99  99 : QT=QT+1 : AA$="PEER" : GOTO2  50 
440  IFAA$="DROP  KY"ANDQA ( 12 ) =999 
9THENQA ( 12 ) =AR : QT=QT-1 : AA$=" PEER 
" :GOTO2  50 

450  IFQT=<2ANDAA$="GET  FF"ANDQA ( 

13)  =9998ANDQA(15)=AR  ANDUI=0  THE 
NQA ( 1 3 ) =9  9  9  9 : QT=QT+ 1 : ME=ME/ 2 : UI= 
1:AA$="PEER" :GOTO250 

460  IFAA$="DROP  FFMANDQA ( 13 ) =999 
9THENQA ( 13 ) =AR : QT=QT-1 : AA$="PEER 
" :GOTO2  50 

4  62  IFN=<0ORN=>30ORE=<0ORE=>41TH 
EN463ELSE466 

463   IFAA$="OPEN"ANDQA(12) =9999TH 
ENPCLS2 : GOSUB48000 : GOTO30 
466  I FUU=0ANDAA$=" CHARGE  PP"ANDQ 
A ( 5 ) =9  9  9  9ANDQA ( 6 ) =9  9  9  9THENRE=RE  * 
2 :UU=1:GOTO30 

4  67  IFAR=C2  ANDAA$="GET  WAND "AND 
QA(2) =999  9  THENBD=1 : AA$="PEER" : G 
OTO250 

4  68  IFAR=C1  ANDAA$="GET  WAND"AND 
QA(ll) =9999  THENBD=2 :AA$="PEER" : 
GOTO250 

469  IFAR=C4  ANDAA$="GET  WAND "AND 
QA ( 3 ) =9999  THENBD=3 : AA$="PEER" : G 
OTO250 

470  IFAR=C3  ANDAA$="GET  WAND"AND 
QA(4)=9999  THENBD=4 : AA$="PEER" :G 
OTO2  50 

471  IFAR=C5  ANDAA$="GET  WAND "AND 
QA(10) =9999  THENBD=5 : AA$="PEER" : 
GOTO250 


472  IFAR=C6  ANDAA$="GET  WAND"AND 
QA ( 2 ) =9 9 9 9  THENBD=6 : AA$=" PEER" : G 
OTO250 

473  IFAR=C7  ANDAA$="PUSH  BUTTON" 
ANDQA(7) =9999  THENBD=7 : AA$="PEER 
" :GOTO250 

490  IFAA$="SEXY"THEN30ELSE60 

500  GOSUB4 1000 : I FRL= 1THENRETURNE 

LSEIFPPOINT (235,80) =40RPPOINT ( 2  3 

5 , 80) =8THEN30ELSERETURN 

600  GOSUB4 1000 : IFRL=1THENRETURNE 

LSEIFPPOINT (30, 80) =40RPPOINT ( 30 , 

80 ) =8THEN3 0ELSERETURN 

700  GOSUB4 1000 : IFRL=1THENRETURNE 

LSEIFPPOINT (134 ,20) =40RPPOINT (13 

4,20) =8THEN3  0ELSERETURN 

800  GOSUB4 1000 : IFRL=1THENRETURNE 


LSEIFPPOINT ( 13  4 , 120 ) =40RPPOINT ( 1 
34 , 120) =8THEN30ELSERETURN 
4500  ' 
20000  1 

20005  RE=RE-75:CLS:PRINT"COST  75 
E.U.S. ": PRINT "TO  USE  YOUR  POWER 
SCOPE" : PRINT" (MXERTS  TO  NEXT  WAN 
D)  " 

20010  IFBD=1ANDN=>1ANDN=<15ANDE= 
>1ANDE=<9THENPRINTC1-AR:GOTO4  410 

P 

20020  IFBD=0ANDN=>16ANDN=<30ANDE 
=>1ANDE=<15THENPRINTC2-AR:G0T044 
100 
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20030  IFBD=3ANDN=>1ANDN=<15ANDE= 
>16ANDE=<  3  0THENPRINTC3 -AR : G0T04  4 

w 

20040  IFBD=2ANDN=>16ANDN=<30ANDE 
=>10ANDE=<21THENPRINTC4-AR:GOTO4 
4100 

20050  IFN=>1ANDN=<30ANDE=>3 1ANDE 
=<4 1THENPRINT"D0ESN0T  WORK  IN  DU 
NGEON":GOTO44100 

20060  PRINT"MUST  BE  IN  RIGHT  ARE 
A" : PRINT"AND  HAVE  RIGHT  #  WANDS" 
:GOTO44100 

24000  IFMX=0ANDIE=<0  THENFZ=RND ( 
95) :IE=2000+RND(1000) :GOSUB31000 
:MX=4:GOTO24005 

24001  GOTO24015 
24005  UD=RND(100) 

24010  IFUD=>2  5ANDRL=0  THENUI=1:S 
CREEN1 ,0 : FORAA=1TO10 : GOSUB2  4940 : 
NEXTAA: UI=0 : RE=RE+85 : PCLS2 : SCREE 
Nl , 1 : CP=0 : GOSUB48000 : AA$="PUT" : G 
OTO2  20 

24015  IE=IE-1 
24020  GI=GI+1 

24025  IFGI=>25THENPLAY"T100L16O2 
A" : GI=0 

24030  IFCP=1THENCP=0:GOTO30ELSEG 
OTO60 

24900  TT$=INKEY$ 

24910  IFTT$="A"ANDBD<>7  ORTT$="K 
"ANDBD<>7  THENGOTO3  3000 
24920  IFTT$="F"ANDBD<>7  THENAR=4 
1 : N=l : E=41 : PCLS2 : GOSUB50000 : GOSU 
B45000 : DD$="F" : GOSUB31502 : GOTO30 
24930  IFTT$="A"ANDBD=7  ORTT$="K" 
ANDBD=7  THENPLAY"T25L1605ABC":IL 
=IL+1 : IFIL=>10THENFORAA=1TO8 : PCL 
S(AA) : FORAB=1TO500 : NEXT AB : NEXTAA 
:CLS:PRINT"WIZARD  IS  DESTROYED!" 
: PRINT "CONGRATULATIONS ! " : GOSUB42 
078:CLS:PRINT"T-T-T-THATS  ALL  FO 
LKS ! " : GOSUB4  3000 : END 
24940  RE=RE-10 : PLAY"T2501GGG" : IF 
RE=<0THENGOTO3  3000 

25000  DRAW"C4BM150/ 100E4U8E4U8L2 

G8L8G6R2E2L2E14R8F2D2F2D2E2U2E2U 

10L4D4L2R4L2D2U6C2D4U4C4L4D10U10 

L6R6U2E2U2E2F2D2F2D2R6L6D8R6E10R 

8L8E6R2G2L2G4R8G12L12D8F4D8F4L2  2 
ii 

25010  CIRCLE (134, 90) ,8,3 : CIRCLE ( 
134,90) ,6, 4: CIRCLE (134, 90) ,10,1: 
CIRCLE (134, 90), 8, 2: CIRCLE ( 13  4 , 90 
) ,6, 2: CIRCLE (134, 90) ,10, 2: CIRCLE 
( 190 , 58 ) , 8 , 3 : CIRCLE (190, 58), 6, 4: 
CIRCLE ( 190 , 58 ) , 10 , 1 : CIRCLE ( 190 , 5 
8) ,8, 2: CIRCLE (190, 58) ,6,2: CIRCLE 
(190,58) ,10,2 
25015  IFUI=1THENRETURN 


25020  GOTO24900 

27000  B1=RND(15) :B2=RND(15) :C1=( 
(Bl*41) -41)+B2 

27005  B1=RND(15)+15:B2=RND(7) :C2 
=( (Bl*41) -41)+B2 

27010  B1=RND(15) : B2=RND ( 15 ) +15 : C 
3=( (Bl*41) -41)+B2 

27015  Bl=RND(15)+15:B2=RND(12)+9 
:C4=( (Bl*41) -41)+B2 
27020  B1=RND(10) : B2=RND ( 10) +3 1 : C 
5=( (Bl*41) -41)+B2 

27025  Bl=RND(10)+10:B2=RND(10)+3 

l:C6=( (Bl*41) -41)+B2 

27030  Bl=RND(10)+20:B2=RND(10)+3 

1:C7=( (Bl*41) -41)+B2 

2  7035  RETURN 

28000  IFAR=C2  ANDBD=0  THENDRAW"C 
1BM90, 90U12R2D12" 

28010  I FAR- CI  ANDBD=1  THENDRAW'C 
1BM90, 90U12R2D12" 

2  8015  IFAR=C4  ANDBD=2  THENDRAW'C 
4BM90,90U12R2D12" 

28020  IFAR=C3  ANDBD=3  THENDRAW'C 
4BM90,90U12R2D12" 

2802  5  IFAR=C5  ANDBD=4  THENDRAW'C 
4BM90,90U12R2D12" 

28030  IFAR=C6  ANDBD=5  THENDRAW'C 
3BM90,90U12R2D12" 

2  8035  IFAR=C7  ANDBD=6  THENDRAW'C 
3BM90 , 90U6R2D6U6C1U4L2D4U4C3U4R2 
D4" 

28900  RETURN 

29000  DRAW"C3BM80,96U12R20D12L20 
H8U12F8H16U4F8D4R20U4L20R20H8D4F 
6H6L18U4R18F8D4F8" :RETURN 
3 1000  P$="T50O1ABCDEFGABCDEFGABC 
DEFGABCDEFGABCDEFGCGCGCGCGCGCGCG 
CGCGCGCGCGCGCGCCCCCCCCCC" : XM=0 
31005  IFFZ=>0ANDFZ=<34THENME=10+ 
RND(20) :MR=1: Y1=Y1+1 : GOTO31100 
31010  IFFZ=>34ANDFZ=<49THENME=20 
+RND(20) :MR=2 : Y2=Y2+1 : GOT03 1100 
31020  IFFZ=>49ANDFZ=<59THENME=20 
+RND(20) :MR=3 : Y3=Y3+1 : GOTO31100 
31030  IFFZ=>59ANDFZ=<69THENME=40 
+RND(20) :MR=4 : Y4=Y4+1 : GOT03 1100 
31035  IFFZ=>65ANDFZ=<74THENME=50 
+RND(20) :MR=5: Y5=Y5+1:GOTO31100 
31040  IFFZ=>70ANDFZ=<84THENME=60 
+RND(20) :MR=6: Y6=Y6+1 : GOT03 1100 

31042  IFFZ=>85ANDFZ=<95THENME=15 
0+RND(50) :MR=7:Y7=Y7+l:GOTO31100 

31043  IFFZ=>96ANDFZ=<103THENME=2 
00+RND ( 50 ) : MR=8 : Y8=Y8+1 : GOT03 110 

31100  IFN=>16ANDN=<30ANDE=>1ANDE 

=< 1 5THENME=ME+ 10+RND ( 15) 

31105  I FN=> 1ANDN=< 1 5ANDE=> 1ANDE= 

<15THENME=ME+20+RND(20) 
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31110  IFN=>16ANDN=<30ANDE=>16AND 

E=<  3  0THENME=ME+30+RND ( 30 ) 

31120  IFN=>1ANDN=<15ANDE=>16ANDE 

=<  3  0THENME=ME+40+RND ( 40 ) 

31130  IFN=>1ANDN=<30ANDE=>31ANDE 

=<4 lTHENME=ME+50+RND (75) 

31140  IFNG=0ANDN=>16ANDN=<30ANDE 

=>16ANDE=<30THENME=ME*3 

31150  IFNG=0ANDN=>1ANDN=<30ANDE= 

>  3 1 ANDE=<  4 1THENME=ME  *  3 

31152  ME=ME-10+RND(25) 

31155  I FEU=>0 ANDEU=< 2 5 THENME=ME * 

2 

31160  RETURN 

31400  DRAW"C4BM150,80E2R2E2R2E2R 
4F2R2F2R2F2H2L2H2L2H2U2L6G2L2G2L 
2G2E2R2E2R2E2R8F2R2F2R2F2H2L2H2L 
2H2L2U2L4H2L2H2L2R2F2R2F2R4E2R2E 
2R2L2G2L2G2L2D6G2L2G2E2R2E2F2R2F 
2 " : RETURN 

31410  DRAW"C4BM150, 80BU2BE2U2E2R 

4ND2R4ND2R4F2D2G2L2G2L4H2L2R2F2G 

2D4G2D4G2F2D2F2D2R8U2E2U2E2H2U4H 

2U4BL4D2G10E10F10BD4BL6L10H2L2H2 

L2H2U8R2D8R2M:NX=RND(255) :P0KE17 

8, NX: PAINT (158, 92) , , 4 : RETURN 

31420  DRAW"C4BM150,80U4R4U8E2R2E 

2R2E2R2F2R2F2R2F2D8R4D4L30U2R30L 

14F16L2H16R4G16L2E16D16U16BU8R10 

L20L2R2R6ND2R4ND6R4D2" :DRAW"S4": 

RETURN 

31430  DRAW"C4BM160,90E2U2E2U4H6R 

2F6R2H6R2F6L6H4C3G2F2F2E2BE4E20U 

2E4G24BF4BL6BF2BD2BU2C4F4D2G2D2G 

2L2G2L2G2D4H4L2H2L4G2D2F8U2F4D2G 

2R4E4U4H6BH10BL2BD2H2L2H2L2H2L2H 

2L6R6U2L4R6F2R2F2R4F2R4F2R2L4R12 

U8D8L8U8E2R4L4G2D2R4L4D4G4L2R4G2 

BR14BD4R4F2R4F2D2G2L2R2" 

31432  DRAW"BM+0  ,  +0H4L8BU4L2D4 11 :  D 

RAW'S 4": RETURN 

31440  DRAW"C4BM150,70H9R2F9BH9L8 
R4U4L4U2R8L2D4R2U2R2D2F8L2NH8F4L 
2NH4L12ND4R14F4R2F4R2F4R8D2R8D2L 
12U2NR4L12F6L20U4R16D2L16D2R16U6 
L10U2H6U2H6R2U2R2D2L2F4R10D2L8D2 
R10D2NR2L10D2R16D2NR2 " : RETURN 
31450  DRAW"C1BM150, 80U8R6U10E10R 
10F10D10R6D8L42R8U2 " : PAINT ( 156 , 7 
4) /l/l:DRAW"C3BM+0/+0U14R6L6E8R8 
F8L6R6D4BL14R4L4BR14D6BL8L8D4U4R 
8  D4  BR8U4  D4  L2  4  "  :  RETURN 

31500  IFQA(13)=9999THENME=ME/2 :Q 
A(13)=9998:QT=QT-1 

31501  DD$=INKEY$ 

31502  IFDD$="F"THENRE=RE/2 :WW$=" 
LOSE  HALF  ENERGY  CHICKEN" : DRAW" C 
1BM2 , 180" : GOSUB60600 :GOSUB43000 : 
UI=0: RETURN 


31503  QP=RND(700-(MR*100)+100) :I 
FQP=>0ANDQP=<25  THENRE=RE-10 : PLA 
Y"L8AL2AL4AL2AL4A" : IFRE=<0THENGO 
TO33000 

31504  IFDD$="A"ANDQA ( 14 ) =9999THE 
NME=ME-5 : PLAY"T1205L15GGGG" : IFME 
=< 1THENDM=DM+ 1 : UI=0 : FORAA=0TO50S 
TEP5: CIRCLE (150, 80) , AA , 3 : NEXTAA : 
FORAA=50TO0STEP-5 : CIRCLE ( 150 , 80 ) 
, AA , 2 : NEXTAA : G0SUB4 8000 : GOTO 3 3 50 
0 

31505  QU=RND(100) :IFDD$="K"ANDQU 
=>15ANDQA(14) =9999  THENME=0 : DD$= 
"A":GOTO31504 

31506  IFDD$="K"ANDQU=<14ANDQA(14 
)=9999  THENRE=0 

31510  GOTO31501 

32000  IFMX=1THENPLAY"V5" :PLAYP$: 
MX= 2 : RETURN 

32005  IFMX=2THENPLAY"V10" :PLAYP$ 
: MX= 3 : RETURN 

32010  IFMX=3THENPLAY"V20" :PLAYP$ 
: MX=4 : RETURN 

32015  IFMX=4THENPLAY"V30" :PLAYP$ 
32020  IFMX=4ANDMR=1THENGOSUB3140 
0 : GOSUB3 1500 : MX=0 

3  2025  IFMX=4ANDMR=2THENGOSUB3141 
0 : G0SUB3 1500 : MX=0 

32030  IFMX=4ANDMR=3THENGOSUB3142 
0:GOSUB31500:MX=0 

32032  IFMX=4ANDMR=4THENGOSUB3143 
0 : GOSUB3 1500 : MX=0 

32034  IFMX=4ANDMR=5  THENDRAW " S 6 " 
: G0SUB3 14  30 : GOSUB3 1500 : MX=0 : DRAW 
"S4" 

32036  IFMX=4ANDMR=6THENDRAW"S8": 
GOSUB3 1420 : GOSUB3 1500 : DRAW"S4 " : M 
X=0 

32038  IFMX=4ANDMR=7THENGOSUB3144 
0:GOSUB31500:MX=0 

32040  IFMX=4ANDMR=8THENGOSUB3145 

0:GOSUB31500:MX=0 

32099  RETURN 

33000  FORAA=0TO101  STEP5 : PLAY"T1 
00ABCD" : CIRCLE (128, 98), AA, 3: NEXT 
AA:FORAA=100TO0  STEP-5 : PLAY"ABCD 
": CIRCLE (128, 98) , AA , 4 : NEXTAA : FOR 
AA=100TO0  STEP-5 : PLAY"ABCD" : CIRC 
LE(128,98) ,AA,2:NEXTAA:CLS:PRINT 
"ROBBIE  HAS  BEEN  DESTROYED! ": FOR 
AA=1TO5000 : NEXTAA: GOSUB4 207 8 : END 
33500  ME=0:RE=RE+MR*10:PLAYP$:AA 
$="  " 

3  3501  DRAW"C2" : LINE (0, 148) -(255, 
191) ,PSET,BF:DRAW"S4" :WW$="TREAS 
URE  REVEALED" :DRAW"C1BM2, 160": GO 
SUB60600 : PLAY"T2V15L402 " : GOSUB29 
000 

33502  DD$=INKEY$ 
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33503  IFDD$=""THEN33502 

33504  IFDD$="G"THENTR=TR+  (MR*100 
0)+(RND(1000)  *MR)  :MR=0 : PLAY"V150 
2T2L4  "  :  CP=1 :  G0SUB4 16,0,0  :  RETURN 

3  3505  IFDD$<>",'THENPLAY"V1502T2L 

4" :CP=1: RETURN 

33506  GOTO33502 

34W  FZ=RND(2000) 

34010  IFMX=0ANDFZ=>0ANDFZ=<103TH 

ENG0SUB3 1000 : MX=1 

34020  RETURN 

35000  POKE65494,0:CLS:PRINT"READ 
Y  TAPE/PRESS  ENTER" : INPUT" " ;R$ 
35005  OPEN"0", #-1, "WANDS" 

35010  PRINT#-1,BD,RE,ME,MR, Yl, Y2 
,Y3,Y4,Y5,Y6,Y7,Y8,AR,N,E,AQ,RL, 
NG,TR,QW,BD,DY,EU,QT,SS,XX,  YY,QA 
(1) ,QA(2) ,QA(3) ,QA(4) ,QA(5) ,QA(6 
) ,QA(7) ,QA(8) ,QA(9) ,QA(10) #QA(11 
) ,QA(12) ,QA(13) ,QA(14) ,QA(15) , 

35011  PRINT#-1,U1,U2,U3,U4,U5,U6 
,U7,U8,U9,I1,I2,I3,I4,I5,I6,C1,C 
2 , C3 , C4 , C5 , C6 , C7 , P$ , MR , XM , MX , FZ , 
AA$,UI,UU, JJ, JJ$, J1$,IT,TI,CP,DM 
,BX 


35012  CLOSE#-l:END 

35030  IT$=STR$ (IT) :TI$=STR$ (TI) : 

DRAW"BM"+IT$+" , "+TI$ 

35032  DRAW"ClBM+0,+0U24R2D24R2U2 

4R2D24": RETURN 

35100  DRAW"ClBM+0,+0BU16R8U6R2D8 
L8D2BD12" : RETURN 

35120  DRAW"ClBM+0,+0BL8BU10L8U6L 
2D8R10BD8BR8 ": RETURN 


3  6000  IFN<1ORN>30ORE<1ORE>41THEN 
PCLS2 : SS=24 : GOTO3  6008 : ELSERETURN 
36005  RETURN 
36008  1 

36010  JJ=N+E:  J1$=STR$.(JJ)  :JJ$=RI 

GHT$(J1$,1) 

36012  GOSUB48000 

3  6015  IFJJ$="0"ORJJ$="7"THENIT=5 
0 : TI=50 : GOSUB35030 : GOSUB3  5120 : IT 
=240:TI=130:GOSUB35030:GOSUB3512 

3  6020  IFJJ$="l"ORJJ$="8"THENIT=7 

0 : TI=70 : GOSUB3  5030 : GOSUB3  5 100 : GO 

SUB3  5120 : IT=200 : TI=130 : GOSUB3503 

0.-GOSUB3  5100  :GOSUB3  5120 

3 602 5  IFJJ$=" 2 "ORJJ$=" 9 "THENIT=2 

10 : TI=50 : GOSUB35030 : IT=50 : Tl=120 

:GOSUB35030:GOSUB35100 

36030  IFJJ$="3"THENIT=50:TI=50:G 

OSUB3  5030 : GOSUB3  5100 : IT=210 : TI=1 

20:GOSUB35030:GOSUB3  5100 

36035  IFJJ$="4"THENIT=100:TI=100 

:GOSUB3 5030 : GOSUB3 5120 :IT=110:TI 

=120 :GOSUB3 5030 :GOSUB35120 

3  6040  IFJJ$="5"THENIT=20:TI=120: 

GOSUB35030:GOSUB35100:IT=160:TI= 

80:GOSUB35030:GOSUB35120 

36045  IFJJ$="6"THENIT=130 :TI=30 : 

GOSUB35030 : GOSUB35120 : IT=100 :TI= 

120: GOSUB3  50  30 : GOSUB3  5 100 

3  6050  IFE=0ANDN=>1ANDN=<30THENDR 

AW"C4": LINE (150,0) -(255, 191) ,PSE 

T,BF 

3  6060  IFN=0ANDE=>1ANDE=<4 1THENDR 
AW"C4" : LINE (0, 100) -(255, 191) , PSE 
T,BF 

3  6070  IFN=31ANDE=>1ANDE=<41THEND 
RAW" C4 " : LINE (0,0)-(255,40), PSET , 
BF 

36080  IFE=42ANDN=>1ANDN=<30THEND 
RAW"C4": LINE (0,0) -(130, 191) , PSET 
/  BF 

36085  IFRL=0THENGOSUB32000:IFCP= 

1THENAA$= " SEXY " : CP=0 : RETURN 

36090  RETURN 

37000  AQ=0 

37005  AQ=AQ+1 

37010  IFAQ=>15THENRETURN 

37020  IFQA(AQ)=9999THENQA(AQ)=99 

98:QT=QT-1 

37025  GOTO37005 

38000  WW$="YOUR  HANDS  ARE  FULL": 
DRAW"C1BM2 , 180" : GOSUB60600 : GOSUB 
4 3000: RETURN 
39000  AQ=0 

39005  AQ=AQ+1 

39006  IFQT=3THENGOSUB38000:RETUR 
N 

39010  I FAQ=> 1 6THENRETURN 
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39015  IFAR=QA(AQ)   THENQA (AQ) =999 

9:QT=QT+1 

39020  GOTO39005 

40000  AQ=0:CLS:  PRINT  :U1=0:U2=0:U 
3=0:U4=0:U5=0:U6=0:U7=0:U8=0:U9= 
0 : 11=0 : 12=0 : 13=0 : 14=0 : 15=0  : 16=0 
40005  AQ=AQ+1 

40010  IFAQ=>16THENPRINT:PRINT"VI 
EW  COMPLETE" : GOTO40120 

40015  IFAR=QA ( 1 ) ANDU1=0THENPRINT 
"ROLLERS  ";:U1=1 

40016  IFAR=QA ( 2 ) ANDU2=0THENPRINT 
"MIRROR  " ; :U2=1 

40017  IFAR=QA ( 3 ) ANDU3=0THENPRINT 
"HOOK  » ; :U3=1 

40018  IFAR=QA ( 4 ) ANDU4=0THENPRINT 
"ROPE  " ;:U4=1 

40019  IFAR=QA ( 5 ) ANDU5=0THENPRINT 
"RECHARGER  " ; :U5=1 

40020  IFAR=QA ( 6 ) ANDU6=0THENPRINT 
"POWERPACK  " ; :U6=1 

40030  IFAR=QA ( 7 ) ANDU7=0THENPRINT 
"BOX  " ; :U7=1 

40040  IFAR=QA ( 8 ) ANDU8=0THENPRINT 
"IGNITER  ";:U8=1 

40050  IFAR=QA ( 9 ) ANDU9=0THENPRINT 
"LAMP  » ; :U9=1 

40060  IFAR=QA ( 10) ANDI1=0THENPRIN 
T"OILCAN  " ;:I1=1 

40070  IFAR=QA ( 11) ANDI2=0THENPRIN 
T" GREASE  ";:I2=1 

40080  IFAR=QA (12 ) ANDI3=0THENPRIN 
T"KEY  ";:I3=1 

40090  IFAR=QA ( 13 ) ANDI4=0THENPRIN 
T"FORCEFIELD  " ; : 14=1 
40100  IFAR=QA(14) ANDI5=0THENPRIN 
T"LASER  "; :I5=1 

40105  IFAR=QA ( 15) ANDI6=0THENPRIN 
T"BAG  ";:I6=1 
40110  GOTO40005 

40120  PRINT"PRESS  G  TO  GO  ON" 

40130  IFINKEY$O"G"THEN40130 

40140  GOTO44110 

41000  AQ=0 

41005  AQ=AQ+1 

41010  I FAQ=> 1 6THENRETURN 

41015  IFAR=QA(AQ)THENDRAW"C4BM10 

0, 80R4D4L4D4BD4D2" 

41020  GOTO41005 

41500  1 

41510  DRAW"C2BM100,80R4D4L4D4BD4 
D2" : DRAWC2BM90,  90U14R2D14"  :RETU 
RN 

41600  1 

41610  DRAWC2BM80,  96U12R20D12L20 
H8U12F8H16U4F8D4R20U4L20R20H8D4F 
6H6L18U4R18F8D4F8" : RETURN 
42000  CLS:PRINT"YOU  HOLD"QT"ITEM 
S!  AS  FOLLOWS:" 


42005  IFQA(1 
ERS  " 

42010  IFQA(2 
OR  » 

42015  IFQA(3 
it 

42020  IFQA(4 
it 

42025  IFQA(5 

ARGER  " 

42030  IFQA(6 

RPACK  " 

42035  IFQA(7 
ii 

42040  IFQA(8 
TER  " 

42045  IFQA(9 


=9999THENPRINT"ROLL 
=9999THENPRINT"MIRR 
=9999THENPRINT"HOOK 
=9999THENPRINT"ROPE 
=9999THENPRINT"RECH 
=99  9  9THENPRINT " POWE 
=99  9  9THENPRINT" BOX 
=9  9  9  9THENPRINT " IGNI 
=9  9  9  9THENPRINT" LAMP 


42050  IFQA(10)=9999THENPRINT"OIL 
CAN  " 

42055  I FQA ( 1 1 ) =9  9  9  9 THENPRI NT " GRE 
ASE  " 

42064  IFQA(12)=9999THENPRINT"KEY 
ii 

42065  IFQA(13)=9999THENPRINT"FOR 
CEFIELD  " 

42070  IFQA(14)=9999THENPRINT"LAS 
ER  " 

42075  IFQA(15)=9999THENPRINT"BAG 
it 

42076  PRINT"PRESS  G  TO  GO  ON" 

42077  IFINKEY$O"G"THEN42077ELSE 
CLS 

42078  PRINT "YOU  HAVE "BD" OUT  OF  7 
POWER  WANDS" : PRINT" &  TREASURE  0 

F"TR"GOLD" 

42080  PRINT "YOUR  ENERGY  LEVEL  IS 
"RE 

4  2081  I FMRO0THENPRINT "MONSTER  C 
OMING" : IFMR=1THENPRINT" SPIDER" EL 
SEIFMR=2THENPRINT" SNAKE "ELSEIFMR 
=  3  THENPRINT " ROBOT " ELS  E I FMR= 4  THEN 
PRINT" WARRIOR" ELSEIFMR=5THENPRIN 
T"GIANT  WARRIOR"ELSEIFMR=6THENPR 
INT"GIANT  ROBOT "ELSEIFMR=7THENPR 
INT" DRAGON" 

42082  I FMRO0THENPRINT "MONSTER  E 
NERGY  LEVEL  IS "ME 

42083  PRINT" #  ENEMY  MET":PRINT"S 
PIDERS"Yl"SNAKES"Y2"ROBOTS"Y3:PR 
INT " WARRIORS "Y4 "GIANT  WARRIORS "Y 
5 : PRINT"GIANT  ROBOTS " Y 6 " DRAGONS " 
Y7 : PRINT"SPECTERS"Y8 

4  2084  PRINT" #  OF  ENEMY  DESTROYED 
"DM 

42085  PRINT: IFEU=>0ANDEU=<2  5THEN 
PRINT"NIGHT  LEFT"25-EU"#  OF  DAYS 
"DY 

42086  IFEU=>2  6ANDEU=<50THENPRINT 


"DAYLIGHT  LEFT" 5)3 -EU" #  OF  DAYS " D 
Y 

42089  PRINT"PRESS  G  TO  GO  ON" 
42)39)3  IFINKEY$O"G"THEN42090 
421)3)3  GOT04411)3. 

43000  PLAY"T203L8EGL4EL8EG#L4EL8 

EEAEAEAL16EEEEL8A04C03A04C03AL4G 

AE": RETURN 

4  4)3)3)3  CLS:QW=0 

44005  PRINT@0,"IN  BAG  YOU  FIND  " 
44)31)3  IFQA(l)  =9998THENPRINT"ALL 
TERRAIN  ROLLERS  ":QW=QW+1 
44015  IFQA(2)=9998THENPRINT"MIRR 
OR  ":QW=QW+1 

44)32)3  IFQA(3)=9998THENPRINT"GRAP 
PLING  HOOK  ":QW=QW+1 
44)325  IFQA(4)=9998THENPRINT"ROPE 
" :QW=QW+1 

44030  IFQA(5)=9998THENPRINT"RECH 
ARGER  ":QW=QW+1 

44035  I FQA ( 6 ) =9 9 9 8THENPRINT " POWE 
RPACK":QW=QW+1 

4404)3  IFQA(7)=9998THENPRINT"BOX 
W/ BUTTON  ":QW=QW+1 

44045  I FQA ( 8 ) =9 9 9 8THENPRINT" IGNI 
TER  " :QW=QW+1 

44)350  IFQA(9)=9998THENPRINT"LAMP 

":QW=QW+1 
44055  IFQA(10)=9998THENPRINT"OIL 
CAN  ":QW=QW+1 

4  4060  I FQA ( 1 1 ) =9 9 9 8THENPRINT " GRE 
ASE  ":QW=QW+1 

44065  I FQA ( 1 2 ) =  9  9  9  8 THENPRINT " KEY 

":QW=QW+1 
44070  IFQA(13)=9998THENPRINT"FOR 
CEFIELD  ":QW=QW+1 
44080  PRINT"PRESS  G  TO  GO  ON" 
44085  IFINKEY$o"G"THEN44085 
44090  CLS: PRINT "ALSO  IN  BAG  YOU 
FIND  ":IFQA(14)=9998THENPRINT"LA 
SER  ":QW=QW+1 

44095  PRINT "TREASURE  IN  BAG  "TR 
44100  PRINT"PRESS  G  TO  GO  ON" 
44105  IFINKEY$O"G"THEN44105 
44110  IFNG=1ANDN=>16ANDN=<30ANDE 
=> 1 6 ANDE=<  3  0ORNG= 1ANDN=> 1ANDN=<  3 
0ANDE=>3 1ANDE=<4 1THENSCREEN1 , 0 : E 
LSEIFEU=>0ANDEU=<2  5THENSCREEN1 , 1 
: ELSEIFEU=>2  6 ANDEU=<  50THENS  CREEN 
1,0 

44115  RETURN 

45000  I FNG=0ANDN=> 1 6 ANDN=< 30 ANDE 
=> 1 6 ANDE=<  3  0ORNG=0ANDN=> 1 ANDN=<  3 
0ANDE=>3 1ANDE=<4 1THENSCREEN1 ,  1 :  G 
OTO4  5004 : ELSEIFNG=1ANDN=>16ANDN= 
< 30ANDE=> 1 6 ANDE=< 30ORNG=1 ANDN=> 1 
ANDN=< 30 ANDE=> 3 1ANDE=< 4 1THENS CRE 
EN1,0:GOTO45004 

45001  IFEU=>0ANDEU=<2  5THENSCREEN 


1,1 

45002  IFEU=>2  6ANDEU=<50THENSCREE 
N1,0 

45003  IFEU=>51THENEU=0:DY=DY+1 

45004  GOSUB36000:IFSS=24THENSS=0 
: RETURN: ELSEPCLS 2 : GOSUB59000 : GOS 
UB48000:GOSUB28000:ON  SS  GOSUB45 
100,45200,45300,45400,45500,4560 
0,45700,45800,45900,46000,46100, 
4  6200,4  6300,4  6400,46500,4  6600 

45005  GOSUB3  2000:IFCP=1THENAA$=" 
PEER" :CP=0:GOTO2  50 

45006  IFAR=616  AND  BD<>1  THENXX= 
134: YY=20:GOSUB49000 

45007  IFAR=589  AND  BD<>2  THENXX= 
134 : YY=120 : GOSUB49000 

45008  IFAR=645  AND  BD<>3  THENXX= 
134 : YY=20 : GOSUB49000 

45009  IFAR=30  AND  BD<>4  THENXX=2 
35 : YY=80 : GOSUB49000 

45010  IFAR=82THENGOSUB2  4900 
45012  IFAR=604  THENNG=0 
45090  RETURN 

45100  XX=30: YY=80:GOSUB49000:XX= 
134 : YY=20 : GOSUB49000 : XX=235 : YY=8 
0 : GOSUB4  9000 : RETURN 
45200  XX=134:YY=20:GOSUB49000:XX 
=235: YY=8 0 : GOSUB4  90 00 : XX=1 3  4 : YY= 
120 : GOSUB49000 : RETURN 
45300  XX=235:YY=80:GOSUB49000:XX 
=30 : YY=80 : GOSUB49000 : XX=134 : YY=1 
2  0 : GOSUB4  9000 : RETURN 
45400  XX=30:YY=80:GOSUB49000:XX= 
134: YY=2 0 : GOSUB4  900 0 : XX=13  4 : YY=1 
2  0 : GOSUB4  9000 : RETURN 
45500  XX=134:YY=20:GOSUB49000:XX 
=134 : YY=120 : GOSUB49000 : RETURN 
45600  XX=30: YY=80 : GOSUB49000 : XX= 
235: YY=80 : GOSUB4  9 000 : RETURN 
45700  XX=134 : YY=20:GOSUB49000:XX 
=30 : Y Y=8 0 : GOSUB4  9000 : RETURN 
45800  XX=134:YY=20:GOSUB49000:XX 
=235: YY=80 : GOSUB4  9000 : RETURN 
45900  XX=134:YY=120:GOSUB49000:X 
X=2  3  5 : Y Y=80 : GOSUB4  9000 : RETURN 
46000  XX=30:YY=80:GOSUB49000:XX= 
134 : YY=120 : GOSUB49000 : RETURN 
46100  XX=134:YY=20:GOSUB49000:RE 
TURN 

46200  XX=235:YY=80:GOSUB49000:RE 
TURN 

46300  XX=30: YY=80 : GOSUB49000 : RET 
URN 

46400  XX=134:YY=120:GOSUB49000:R 
ETURN 

46500  RETURN 
46600  RETURN 
47000  DIMQA(15) 
47005  AQ=0 
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47010  AQ=AQ+1 

47015  IFAQ=>16THENQA(15)=1190:RE 
TURN 

47020  QA(AQ)=9998 
47025  GOTO47010 

48000  DRAWBM128,  80C3E4R4F2L2C1L 
4G2R2C2R4C2L4C2R4C2L4C3R4C1R2C3R 
2C4D2L12D2R12D2L12C3D2L2R4L2U2R1 
2D2L2R4 ": RETURN 

49000  DRAW"C4" : LINE (XX, YY) - (XX+2 
0, YY+20) , PSET: LINE (XX-20, YY+20) - 
(XX+20,YY+20) , PSET: LINE (XX-20 , YY 
+20) -(XX, YY) , PSET: LINE (XX-20, YY+ 
20) -(XX-30,YY+10) , PSET: LINE (XX-3 
0,YY+10) -(XX, YY) , PSET: PAINT (XX-6 
, YY+4 ) , 4 , 4 

50000  IFAR=>1ANDAR=<205  THENA$=" 
GEEEEENEEEEEEEHGKKKEEENEEEEEEEHG 
KOHDKKEKHMKKKKKKKKKKKKHFMOOLGKKK 
HGHGHGHFMOOLDOHDICMOOOOOOOOOOOOL 
FMOOLFFFFFFJIJIJFMOOLDOOKKHMOOOO 
OOOOOOOOLFMNNIJNNNNLGEEEHFMOBFDO 
OONLMOOOOOOOOOOOOOFFKKKKKKKKLFGE 
HMFMOBFDOOLDL" 

50010  IFAR=>206ANDAR=<369THENA$= 
"MOOOOOOOOOOOOLFFMOOOOOOOLFFDIFF 
MOBFDOOODLOOOOOOOOOOOOOLFFMOOOOO 
OOLFJEEIFMOBFDOOODLMNNNNNNNNNNNN 
IFFMOOOOOOOLJEEEHFCMKLDOOODIJEEE 
EEENEEEEEHFFJNNNNONNNEEEHFFGOOOK 
OOOKK" 

50020  I FAR=>  3  7 0 ANDAR=<  53  3  THENA$ 
="GKKKKEENEEKKKLFFGKKKKOKKKKKKOI 
FCJICCCCCCFFJNNIGKKKHMOOLFFMOOOO 
OOOOOOLJHFDKKKKKKKKLMKKKKOOOOLJN 
NIFFOOOOOOOOOOOLGIFDLFCCCCCCCMOO 
OOOOOOOKKKHFFMOOOOOOOOOOLJHFDLFG 
KKKKKH" 

50030  IFAR=>534ANDAR=<697  THENA$ 
="MOOOOOOOOOOOOOFFJNNNNNNNNNNLGI 
FDLCMOOOOOLMNNNNNNNNNNNNIFJEEEEE 
EEEEEEIJHMEOEOOOOOOLFGKKKKKKHHGH 
GHFGEEEHGHGHGHGHGFMEOEOOOOOOLFOO 
OOOOOLFIJIJLFGKHFFJIJIJIJIFFDLAM 
OOOOOL" 

50040  IFAR=>698ANDAR=<902  THENA$ 
=  " F JNNNNNO LME E E E  LFMO LFME E E E E HMH F 
FDLFINNNNNIJEEEEEHMLFGEEHFFMOLFF 
GEEEHFMLFFDLFAAAAAAAGEEENHFMLFFG 
BFFFMOLFFFGEHFFMLFFDNNNNNNNNLMKK 
KHFFMLFFJEIFFMOLFFFFAFFFMLFFGKKK 
KHGKHFOOOOLFMNLFJEKEIFMOLFFMIFFM 
FMLFFMOOOOLFJNN" 

50050  IFAR=>903ANDAR=<1107  THENA 
$="MOOOLFFGIFGKKHGOOOLFFJEIFFFMO 
FFCMNNLCFDKBMMOOLFFJHFMOOLFFMOLF 
JEEEIFFMLFFDOGKOKOHMBMOOOLFFGIFM 
OOLFFMOLJEEEEEIFMLFFDLMOOOOLMBMO 
OOLFFJHFMOOLFFMOLGHGHGHAMOLFFDOO 


OOOOOOBMOOOLFFGIFMOOLFFMOLFFFFFF 
FMOLFFDLMOOOOLMB" 

50060  IFAR=> 1 10 8 ANDAR=< 1230  THEN 

A$="MNNNIFFJHFMOOLFFMOLFFFFFFMMO 

LFFDLJNONNIMBFDEEEILGIFMOOLFFJNI 

FFFFFFFMNIFFGOKKOKKKOBJEENEEIJEJ 

NNNNIJEEEIJIJIJIJEEICCCCCCCCCJB" 

50070  IFAR=>1ANDAR=<205THEND$=RI 

GHT$(LEFT$(A$,AR) ,1) 

50080  IFAR=>206ANDAR=<369THEND$= 

RIGHT$(LEFT$(A$,AR-205) ,1) 

50090  IFAR=>370ANDAR=<533THEND$= 

RIGHT$(LEFT$(A$,AR-3  69) ,1) 

50100  IFAR=>534ANDAR=<697THEND$= 

RIGHT$(LEFT$(A$,AR-533) ,1)  B 

50110  IFAR=>698ANDAR=<902THEND$= 

RIGHT$(LEFT$(A$,AR-697) ,1) 

50120  IFAR=>903ANDAR=<1107  THEND 

$=RIGHT$(LEFT$(A$,AR-902) ,1) 

50130  IFAR=>1108ANDAR=<1230THEND 

$=RIGHT$(LEFT$(A$,AR-1107) ,1) 

50140  SS=ASC(D$) -64 

50150  RETURN 

59000  IFN=> 1ANDN=< 1 5 ANDE=> 1ANDE= 

<15THEN59100ELSE59200 

59100  DRAW"C3BM0,0F2D2F2D2F2D2F2 

D2F2D2F2D2F2D2R6D2F2D2F2D2F2D2R6 

D2F2R20D2F2D2F2D2F2D2F2D2R24D2F2 

D2F2R14D2F2D2F2L108R108BR55R100L 

100E2U2E2U2E2U2R14E2U2U2E2U2E2U2 

E2U2E2U2E2U2E2R12U2E2U2E2U2E2R14 

E8U2E2U2E2U2E2R14E2U2E2R4" 

59110  DRAW"C3BM0,110R28F2D2F2D2F 

2D2R12F2D2F2D2F2D2R20F2D2F2D2F2D 

2L78R78BR80R94L94E2U2E2U2E2U2E2U 

2E2U2R14E2U2E2U2E2U2E2U2R64" 

59200  IFN=>16ANDN=<30ANDE=>1ANDE 

=<15THEN59210ELSE59300 

59210  CIRCLE(30,30) , 25 , 1 : CIRCLE ( 

80,30) ,25,1: CIRCLE (180, 30) ,25,1: 

CIRCLE (230, 30) , 25 , 1 : POKE178 , 106 : 

LINE (25, 55) -(35,75) , PSET, BF: LINE 

(75,55) -(85,75) , PSET, BF: LINE (175 

,55) -(185,75) , PSET, BF: LINE (22  5, 5 

5)-(235,75) , PSET, BF: DRAW" CI" 

59215  CIRCLE(30,124) ,25,1:CIRCLE 

(80,124) ,25,1: CIRCLE (180, 124) ,25 

, 1: CIRCLE (230, 124) ,25,1 

59300  IFN=>1ANDN=<15ANDE=>16ANDE 

=<30THEN59305ELSE59400 

59305  DRAW"C4": LINE (0,80) -(80,80 

)  ,  PSET -.LINE  (80,  70) -(80,  80)  ,PSET: 

LINE  (0  ,  70)  -  ( 80  ,  70 )  ,  PSET :  LINE  ( 180 

,70) -(255,70) , PSET: LINE (180, 80) - 

(255,80) , PSET: LINE (180, 70) -(180, 

80) , PSET: LINE (128,0) -(180,70) , PS 

ET: LINE (128,0) -(180,80) , PSET: LIN 

E(128,0) -(80,70) ,PSET 

59310  LINE  (128,0) -(80,80)  ,  P  SETjL 


INE (0,110)- (50,110) ,PSET:LINE(50 
,110) -(20, 146) ,PSET:LINE(50,110) 
-(50,146) ,PSET: LINE (205, 110) -(25 
5,110) ,PSET: LINE (205, 110) -(245,1 
46) ,PSET: LINE (205, 110) -(205, 146) 
,  PSET 

59320  PSET(30,80,2) : PSET (235 , 80 , 
2) 

59350  RETURN 

59400  IFN=>16ANDN=<30ANDE=>16AND 

E=<30THEN59410ELSE59500 

59410  DRAWMC3" : LINE (0,110) -(80, 1 

10) ,PSET:LINE(0,146)-(80,146) ,PS 

ET: LINE (80, 110) -(80, 146) , PSET: LI 

NE (170, 110) -(255, 110) , PSET: LINE ( 

170, 146) -(255, 146) , PSET : LINE ( 170 

, 110) -(170, 146) ,PSET 

59415  CIRCLE(128, 144) ,150,3,1, .5 

0.  0: CIRCLE (128, 144) ,100,3,1, .50, 

59420  DRAW"C2":LINE(24, 122) -(34, 
144) , PSET, BF: LINE (218, 122) -(228, 
144) , PSET, BF: CIRCLE (128, 50) ,33,3 
,1.50, .50,0: CIRCLE (20, 120) ,33,3, 
1.50, .50,0: CIRCLE (238, 120) ,33,3, 

1 .  50  ,  .  50  ,0 

594  30  DRAW,IC2"  :  LINE  ( 30  ,  94 )  -  ( 50  ,  1 
08) , PSET, BF: LINE (200, 94) -(22  6, 10 
8 ) , PSET , BF : LINE ( 100 , 40 ) - ( 156 , 60 ) 
, PSET , BF : LINE ( 30  , 112 )  -  ( 54  , 120 )  ,  P 
SET, BF: LINE (200, 112) -(226, 120) ,P 
SET, BF 

59450  RETURN 

59500  IFN=>1ANDN=<30ANDE=>31ANDE 
=<41THEN59510ELSERETURN 
59510  DRAW'Cl" : LINE (20, 20) -(235, 
20) , PSET: LINE (20, 20) -(20, 126) , PS 
ET: LINE (235, 20) -(235, 126) ,PSET:L 
INE (20, 126) -(235, 12  6) , PSET: LINE ( 
98,0) -(98, 20) , PSET: LINE (158,0) -( 
158,20) , PSET: LINE (98, 126) -(98, 14 
6) , PSET: LINE (158, 126) -(158, 146) , 
PSET 

59520  LINE(0, 70) -(20,70) ,PSET:LI 
NE (0,100) -(20,100) , PSET: LINE (235 
,70) -(255, 70) , PSET: LINE (235, 100) 
-(255,100) ,PSET 

59530  DRAWHC2" : LINE (98 , 20) - (158 , 
20) , PSET: LINE (98, 126) -(158, 12 6)  , 
PSET: LINE (20, 70) -(20, 100) ,PSET:L 
INE(235,70)-(235,100) , PSET 
59550  RETURN 
60000  DIMW9$(32) 
60010  DRAW" C 4 11 

60020  W9$ (1) ="BM+4 ,0 ;U8R4D4L4R4D 
4BR2" 

60030  W9$(2)="BM+4,0;U8R4D4L4R4D 
4L4R4BR2" 

60040  W9$(3)="BM+4,0;U8R4BD8L4R4 


BR2  " 

60050  W9$(4)="BM+4,0;U8R4D8L4R4B 
R2" 

60060  W9$(5)="BM+4,0;U8R4BD4L4R4 
BD4L4R4BR2 " 

60070  W9$(6)="BM+4,0;U8R4BD4L4R4 
BD4BR2 " 

60080  W9$ (7) ="BM+4 ,0 ;U8R4BD4L2R2 
D4L4R4BR2" 

60090  W9$(8)=MBM+4,0;U8BR4D4L4R4 
D4BR2 " 

60 100  W9  $ ( 9 ) = " BM+  4,0; BU8R4 L2 D8 L2 
R4BR2 M 

60110  W9$(10)="BM+4,0;BU8BR4D8L4 
U2D2R4BR2 » 

60120  W9$(11)="BM+4,0;U8D4E4G4U2 
F4D2BR2 " 

60130  W9$ (12)="BM+4,0;U8D8R4BR2" 
60140  W9$(13)="BM+4,0;U8F2E2D8BR 
2" 

60150  W9$(14)="BM+4,0;U8R4D8BR2" 
60160  W9$ (15) ="BM+4 ,0 ;U8R4D8L4R4 
BR2  " 

60170  W9$ (16)="BM+4,0;U8R4D4L4R4 
BD4BR2 " 

60180  W9$(17)="BM+4,0;U8R4D8L4R4 
U4L2R4BD4" 

60190  W9$ ( 18) ="BM+4 ,0 ;U8R4D4L4R4 
D4BR2 " 

60200  W9$ (19)=MBM+4,0;BU8R4L4D4R 
4D4L4R4BR2 " 

60210  W9$(20)=MBM+4,0;BU8R4L2D8B 
R4" 

60220  W9$(21)="BM+4,0;U8D8R4U8D8 
BR2" 

60230  W9$ (22) ="BM+4 ,0 ;BU8D6F2E2U 
6BD8BR2 " 

60240  W9$(23)="BM+4,0;BU8D8E2F2U 
8D8BR2" 

60250  W9$(24)="BM+4,0;BU8D2F2E2U 
2BD8U2H2G2D2BR6" 

60260  W9$(25)="BM+4,0;BU8D2F2E2U 
2D2G2D4BR4 » 

60270  W9$(26)=HBM+4,0;BU8R4D2G4D 

2R4BR2" 

60280  RETURN 

60600  F0RW9=1T0LEN(WW$) 

60610  W8$=MID$ (WW$,W9, 1) 

60620  W8=ASC(W8$) 

60630  IFW8=32THENDRAW"BM+10,0;" 

60640  IFW8=>65ANDW8=<90THEN60650 

ELSENEXTW9 

60650  W8=W8-64 

60660  DRAWW9$(W8) 

60670  NEXTW9 

60680  RETURN  /S\ 
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STOWAWAY 


ll 


1 


  Program  by  J.C.  Jackson 

T  

he  unearthing  of  a  humanoid  skull  at  Chow 
Kou  Tien  in  China  in  1929  was  a  discovery 
of  extreme  importance  to  the  field  of  anthro- 
pology. The  skull  was  unlike  any  known 
fragment  of  early  man. 

After  preliminary  study,  the  skull  was 
christened  "Sinanthropus  Pekinensis"  (Peking 
Man)  and  was  delivered  with  great  care  to  the 
Peking  Medical  College,  where  it  remained  for 
12  years. 

With  Peking  about  to  fall  to  the  invading 
Japanese  in  1941,  anthropologists  made  a 
decision  to  send  the  fossil  to  the  United  States 
for  safekeeping.  Arrangements  were  made  to 
transport  the  skull  to  the  port  city  of  Tsingtao, 
where  it  was  to  be  loaded  aboard  the  U.S.S. 
President  Harrison  for  shipment  to  America. 

While  the  skull  was  enroute  to  Tsingtao, 
however,  the  ship  was  captured  by  the 
Japanese.  And  the  skull  mysteriously  disap- 
■  peared  in  the  confusion  of  war-torn  China.  To 
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this  day,  the  whereabouts  of  Peking  Man  remains  a  mystery. 
Diary  entry  from  the  journal  of  Dr.  Huan  Tsang: 

Nov.  18,  1941.  "Upon  arriving  at  Tsingtao  and  discovering  the  absence 
of  the  U.S.S.  President  Harrison,  I  was  forced  to  make  a  quick  and,  I  hope, 
a  correct  decision.  The  only  ship  in  port  of  any  size  was  the  Bristol  Cadger, 
a  small  British  freighter  owned  and  captained  by  David  Blake.  I  explained 
my  dire  predicament  to  the  captain  and  what  an  irreplaceable  loss  it  would 
be  to  science  should  the  skull  not  reach  its  destination.  Captain  Blake  swore 
that  as  an  English  gentleman  he  would  do  everything  in  his  power  to  ensure 
the  safety  of  the  precious  cargo.  I  hope  I  won 't  regret  this  hasty  decision.  " 

From  the  diary  of  Captain  Blake: 

Nov.  18,  1941.  "We  cast  off  within  the  hour.  No  time  to  unload  the  cargo 
of  bamboo.  Rumored  Japanese  naval  activity  to  the  north  will  force  me  to 
take  a  more  southern  route  to  Panama.  Was  able  to  obtain  a  quantity  of 
rye  flour  for  the  crew,  a  welcome  change  from  rice  and  fish.  Don't  like  the 
blimey  stuff  myself  I'll  stick  to  fish  and  rice.  I  must  keep  the  presence  of 
the  skull  secret  because  the  crew  is  a  superstitious  lot.  " 

Nov.  27,  1941.  "We  are  500  miles  southwest  of  Turk  Island.  The  crew  is 
acting  increasingly  belligerent. " 

Dec.  18,  1941.  "A  storm  has  blown  the  Cadger  far  south.  My  water  supply 
is  contaminated.  I  don't  know  how  much  longer  I  can  survive.  I've  hidden 
that  fossilized  chunk  of  calcium  where  only  the  most  persistent  and  intellectual 
of  investigators  will  find  it  .  .  .  " 

This  is  where  you  come  in,  more  than  40  years  later.  While  doing  some 
exploratory  research  for  the  Triton  Oil  Company  off  the  southern  coast  of 
Chile,  you  discover  a  sunken  freighter.  Being  a  history  buff  with  a  mild  interest 
in  anthropology,  you  have  a  hunch  that  something  valuable  may  be  aboard 
the  ship.  After  clearing  the  rust  off  of  the  side  of  the  freighter,  you  realize 
that  the  Bristol  Cadget  was  probably  a  British  vessel.  The  more  you  look, 
the  more  fascinated  you  are.  You  prepare  for  a  thorough  investigation. 

Before  running  the  program,  however,  be  sure  to  type  in  a  PCLEAR1.  You 
are  expected  to  use  the  standard  verb-noun  format  for  commands  but,  in 
many  cases,  you  may  use  only  the  first  three  letters  of  the  verb  and  the  first 
four  letters  of  the  noun.  In  some  instances,  though,  it  is  best  to  spell  out 
words  like  "bookshelves,  wheelhouse  or  wireless."  Items  that  you  "take"  or 
"drop"  should  be  spelled  out  completely. 
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An  up-arrow  will  indicate  obvious  exits,  and  you  may  use  single  letters 
for  directional  movement.  If  you  wish  to  avoid  the  opening  screen  after  your 
first  attempt  to  solve  the  Adventure,  just  type  RUN3.  Should  you  inadvertently 
hit  the  BREAK  or  CLEAR  keys,  enter  CONT  and  then  VI  EN.  If  you  are  eliminated, 
the  game  will  reset  itself  to  the  beginning. 


(J.C.  Jackson  resides  in  Owings  Mills,  Md.  Among  his  hobbies  are  writing 
and  playing  Adventure  games.) 


H  STOWAWAY    32K  ECB 


1  CLEAR3j30:GOTO985 

3  FORX=1TO30:READW:NEXT 

4  1  STOWAWAY 

5  1  J.C.JACKSON 

7    1    49  WYEGATE  CT. 

9    1   OWINGS  MILLS, MD. 21117 

11    1  301-356-6274 

13   DIMA$(36) ,B$(36) ,C$(36) ,L$(36 
) ,DO$(4) ,0D$(4) ,LO(4) ,BH$(6) , EH$ 
(6) ,NL$(3) 
15  G0T092  5 

17  PRINT"  I  DON'T  UNDERSTAND !": G 
0T067 

19  PRINT"  TRY  SOMETHING  ELSE ! " : G 
0T067 

21  IF  H=1THENC$(13)="Y0U  SEE  FOO 
TPRINTS . " 

2  3  IFR=27THENB$ (27) ="" : C$ (27) ="" 
25  IFR=18THENC$(18)="" 

29  IFR=29THENMID$ (B$ (29) ,19,6)=" 
it 

31  X=0:Z=0:A=0:PS=0:TC=0 

3  3  RETURN 

3  5  CLS:PRINTSTRING$(7,159) ;"the 
bristol  cadger" ;STRING$ (7, 159) ;: 
POKE1030,  32  :POKE1034,  32  :POKE1042 
, 32 : POKE 10 4 9 , 32 : FORX=0TO5 : PRINTC 
HR$(201)  ;STRING$ (30, 32)  ;CHR$(201 
) ; : NEXT 

37  PRINTSTRING$ (13 , 159) ;"neswud" 

;STRING$(13,159) ; : POKE12  60 , 32 : PO 

KE1267,32 

39  IFR=41THEN69  3 

41  IF  LR=30ANDR=29THENMID$ (B$ (29 
) ,19,6)="LEFT.  " 

43  IF  LR=34ANDR=2  9THENMID$ (B$ (29 
)  ,19,6)="BACK.  11 


45  IFLR=2  8ANDR=2  9THENMID$ (B$ (29) 
,19,6)="RIGHT." 

47  F0RX=66T0194STEP32 :PRINT@X,ST 

RING$(29,32) ; : NEXT 

49  PRINT@66,  "YOU  ARE-"  ;  :  PRINT§10 

0,A$(R) ; :PRINT@130,B$(R) ; :PRINT@ 

162,C$(R) ; :PRINT@288, "" 

51  IFMS=1THENG0SUB665:G0T0917 

53  F0RX=1T06:A=ASC(MID$ (L$ (R) ,X, 

1) ) -48 : IFA>=0THENPOKE1292+X, 94EL 

SEP0KE1292+X,96 

55  NEXT : I FR= 1 3  THENH=H+ 1 

57  IFR=18THENH2=H2+1: IFH2=1THENG 

0SUB663 : F0RX=1186T01213 : F0RZ=1T0 

2  5 : POKEX ,96: NEXTZ , X 

59  IFR=27THENH4=H4+1 

61  IFR=340RR=3  5THENPRINT: PRINT" 

YOU  SEE  A  CLOSED  DOOR  IN  THE 

WEST  BULKHEAD." 

63  IFR=6THENPRINT: PRINT"  THIS  FE 
ELS  A  BIT  SHAKY!" 

65  PRINT@480,STRING$(31,32) ; : TC= 
l:GOSUB115 

67  PRINT@288,STRING$(32,32) ; :I$= 
m  »  :  v=j3 :  V$="  "  :  N=0 :  N$="  "  :  S=0 :  SN$=" 
ii 

69  PRINT@288, "" ; :LINEINPUT"  **  " 

;I$:IFI$=""THEN69 

71  PRINT: PRINT: PRINT: PRINT: PRINT 

§320, "" 

73  G0SUB21:IFLEN(I$)=1THEN121 
75  IFR=6THEN687 

77  S=INSTR(1,I$,S$) :IFS=0THEN99 
79  IFLEN(I$)=2THEN17 
81  V$=LEFT$ (1$, 3) :V=INSTR(1,VL$, 
V$) : IFV=0THEN19 

83  L=LEN(I$)-S:N$=RIGHT$(I$,L) :I 
FLEN (N$) <3THEN17 


85  SN$=LEFT$(N$,4) : NN$=LEFT$ (SN$ 
,1) :NN=ASC(NN$) :X=0 
87  IFNN>64ANDNN<68THENX=0:GOTO97 
89  IFNN>67ANDNN<78THENX=l:GOT097 
91  IFNN>77ANDNN<83THENX=2:GOT097 
93  IFNN>82ANDNN<91THENX=3 : GOT097 
95  G0T017 

97  N=INSTR(1,NL$(X) ,SN$) :IFN=0TH 
EN19ELSE107 

99  IFI$="HELP"THENPRINT"  CLIMB*D 
IG*DROP*EAT*INV*LIFT" : PRINT"  LIS 
TEN*LOOK*OPEN*PULL*PUSH*RAP" : PRI 
NT"  READ*SHOOT*TAKE*TURN*WIPE*VI 
EW" :GOT067 

101  IFI$="INV"THEN711 

102  IFI$="END"THENCLS :  END 

103  IFI$="VIEW"THEN35 
105  IFS=0THEN17 

107  IFV=16THEN719 
109  IFV=22THEN751 
111  IFR=0THEN131 

113  ON  R  0010159,175,185,195,205 

,217,195,159, 175,185,219,235,23  5 

,235,345,293,269,293,375,255,547 

,235,395,495,417,219,235,2  35,2  35 

,313,527,443,469,32  3,583,613 

115  PRINT@480, "" ; :F0RX=1T04 

117  IFLO(X)=R  THENPRINTTAB (TC) 0$ 

(X) ; :TC=TC+8 

119  NEXTX: RETURN 

121  F1=0:FORX=1TO6 

12  3  IFI$=MID$(LL$,X, 1)THENA=ASC( 
MID$(L$(R) ,X,1) ) -48:F1=1:IFA=>0T 
HENLR=R : R=A : G0T03  9 

125  NEXTX 

127  IFF1=1THENPRINT"      (NOT  THAT 

WAY , YOU  LUBBER ! ) » : GOTO  6  7 

129  PRINT"      (WHAT'S   "I$"  SUPPOSE 

D  TO  MEAN?)":PRINT@3  9  3,"  " : GOT 

067 

131  IFV>1THEN151 

133  IFN=80RN=150RN=128THENPRINT" 
THE  SEA  LOOKS  COLD. " : GOT067 

13  5  IFN=70THENPRINT"  JUST  ROCKS 
AND  A  LOT  OF  THEM. " : GOT067 

137  IFN=36ORN=76ORN=80ORN=127ORN 
=146THEN801 

139  IFN=30ORN=13  6THENPRINT"  AN  0 
LD  AND  RUSTED  MERCHANTMAN. 

A  FORLORN  SIGHT !": GOT067 
141  IFN=590RN=174THENPRINT"  RIVE 
TED  AND  RUSTY." :GOT067 

143  IF  N=1110RN=1150RN=137THENPR 
INT"  NOTHING  SPECIAL  ABOUT  THEM! 
": GOTO 6 7 

144  IFN=170THENPRINT"  I  SEE  CRAG 
GY  PEAKS! ":GOT067 

145  IF  N= 119 THENPRINT "  IT'S  VERY 
THICK, LOOKS  STRONG !": GOT067 


147  I FN=  3 THENPRINT "  IT'S  RUST  ST 
REAKED, BUT  LOOKS         LIKE-      ' BRI 

OL  CADGE  '":GOT067 
149  G0SUB761:IFPS=1THEN67ELSEPRI 
NTR4$:GOT067 
151  IFV=37ANDN=3THEN147 
153   IFV=19ANDN=119THENR=l:GOT03  9 
155  IFV=13ANDN=119THENPRINT"  IT 
FEELS  SECURE. " :GOT067 
157  IFV=4ANDN=115THENPRINTR5$:G0 
T067ELSE779 
159  IFV>1THEN173 

161  I FR= 1 ANDN=  6 0  ORR= 1 ANDN=  6  4  THEN 

PRINT"  RUSTY" :GOT067 

163   IFN=14THENPRINT"  OPEN  AND  LE 

ADING  INTO  A  LARGE       ROOM.": GOTO 

67 

165  IFR=1ANDN=119THENPRINT"  IT'S 
A  HAWSER, AND  WELL  SECURED.  ( 

FORGET  IT!)":GOT067 

167  I FN= 13  2 THENPRINT "  THERE  IS  A 
LINE  OF  PORTHOLES         ABOUT  EYE 

LEVEL. ":GOT067 

169  IFN=101ORN=12  3THENPRINT"  CAN 
•T  TELL  MUCH  FROM  OUT  HERE .": GOT 
067 

171  GOSUB761: IFPS=1THEN67ELSE801 
173  IFR=1ANDV=13ANDN=119THENPRIN 
T"  TOO  LARGE  TO  HANDLE !": GOT067E 
LSE779 

175  IFV>1THEN779 

177  IFR=9ANDN=63THENPRINT"  JUST 
GOES  OUT  THERE  A  SHORT  WAY . " 

: GOTO 6 7 

179  IFLEN(C$(2) )=0THEN183 

181  IFR=2ANDN=450RR=2ANDN=1120RR 

=2ANDN=153THENPRINT"  OMEN  MAYBE? 

" : B$ ( 2 ) =" " : C$ ( 2 ) =" " : GOT067 

183  GOSUB761:IFPS=1THEN67ELSE801 

185  IFV>1THEN779 

187  IFN=128THENPRINT"  LOOKS  COLD 
! ":GOT067 

189  IFR=10ANDN=14THENPRINT"  IT'S 
OPEN.    LOOKS  SHADOWY  IN  THER 
E! ":GOT067 

191  IFR=10ANDN=4ORR=10ANDN=2ORR= 
1 0 ANDN= 123 THENPRINT "   I  CAN'T  SEE 

MUCH.": GOTO 6 7 
193  GOSUB761:IFPS=1THEN67ELSE801 
195  IFV>1THEN779 

197   IFN=66THENPRINT"  A  BIG  MESS, 

RUBBLE  EVERYWHERE . " : GOTO 6 7 

199  IFN=115THENPRINT"  VERY  LARGE 

GRANITE  ROCKS. ": GOTO 6 7 
201  IFR=7ANDN=3 4THENPRINT"  WHAT 
EYES?" : PRINT© 162 , STRING$ (28 , 32) ; 
:C$(7)=" ":GOT067 

203  GOSUB761:IFPS=1THEN67ELSE801 
205  IFV>1THEN215 
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2J37   I FN=  114 THENPRI NT H   IT'S  GOT  A 

WOODEN  COVER  ON  IT." :GOT067 
2j39  IFN=149ANDLO(4)=6THENPRINT" 

1  SEE  SOMETHING  ON  IT!" :GOT067 
211  IFN=1490RN=152THENPRINTR1$:G 
OT067 

213  GOSUB761: IFPS=1THEN67ELSE8^1 
215  I FV=  3 1 ANDN= 114 THENPRINT "  I  H 
EAR  HISSING!  11 :  GOT067ELSE779 
217  G0SUB761:IFPS=1THEN67ELSEPRI 
NT"  I  THINK  THIS  WOOD  IS  ROTTEN! 
" : GOTO 6 7 

219  IFV>1THEN231 

221  I FN=7 3 THENPRINT "   CAN'T  TELL 

MUCH  FROM  UP  HERE . " : GOT067 

223  IFN=60ORN=64ORN=145THENPRINT 

"  THE  STEPS  LOOK  OK.":GOT067 

225  IFN=142THENPRINTR1$:G0T067 

227   IFR=11ANDN=14THENPRINTR3 $ : GO 

T067 

229  G0SUB761:IFPS=1THEN67ELSE831 
231  IFR=11ANDV=31ANDN=730RR=11AN 
DV=31ANDN=145THENPRINT"  I  HEAR  S 
OMETHING, BUT  I  CAN'T         MAKE  IT 
OUT. ": GOTO 6 7 

23  3   IFR=2  6ANDV=31ANDN=520RR=2  6AN 
DV=3 1ANDN=4  20RR=2  6ANDV=3 1ANDN=7 3 
ORR=2  6ANDV=3 1ANDN=12  8THENPRINT" 
SOUNDS  WET  DOWN  THERE .": GOT067EL 
SE779 

235  IFV>1THEN247 

237  IFR=13ANDN=58ANDH>1THENPRINT 
"  THEY  LOOK  ABOUT  YOUR  SIZE!": GO 
T067 

239  IFR=13ANDN=2  60RR=14ANDN=2  60R 
R=13ANDN=1610RR=14ANDN=161THENPR 
INTR1$:G0T067 

241  IFR=14ANDN=8£ORR=14ANDN=1460 
RR=14ANDN=16THENPRINT"  NOT  VERY 
CHEERY !":GOT067 

243  IFR=27ANDN=99ANDH4=1THENPRIN 
T"  HUGE! " :GOT067 

245  G0SUB761:IFPS=1THEN67ELSE831 
247  IFR=13ANDV=7ANDN=2  60RR=14AND 
V=7ANDN=2 6THENPRINT"  SNEEZE! " ;R2 
$:GOT067 

249  IFR=13ANDV=7ANDN=1610RR=14AN 
DV=7ANDN=161THENPRINT"  TOO  MANY! 
" :GOT067 

251  IFR=13ANDV=7ANDN=58ANDH>1THE 
NPRINT"  DONE-" : PRINT@162 , STRING$ 
(19,32) ; :C$(13)="":H=^:GOT067 
253  GOT0779 
255  IFV>1THEN779 

2  57  I FN=  14,0 THENPRINT"  CAN'T  TELL 
MUCH  FROM  HERE. " :GOT067 

259  IFN=730RN=1140RN=1150RN=1350 
RN=14  9ORN=170THENPRINT"  FINE  VIE 
W! ":GOT067 


261  IFN=59ANDLEN(N$) >6THENPRINT" 
JUST  A  RUSTY  RAILED  PLATFORM.": 
GOT067 

2  63  IFN=14THENPRINTR3$:GOT067 
265  IFN=6j30RN=64THENPRINT"  THEY 
DESCEND  TO  THE  MAIN  DECK.":GOT06 
7 

267  GOSUB761: IFPS=1THEN67ELSE801 
269  IFV>1THEN285 

271  IFN=80ORN=146THENPRINT"  SUNN 
Y  IN  HERE. " :GOT067 

273   IFN=750RN=144THENPRINT"   I  SE 
E  BLUE  SKY.":GOT067 
275  IFN=13  3ANDK=j3THENPRINT"  A  LA 
RGE  CLOSED, METAL  CHEST .": GOT067 
277  IFN=13  3ANDK=1ANDF0(1)=1THENP 
RINT"  IT'S  NOW  EMPTY. " :GOT067 
279  IFN=133ANDK=1ANDFO(1)=,0THENP 
RINT"  EMPTY, EXCEPT  FOR  A  KEY . " : G 
OT067 

281  IFN=13  4ANDK=1ANDF0(1)=PTHENP 

RINT"   " ;OD$ (1) :GOT067 

283  GOSUB761: IFPS=1THEN67ELSE851 

285  IFV=4ANDN=l£2THENPRINTR5$:GO 

T067 


287  IFV=4ANDN=13  3ORV=10ANDN=13  3O 

RV=13ANDN=13  3THENPRINT"  IT'S  MUC 

H  TOO  HEAVY! " : GOTO 6 7 

289  IFV=25ANDN=13  3ANDK=0THENPRIN 

T"  OK-" ;R3$:K=l:GOT067 

291  IFV=25ANDN=133ANDK=1THENPRIN 

TR3$"  ALREADY! " : GOT067ELSE779 

293  IFV>1THEN305 

295  IFR=16ANDN=250RR=16ANDN=14  60 
RR=16ANDN=8^5THENPRINT"  VERY  BRIG 
HT  HERE. ": GOTO 6 7 
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297  IFN=260RN=161THENPRINT"  THIC 
K  AS  DOVE'S  DOWN!" : GOTO 6 7 

2  99  IFR=16ANDN=116THENPRINT"  THI 
CK  COBWEBS . " : GOT067 

3)31  IFR=18ANDN=560RR=18ANDN=97TH 
ENPRINT"  HE'S  GONE  NOW!": GOTO 6 7 
303  G0SUB761:IFPS=1THEN67ELSE851 
305  IFV=7ANDR=18ANDN=2  60RV=7ANDR 
=18ANDN=161THENPRINT"  NOT  WITH  T 
HAT  SPIDER  IN  THERE !": GOTO 6 7 
307  IFV=7ANDN=260RV=7ANDN=1160RV 
=7ANDN=161THENPRINTR2$:GOT067 
3,09  IFV=4ANDN=102THENPRINTR5$:GO 
T067 

311  IFR=16ANDV=7ANDN=54THENPRINT 
R2$:GOT067ELSE779 

313  IFV>1THEN779 

314  IFN=4 60RN=54THENPRINT"  LONG 
TABLES  AND  BENCHES .": GOT06 7 

315  IFN=62ORN=101ORN=12  3THENPRIN 
T"  LOOKS  LIKE  THE  CREW'S  MESS.": 
GOT067 

317  IFN=290RN=92THENPRINTR1$:G0T 
067 

319  IFN=480RN=59THENPRINT"   I  DON 
'T  SEE  ANY.":GOT067 
321  G0SUB761:IFPS=1THEN67ELSE867 
323  IFV>1THEN339 

325  IFN=4  6ORN=54ORN=90ORN=101ORN 
=12 3THENPRINT"   LOTS  OF  BUNKS  IN 
HERE! " : GOTO 6 7 

327  IFN=3  30RN=370RN=850RN=920RN= 
10 2 0RN=1 2  5THENPRINTR6  $ : G0T06  7 
329  IFN=890RN=13  2THENPRINT"  YOU 
SEE  A  CLOSED  DOOR. " : GOT067 
331  IFN=14THENPRINT"  JUST  A  DOOR 
WITH  A  SMALL  HOLE       CHEWED  IN  T 
HE  BOTTOM . " : GOTO  6  7 
333  IFN=121THEN457 

335  IFN=110THENPRINT"  DARK  IN  TH 
ERE! " :G0T067 

337  GOSUB761: IFPS=1THEN67ELSE867 

3  39  IFV=4ANDN=102THENPRINTR5$:GO 
T067 

341  IFV=31ANDN=14ORV=31ANDN=110T 
HENPRINT"  I  HEAR  SCUFFLING  ABOUT 
.":GOT067 

343  IFV=25ANDN=14THEN701ELSE779 
345  IFV>1THEN367 

347  IFN=52ORN=101ORN=123THENPRIN 
T"  LARGE, BRIGHT  AND  AIRY.":G0T06 
7 

348  IFN=10RN=460RN=54THENPRINT" 
JUST  TABLES  AND  CHAIRS .": GOTO 6 7 

349  IFN=1130RN=1250RN=131THENPRI 
NTR1$:G0T067 

350  IFN=36THEN861 

351  IFN=9 2 THENPRINT "  ONE  OF  THEM 
HAS  A  BOOK  ON  IT.":GOT067 


353  IFN=14THENPRINT"  BOTH  ARE  OP 
EN.":G0T067 

355  IFN=930RN=158THENPRINTR3$ ; " . 
I  SEE  SOME  WRITING. " :GOT067 
357  IFN=19ORN=160THENPRINT"  ENGL 
ISH! " :GOT067 

359  IFN=80ORN=14  6THENPRINT"  GOOD 

IN  HERE. ": GOTO 6 7 
361  IFN=750RN=144THEN863 
3  63   IFN=12 1THENPRINT"   I  SEE  A  VE 
NT.":GOT067 

365  G0SUB761:IFPS=1THEN67ELSE867 
367  IFV=4ANDN=1130RV=4ANDN=131TH 
ENPRINTR5$ : GOT067 

369  IFV=4ANDN=930RV=4ANDN=158THE 
NPRINT"  LOOKS  TOO  FRAIL! ": GOT067 
371  IFV=37ANDN=190RV=37ANDN=930R 
V=37ANDN=158ORV=37ANDN=160THENPR 
INT"  IT  READS- 'ABOVE  THE  VALVES' 
" :GOT067 

373   IFV=2  8ANDN=19THENPRINT"  IT'S 
TO  FRAIL  TO  TOUCH !": GOT067ELSE7 
79 

375  IFV>1THEN391 

377  IFN=101ORN=12  3THENPRINT"  THI 
S  MUST  BE  THE  STATEROOM. ": GOTO 6 7 
379  IFN=10RN=4  60RN=540RN=124THEN 
PRINT"  A  BED, DESK  AND  BOOKSHELVE 
S.":GOT067 

381  IFN=180RN=3  30RN=670RN=850RN= 
10  2  ORN= 113  ORN= 1 3 1THENPRINTR6  $ : GO 
T067 

383   I FN=10 4 THENPRINT"  NOTHING  NO 
VEL  ABOUT  THEM. ": GOTO 6 7 
385  IFN=20ORN=9  3ANDLEN(N$) >5THEN 
PRINT"  FULL  OF  BOOKS .": GOT067 
387  IFN=93THENPRINT"  CRUMBLING  W 
ITH  AGE.":GOT067 

389  G0SUB761:IFPS=1THEN67ELSE867 

391  IFV=4ANDN=93ORV=4ANDN=102ORV 
=4ANDN=1130RV=4ANDN=13 1THENPRINT 
R5$:GOT067 

392  IFV=3 7 ANDN=9 3THENPRINT "  I  DO 
N'T  HAVE  ONE  TO  READ! ": GOTO 6 7 

393  IFV=37ANDN=104THENPRINT"  ONE 
READS- 'THE  EVOLUTION  OF  RAD 

10  TUBES  AND  VALVES '.": GOTO 6 7 ELS 
E779 

3  95  IFV>1THEN409 

397  IFN=1290RN=166THENPRINT"  YES 

,A  MAP  OR  CHART. ": GOTO 6 7 

399  I FN=9 2 THENPRINT"  I  SEE  SOME 

PAPER  ON  IT.":GOT067 

4J31  I FN=2 7THENPRINT "  A  CHART  OR 

MAP, I  THINK! " :GOT067 

403  IFN=46ORN=54ORN=101ORN=123TH 
ENPRINT"   I  SEE  A  TABLE, PAPER  AND 

LAMP. " :G0T067 

404  I FN=8 8 THENPRINT "  DO  YOU  MEAN 


READ  MAP?":GOT067 

405  IFN=1380RN=146THENPRINT"  JUS 
T  AN  ORDINARY  LAMP . 11 :  GOTO 6 7 

406  IFN=84THENPRINT"  I  DON'T  SEE 
ONE. " :GOT067 

407  G0SUB761:IFPS=1THEN67ELSE867 
409   IFV=4ANDN=270RV=4ANDN=12  90RV 
=4ANDN=166THENPRINTR5$ : GOT067 
411  IFV=2  8ANDN=138THENPRINT"  IT 
JUST  SPINS  AROUND. ": GOTO 6 7 

413  IFV=28ANDN=270RV=28ANDN=1290 

RV=2  8ANDN=166THENPRINT"  MADE  BY 

HONG  KONG  MAP  CO.": GOTO 6 7 

415  IFV=37ANDN=2  70RV=3  7ANDN=12  90 

RV=3  7 ANDN= 1 6 6THENPRINT"   LOOKS  LI 

KE  THE  PACIFIC  OCEAN .  ": GOT067ELS 

E779 

417  IFV>1THEN441 

418  IFN=101ORN=12  3THENPRINT"  MUS 
T  BE  THE  CAPTAIN'S  CABIN .": GOT06 
7 

419  IFN=10RN=4  60RN=54THENPRINT" 
NOTHING  OUT  OF  THE  ORDINARY 
EXCEPT  MR. BONES. ":GOT067 

421  IFN=40THENPRINT"  A  HEADLESS 
BUNCH  OF  BONES  HELD     TOGETHER  BY 

A  PEA  JACKET.  11 :  GOTO 6 7 
423  IFN=18THENPRINTM  IT  HAS  A  SK 
ULL  ON  IT.":GOT067 
425  I FN=4 4 THENPRINT "  IT  HAS  A  HO 
LE  IN  ITS  SIDE. 11  :GOT067 
427   IFN=110THENPRINT"  WIDE  AS  HU 
MAN  THOUGHT! " :GOT067 
429   IFN=12  60RN=169THENPRINT"  BLU 
E  WITH  THREE  GOLD  STRIPES  ON 
THE  SLEEVES.  11 :  GOTO  6  7 
431  IFN=71THENPRINT"  EMPTY": GOTO 
67 

433  IFN=33ORN=85ORN=102ORN=125OR 
N= 1 4 1THENPRINTR6  $ : GOTO  6  7 
435  IFN=53THENPRINT"   DRY  AS  DUST 
! ":GOT067 

437  IFN=121THEN457 

439  GOSUB761: IFPS=1THEN67ELSE867 

441  IFV=4ANDN=102THENPRINTR5$:GO 

T067ELSE779 

443  IFV>1THEN461 

445  IFN=47ORN=101ORN=123THENPRIN 
T"  SOMEWHAT  DARK  IN  HERE!":GOT06 
7 

446  IFN=890RN=132THENPRINT"  I  SE 
E  NOTHING  BUT  SHELVES  AND  A  BA 
RREL  AGAINST  THE  FAR  WALL.": GOTO 
67 

447  IFN=20THENPRINT"  FULL  OF  CAN 
S. " :GOT067 

449  IFN=105ORN=109ORN=154THENPRI 
NT"  CAN'T  TELL  MUCH  ABOUT  THEM." 
:  GOTO  6  7 


451  IFN=17ANDSF=10RN=182ANDSF=1T 
HEN887 

453  I FN= 17 THENPRINT"   IT'S  HALF  F 
ULL  OF  BROWN  FLOUR. ": GOTO 6 7 
455  IFN=690RN=1270RN=18  2THENPRIN 
TR6$:GOT067 

457  IFN=12 1THENPRINT"  I  SEE  A  VE 
NT  UP  THERE. ": GOTO 6 7 
459  G0SUB761:IFPS=1THEN67ELSE867 
4  61  IFV=4ANDN=17ORV=10ANDN=17ORV 
=13ANDN=17THENPRINT"  MUCH  TOO  HE 
AVY ! " : GOTO 6 7 

463  IFV=40ANDN=182ANDEE=0THENPRI 
NT"  A  LITTLE  DRY, BUT  NOT  BAD ! " : E 
E=1:R4$="  WHAT  !  "  :  R7 $="NOT  GOING" 
:R8$="" :GOT067 

465  IFV=34ANDN=1820RV=28ANDN=182 
THENPRINT"  COUGH!  COUGH!  NOTHIN 
G.":GOT067 

4  66  IFV=3  7ANDN=154THENPRINT"   I  C 
AN'T  MAKE  THEM  OUT!": GOTO 6 7 
467   IFV=40ANDN=18 2 THENPRINT"  NO 
THANKS!   ONCE  WAS  ENOUGH .": GOTO 6 7 
ELSE779 

469  IFV>1THEN489 

471  IFN=72ORN=101ORN=123THENPRIN 
T"  LOOKS  AS  IF  THERE  WAS  A  RIOT 

IN  HERE. ": GOTO 6 7 
473  IFN=6ORN=50ORN=70THENPRINT" 
IT'S  COVERED  WITH  OPEN  CRATES 
AND  SMALL  CLOTH  BAGS .": GOTO 6 7 
475  IFN=570RN=610RN=165THENPRINT 
"  SMASHED  OPEN! " :GOT067 
477  IFN=620RN=15J3THENPRINT"  BAGS 

AND  BOXES  ALL  OVER. " : GOT067 
479   I FN= 1 3 THENPRINT "  A  PLETHORA 
OF  CLOTH  BAGS! " :GOT067 
481  IFN=141THENPRINTR1$:G0T067 
483  IFN=41THENPRINT"  SMALL  OPEN 
CLOTH  BAGS . " : GOT067 
485  I FN=  7 9 THENPRINT "  A  LONG  WAY 
FROM  DEARTH. ": GOTO 6 7 
487  G0SUB761:IFPS=1THEN67ELSE867 
489  IFV=4ANDN=570RV=4ANDN=165THE 
NPRINTR5$:GOT067 

491  I FV=2 5 ANDN=4 1THENPRINT "  THEY 

FALL  APART ! " : GOTO  6  7 
493  IFV=4ANDN=41THENPRINT"  THEY 
FALL  TO  DUST. " : GOT067ELSE7  79 
495  IFV>1THEN517 

497   IFN=101ORN=123THENPRINT"  MUS 
T  BE  THE  RADIO  SHACK. ": GOTO 6 7 
499  IFN=38ORN=103ORN=148ANDLEN(N 
$) >5THENPRINT"  JUST  A  SMASHED-UP 
BUNCH  OF  TUBES, KNOBS  AND  W 

IRES! " :GOT067 

501  IFN=3  3ORN=85ORN=92ORN=102ORN 
=1250RN=178THENPRINTRl$:GOT067 
503  IFN=7ORN=100ORN=120ORN=148TH 
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ENPRINT"   I  CAN'T  TELL  MUCH  ABOUT 

THEM. " : GOTO 6 7 
505  IFN=4  60RN=54THENPRINT"  A  SMA 
SHED  WIRELESS  ON  A  TABLE.  ALSO 
A  CHAIR  AND  BUNK. " : GOT067 
509  IFN=12 1THENPRINT"  WELL, LOOK 
AT  THAT!   A  MESSAGE         UP  THERE." 
:GOT067 

511  IFN=162THENPRINT"   NO  CHANCE! 

I  FOUND  IT  FIRST! " :GOT067 
513  I FN=  6 2 ORN=  1 6,0 THENPRINT "  NEED 
S  READING!" : GOTO 6 7 

515  G0SUB761:IFPS=1THEN67ELSE867 

517  IFV=4ANDN=3  8ORV=4ANDN=103ORV 

=4ANDN=148THENPRINT"  MUCH  TOO  HE 

AVY  FOR  THAT! " :GOT067 

519  IFV=2  8ANDN=7THENPRINTR2  $ : GOT 

067 

521  IFV=13ANDN=100ORV=13ANDN=120 
THENPRINT"  I  MIGHT  CUT  MYSELF!": 
GOT067 

523  IFV=4ANDN=10 2 THENPRINT"  I  SE 
E  A  NAUGHTY  MAGAZINE !": GOTO 6 7 
525  IFV=37ANDN=62ORV=37ANDN=160T 
HENPRINT"  WHEN  ASHES  TURN  COLD  A 
ND  GRAY  WHEN  HEAD  AND  SOLE  POIN 
T  THE  WAY  FROM  A  WEASAND  DROPS  T 
HE  PAY" : GOT067ELSE779 
527  IFV>1THEN545 

529  IFN=78ORN=101ORN=12  3ORN=130T 
HENPRINT"   LOOKS  LIKE  THE  COOK'S 
MESS!":GOT067 

531  IFN=140RN=3  20RN=81THENPRINTR 
1$:G0T067 

533  IFN=4  30RN=480RN=8  30RN=87THEN 
PRINT"  I  DON'T  SEE  ANY  HERE.": GO 
T067 

53  5  IFN=68THENPRINT"  AN  OLD  PARA 

FFIN  BURNER. ": GOTO 6 7 

537  IFN=11THENPRINTR3 $ ; "  AND  EMP 


TY.":GOT067 

539  IFN=82THENPRINT"  BLACK  WITH 
AGE. " :GOT067 

541  IFN=12 1THENPRINT"   COVERED  WI 

TH  GREASE. ": GOTO 6 7 

543  G0SUB761:IFPS=1THEN67ELSE867 

545  IFV=7ANDN=82THENPRINT"  THIS 

ISN'T  MUCH  FUN, ALSO  IT'S       A  WAS 

TE  OF  TIME! " : GOT067ELSE779 

547  IFV>1THEN574 

549  IFN=77ORN=12  3ORN=140ANDLEN(N 
$)  =10THENPRINT"  AN  EERIE  LIGHT  W 
ASHES  THE  ROOM  AS  SUNLIGHT  TRIE 
S  TO  PENETRATE  AGE  FOGGED  GLASS 
. ":GOT067 

551  IFN=6ORN=14ORN=35ORN=50ORN=7 
0ORN=111ORN=121ORN=132ORN=17  3ORN 
=174THENPRINT"  NOTHING  WORTH  NOT 
ING. " : GOT067 

553   I FN=7 3 THENPRINT"   I'LL  HAVE  T 

0  GO  OUTSIDE. " :GOT067 

555  IFN=118THENPRINT"  A  UNIMPRES 

SIVE  METAL  WHEEL. ": GOT067 

557  IFN=490RN=156THENPRINT"   I  SE 

E  A  BRASS  STAND  HOUSING  A  COMP 

ASS. " :GOT067 

559  IFN=390RN=145THENPRINT"  WE  H 
AVE  A  HEADING  OF  90  DEC":  GOTO  6  7 
561  IFN=96THENPRINT"  I  SEE  A  BRA 
SS  DEVICE  MARKED  FULL  ASTERN 

TO  FULL  AHEAD. THE       HANDLE  REST 
S  0N->  "BH$(BC) :GOT067 
563  IFN=106THENPRINT"   IT  POINTS 
T0->  "BH$ (BC) :GOT067 
565  IFN=140THENPRINTR6$:GOTO67 
567  IFN=750RN=14  40RN=178THENPRIN 
T"  ALMOST  OPAQUE . " : GOTO 6 7 
569  IFN=80ORN=14  6THENPRINT"  EEIR 
E ! " : GOT067 

571  IFN=14THENPRINTR3$:GOT067 

572  IFN=107THENPRINT"  LETS  KEEP 
IT  SIMPLE! ! " : GOTO 6 7 

573  G0SUB761:IFPS=1THEN67ELSEPRI 
NTR4$:GOT067 

574  IFV=7ANDN=17  3THENPRINT"  SWAB 
THE  DECK  TOO?":GOT067 

575  IFV=10ANDN=106ANDEF=1THENBC= 
BC+l:GOT0667 

577  IFV=13ANDN=106ANDEF=1THENBC= 
BC-l:G0T0667 

579  IFV=10ANDN=106ORV=13ANDN=106 
THENPRINT"  THE  PLAGUED  THING  IS 
STUCK!": GOTO 6 7 

580  IFV=37ANDN=106THEN563 

581  IFV=28ANDN=140ANDLEN(N$)=5TH 
ENPRINTR2$:GOT067ELSE779 

583  IFV>1THEN601 

585  IFN=20RN=8  60RN=12  3THENPRINT" 
CAVERNESS , WET  AND  GLOOMY !": GOTO 
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67 

587  IFN=6ORN=50ORN=70ORN=12  8THEN 
PRINT"  VERY  WET  HERE ! " : GOT067 
589  IFN=140RN=160RN=510RN=1210RN 
=17 3THENPRINT"  TOO  DARK  TO  TELL 
MUCH! "  : GOTO 6 7 

591  I FN=  1 2 0THENPRI NT "  A  FEW  HERE 

-A  FEW  THERE. ": GOTO 6 7 

593   IFN=2 4THENPRINT"   I  SEE  A  TEL 

EGRAPH.":GOT067 

595  IFN=9 6 THENPRINT"  I  SEE  A  BRA 
SS  DEVICE  MARKED  FULL  ASTERN 

TO  FULL  AHEAD. THE  HANDLE  REST 
S  ON->  "EH$ (EC) :GOT067 

597  IFN=106THENPRINT"  IT  POINTS 
TO->  HEH$(EC) :GOT067 

598  IFN=107THEN572 

599  G0SUB761:IFPS=1THEN67ELSE867 
601  IFV=10ANDN=106ANDEF=1THENEC= 
EC+l:GOT0675 

603  IFV=13ANDN=106ANDEF=1THENEC= 
EC-l:GOT0675 

605  IFV=10ANDN=106ORV=13ANDN=106 
THENPRINT"   IT'S  STUCK! ": GOT067 
607   IFV=2  5ANDN=14THENPRINT"  OOPS 
! ! ":GOT0695 

609  IFV=3 1ANDN=14THENPRINT"  I  TH 
INK  I  HEAR  WATER. " : GOTO 6 7 

610  IFV=37ANDN=106THEN597 

611  IFV=31ANDN=20RV=31ANDN=8  60RV 
=3 1ANDN=12 3THENPRINT"  I  HEAR  DRI 
PPING  WATER. " :GOT067ELSE779 

613  IFV>1THEN639 

615  IFN=20RN=8  60RN=12  3THENPRINT" 

CREEPY  IN  HERE! " :GOT067 
617  IFN=6ORN=50ORN=70ORN=128THEN 
587 

619  IFN=160RN=510RN=121THEN589 
621  IFN=65THENPRINT"  LARGE!  MENA 
CING!    I  SEE  ASHES         INSIDE.": GO 
T067 

623  IFN=120THEN591 

625  IFN=50RN=9THENPRINT"  COLOSSA 

L  AMOUNT! ": GOTO 6 7 

627  IFN=55ANDBF=10RN=157ANDBF=1T 
HENPRINT"   I  SEE  A  BOX  ON  THE  WAL 
L  BEHIND     THE  COAL. " : GOT067 
629   IFN=550RN=157THENPRINT"  IT'S 

AGAINST  THE  NORTH  WALL. " : GOT067 
631  IFN=57ANDBF=1THENPRINT"  IT  R 
EADS-  DANGER  HIGH  VOLTAGE  PULL 

HANDLE  FOR  AUXILIARY  POWE 
R" : GOT067 

633  IFN=106ANDBF=1THENPRINT"  JUS 
T  A  HANDLE  ON  THE  SIDE . " : GOT067 
635  I FN= 14 THENPRINT"   I  COULDN'T 
TELL  ANYTHING  WHEN       I  WAS  NEXT 
TO  IT. SO  HOW  THE  (BEEP)  CAN 

I  SEE  IT  NOW! ! " :GOT067 


637  G0SUB761:IFPS=1THEN67ELSE867 

63  9  IFV=3  4ANDN=55ANDBF=10RV=3  4AN 
DN=157ANDBF=1THENPRINT"  I'M  TIRE 
D  OF  DIGGING  COAL! " : GOT067 

641  IFV=34ANDN=55ANDLO(4)=100ORV 
=3  4ANDN=157AND^LO(4)  =100THENCF=CF 
+l:GOT0683 

64  3   IFV=28ANDN=157THENPRINT"  DO 
YOU  MEAN  DIG?":GOT067 

645  IFV=34ANDN=50ORV=34ANDN=9ORV 
=34ANDN=550RV=3  4ANDN=157THENPRIN 
T"  DIG-DIG  PHEW!  NOTHING .": GOT06 
7 

646  I FV= 1 0 ANDN= 1 0 6 ANDBF= 1 ANDE F= 1 
THENPRINT"  CLINK! ": EF=0 : GOT067 

647  IFV=10ANDN=106ANDBF=1THENPRI 
NT"  IT'S  ALREADY  UP!":GOT067 

649  IFV=13ANDN=106ANDBF=1ANDEF=1 
THENPRINT"  IT'S  ALREADY  DOWN!":G 
OT067 

651  IFV=13ANDN=106ANDBF=1THENPRI 
NT"  CLONK! " : EF=1 : GOT067 

652  IFV=37ANDN=57ANDBF=10RV=3  7AN 
DN=160ANDBF=1THENN=57 : GOT063 1 

653  IFV=31ANDN=20RV=31ANDN=8  60RV 
=31ANDN=12  3THEN611ELSE779 

655  FORX=0TO448STEP64:PRINT@X,ST 
RING$(32,175) ; :NEXT: FORX=32T0416 
STEP64:PRINT@X,STRING$(32,207) ; : 
NEXT:PRINT@480,STRING$ (31,207) ; : 
P0KE1535, 207 
657  RUN 3 

659  FORZ=0TO9 9 : NEXT: Z=0 : RETURN 
661  FORX=0TO999: NEXT :X=0: RETURN 
663  FORX=0TO1700: NEXT :X=0: RETURN 
665  FORX=0TO300: NEXT :X=0: RETURN 
667  IFBC>6THENBC=6: PRINT"  YOU'RE 

ALL  THE  WAY  FORWARD. ": GOTO 6 7 
669  IFBC<0THENBC=0: PRINT"  YOU'RE 

ALL  THE  WAY  BACK. " : GOT067 
671  IFBC=5ANDEC=5THENSF=1ELSESF= 

673  PRINT"  IT  NOW  POINTS  AT->  "B 
H$ (BC) :GOT067 

675  IFEC>6THENEC=6: PRINT"  YOU'RE 
ALL  THE  WAY  FORWARD .": GOTO 6 7 

677  IFEC<0THENEC=0: PRINT"  YOU'RE 
ALL  THE  WAY  BACK . " : GOT067 

679  IFBC=5ANDEC=5THENSF=1ELSESF= 

681  PRINT"  IT  NOW  POINTS  AT->"EH 
$ (EC) :GOT067 

683   IFCF<5THEN  PRINT"   DIG-DIG  PH 

EW!   NOTHING. " :GOT067 

685  PRINT"  WOW!    I  SEE  A  BOX  ON  T 

HE  WALL.":BF=l:GOT067 

687  HF=HF+1:IFHF=2THEN689ELSE77 

689  PRINT"    .. .CRACK! !. .I'M  FALLI 

NG! ! " :GOSUB661:FORX=66T0451STEP3 
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2 : PRINT@X, "  " ; : PRINT@X+3  2 , "YOU 
" ; : FORZ=1TO50 : NEXTZ , X : CLSp 
691  GOSUB661:PRINT@139, "  SPIDERS 
!  " ; :GOSUB661:CLS^:GOSUB661:PRIN 
T@139,"  SNAKES ! !  " ; : GOSUB661 : CLS 
0:GOSUB661:PRINT§129, "    'LEAVE  IT 

TO  BEAVER 1  RERUNS  !  11 ;  :  GOSUB66 1 : 
CLS0:GOSUB661:PRINT@140, "  ?#$%#! 

" ; :GOSUB663 :GOT0655 
693  CLS : PRINT@34 , "YOU  JUST  WALKE 
D  THE  PLANK! ! " : GOSUB663 : FORX=3  4T 
O450STEP32 : PRINT§X, "       " ; : PRINT@ 
X+3  2,"YOU  DUMB!"; :F0RZ=1T08 

p : NEXTZ , X : CLS : PRINT@4  50 , "SPLASH ! 
! " :GOSUB661:GOT0655 
695  FORX=1504TO1535: POKEX, 175 :FO 
RZ=1TO20 : NEXTZ , X: PRINT@452 , "BOY! 

THIS  WATER  IS  COLD!!"; 
697  GOSUB663  :  FORX=15J33TO1044STEP 
-1 : POKEX ,175: F0RZ=1T05 : NEXTZ ,  X :  P 
RINT@12,STRING$(8,32)  ;  :FORX=lj33  5 
TO1024STEP-1 : POKEX, 175 : F0RZ=1T05 
: NEXTZ, X:GOSUB6 61 

699  PRINT@13,"  NUTS!  ";:GOSUB661 
:PRINT@12,STRING$ (8, 175) ; :GOSUB6 
61:GOT0655 

7J31  PRINT"  I  SEE  A  RAT!  "  :  GOSUB66 
1: PRINT"  I  SEE  ANOTHER! !" :GOSUB6 
61:PRINT"  AND  ANOTHER! !": GOSUB6 5 
9 :FORX=1TO200: PRINT "RATS" ; : NEXT : 
GOT0655 

703  PRINT@480,STRING$ (31, 32) ; : TC 
=1 

705  PRINT@480, ""  ;  :  F0RX=1T04  :  GOSU 
B659 

707   IFLO(X)=100ORLO(X)=R  THENPRI 

NTTAB (TC) 0$ (X) ; : TC=TC+8 

709  NEXT:GOSUB665:GOT0655 

711  JJ=0:FORX=1TO4 

713  IFLO(X)=100THENPRINT"   "0$  (X) 

; : JJ=1 

715  NEXT 

717  IFJJ=0THENPRINT"  YOU  GOT  NOT 

HING,MATE! " : GOT067ELSE67 

719  IFN=13  4ANDR=17ANDK=1ANDL0 ( 1) 

=117THENLO(l)=17 

721  IFR=15ANDN=930RR=15ANDN=158T 
HENPRINT"  IT  LOOKS  TOO  FRAIL. ":G 
OT067 

722  IFN=102ORN=113ORN=131THENPRI 
NT"  THAT'S  A  BIT  ENTHUSIASTIC!": 
GOT067 

723  IFR=19ANDN=9  3THENPRINT"  THEY 
FALL  TO  PIECES! " : GOTO 6 7 

724  IFR=36ANDN=90RR=36ANDN=157TH 
ENPRINT"  I'LL  NEED  A  GLASS  OF  WA 
TER!":G0T067 

725  IFR=23ANDN=270RR=2  3ANDN=1290 
RR=2  3ANDN=166THENPRINT"  WOULD  A 


SEARS  CATALOG  DO?":GOT067 

726  IFR=23ANDN=1380RR=24ANDN=148 
THENPRINT"  NO  CHANCE ! " : GOT067 

727  IFR=32ANDN=105ORR=32ANDN=109 
THENPRINT"  THEY'RE  STUCK  TOGETHE 
R!":GOT067 

728  IFR=25ANDN=440RR=25ANDN=53TH 
ENPRINT"  YOU  HAVE  A  BONE  TO  PICK 

WITH         THE  CAPTAIN?" :GOT067 

729  IFR=3 3 ANDN=4 1THENPRINT"  THEY 
KEEP  FALLING  APART !": GOTO 6 7 

731  IFR=24ANDN=162THENPRINT"  I'L 

L  KEEP  IT  MYSELF! ":GOT067 

733  I FR= 1 ANDN= 119 THENPRINT "  BETT 

ER  LOOK  FIRST! " :GOT067 

735  IFR=15ANDN=12  50RR=3  4ANDN=12  5 

THENPRINT"  NO  THANK  YOU!     I ' LL  S 

TAND.":GOT067 

737  S0=INSTR(1,0S$,N$) :IFSO=0THE 

NPRINT"   I'M  "R7$"  TO  TAKE  THAT!" 

:GOT067 

739  F0RX=1T04 

741  IFO$(X)=N$ANDLO(X)=100THENPR 
INT"  I  ALREADY  HAVE  IT.": GOTO 6 7 
743  IFO$(X)=N$ANDLO(X)=R  THEN749 
745  NEXTX 

747  PRINT"  I'M  "R7$"  TO  TAKE  THA 
T!":GOT067 

749  PRINT"  OK-  I  GOT  IT.":LO(X)= 
100:FO(X)=1:GOTO65 

751  S0=INSTR(1,0S$,N$) :IFSO=0THE 
NPRINTRIGHT$ (R4$, 6) :G0T067 
753  F0RX=1T04 

755  IFO$(X)=N$ANDLO(X)=100THENLO 

(X)=R:G0T065 

757  NEXTX 

759  PRINTRIGHT$ (R4$, 6) :GOT067 

761  S0=INSTR(1,0S$,N$) :IFSO=0THE 

NRETURN 

7  63  F0RX=1T04 

765   IFN$=0$ (X) ANDLO(X)=100THENPR 
INT"  I  HAVE  " ;0D$ (X) :PS=1: RETURN 
767  IFN$=0$ (X) ANDLO(X)=R  THENPRI 
NT"   " ;0D$ (X) :PS=1: RETURN 
769  NEXTX: RETURN 

771  IFG<5ANDR>10ANDR<>20THENPRIN 
T"  BANG! -RICOCHET-PING! ":GOT067 
773  IFG=5ANDR>10ANDR<>20THENPRIN 
T"  BANG! -RICOCHET-THUD! !":GOTO70 
3 

775  IFG<6THENPRINT"  BANG!":G0T06 

7 

777  PRINT"   CLICK! " :GOT067 
779  IFV>40THEN793 

781  IFV=4ORV=10ORV=13ORV=2  5ORV=2 
8 THENPRINT"  "R8$"I  CAN'T  DO  THAT 
! " :GOT067 

783   IFV=3 1THENPRINT"  SILENT  AS  A 
TOMB!":GOT067 
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784  IFV=19ANDN=60ORV=19ANDN=64OR 
V=19ANDN=145THENPRINT"  USE  (U)  0 
R   (D)    ON  ALL  STAIRS. " : GOT067 

785  IFV=19ORV=34ORV=40THENPRINT" 
ARE  YOU  CRAZY! " :GOT067 

787  IFV=7ANDN=750RV=7ANDN=1440RV 

=7ANDN=178THENPRINT"   I  DON'T  DO 

WINDOWS ! ! " : GOTO 6 7 

789  IFV=7THENPRINT"  IT  WOULDN'T 

DO  ANY  GOOD! " :GOT067 

791  IFV=37THENPRINT"  I  CAN'T  REA 

D  THAT! " :GOT067 

793  IFV=43ANDN=94ANDLO(2)=100THE 
NG=G+l:GOT0771 

795  IFV=4  3ANDN=94THENPRINT"  I  CA 
N'T! " :GOT067 

797  IFV=4  3THENPRINT"   "N$"?  THEY 

DON'T  SHOOT! " :GOT067 
799  IFV=4 6THENPRINT       "  YOU  LOUS 
Y,NO  GOOD  ";N$;"! ! " : GOT067ELSE67 
801  IFN=310RN=730RN=1110RN=1270R 
N=137THENPRINT"  NOTHING  SINGULAR 

THERE. " :GOT067 

803  IFN=740RN=770RN=122THENPRINT 
"  NOTHING  SPECIAL  FROM  HERE.": GO 
T067 

804  IFN=170THEN144 

805  IFN=80RN=150RN=12  8THENPRINT" 
GRAY  AS  THE  INSIDE  OF  A  PEWTER 
DISH! " :GOT067 

807  IFN=450RN=1120RN=153THENPRIN 
T"  HE'S  GONE! " :GOT067 
809  IFN=6ORN=50ORN=152THENPRINT" 
ROUGH  AND  WEATHER-BEATEN .": GOTO 
67 

811  IFN=80ORN=14  6THENPRINT"  RADI 
ANT  WHEN  THE  SUN  ISN'T  BEHI 
ND  A  CLOUD. " :GOT067 
813  IFN=590RN=950RN=13  20RN=174TH 
ENPRINT"  RIVETED  AND  RUST  STREAK 
ED. " :GOT067 

815  IFN=30ORN=13  6THENPRINT"  DESO 
LATE  AND  DEPRESSING !": GOT067 
817  IFN=3 6THENPRINT"  DEEP  BLUE  W 
ITH  A  FEW  SCUDDING       CLOUDS.": GO 
T067 

819  IFN=750RN=1440RN=178THENPRIN 

T"  NEEDS  CLEANING! ": GOTO 6 7 

821  I FN=  3 5THENPRINT "   PEELING  AND 

GRAYED  WITH  AGE.":GOT067 
823  IFN=7  6THENPRINT"  JUST  SLIPPE 
D  BEHIND  A  CLOUD !": GOT067 
825  IFN=620RN=13  5THENPRINT"  ONE 
BIG  MESS. DEFIES  ANALYSIS .": GOT06 
7 

827  IFN=59ORN=70THENPRINTR1$:GOT 
067 

829  PRINTR4$:G0T067 

831  IFN=6ORN=50ORN=70ORN=111ORN= 


1270RN=174THENPRINTR1$ : GOT067 
833   IFN=2  60RN=580RN=990RN=161THE 
NPRINT"  NONE  HERE .": GOTO 6 7 
835  I FN=  3 5THENPRINT "  YELLOW  WITH 

AGE! " :G0T067 
837   IFN=230RN=98THENPRINT"  GLOOM 
Y  AS  A  GRAVEYARD  ON  A  WET  SUNDA 
Y!":GOT067 

839  IFN=14 6THENPRINT"  NOT  MUCH  L 
IGHT  HERE. " :G0T067 
841  IFN=1210RN=132THENPRINT"  COV 
ERED  WITH  PEELING  PAINT .": GOT067 
843  IFR=13ANDN=140RR=14ANDN=140R 
R=2  2ANDN=14THENPRINT"  THEY'RE  OP 
EN. " :GOT067 

845  IFR=28ANDN=140RR=29ANDN=14TH 
ENPRINTR3  $ : GOT067 

847  IFN=2THENPRINT"  NOT  ME ! " : GOT 
067 


849  PRINTR4$:GOT067 

851  IFN=6ORN=3  3ORN=50ORN=70ORN=8 

5 ORN= 8 9 ORN= 9 2 ORN= 1 2 1 ORN= 1 2 5 ORN= 1 

270RN=1320RN=174THENPRINT"  NOTHI 

NG  CURIOUS  THERE. " :GOT067 

853   IFN=1ORN=4  6ORN=54ORN=101ORN= 

123THENPRINT"  A  BUNK, TABLE  AND  C 

HAIR. " :GOT067 

855  IFN=10ORN=2  6THENPRINT"  A  BIT 

HERE  AND  THERE .": GOTO 6 7 
857  IFN=80ORN=14  6THENPRINT"  NOT 
MUCH  HERE! " : GOTO 6 7 
859  IFN=14THENPRINTR3$:GOT067 
861  IFN=3 6THENPRINT"  NOTHING  OUT 

THERE. " : GOTO 6 7 
8  62   I FN= 102 THENPRINT "  NOTHING  TH 
ERE. ": GOTO 6 7 

863  IFN=750RN=1440RN=178THENPRIN 

T"  I  SEE  BLUE  SKY.":GOT067 

8  65  PRINTR4$:GOT067 

867  IFN=6ORN=50ORN=70ORN=89ORN=1 

110RN=1210RN=132THENPRINT"  NOTHI 
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NG  PARTICULAR  THERE .": GOTO 6 7 

869  IFN=14 6THENPRINT"  VERY  LITTL 

E  HERE. ": GOTO 6 7 

871  IFN=10ORN=35ORN=127ORN=174TH 
ENPRINT"  I  SEE  NOTHING  UNUSUAL." 
:GOT067 

873  IFN=14THENPRINTR3$:GOT067 
875  IFN=22ANDLEN(N$) =7THENPRINT" 

WHY!  IS  MY  FLY  DOWN? " : GOTO 6 7 
877  IFN=220RN=750RN=144THENPRINT 
"  DON'T  SEE  ANY!":GOT067 
879  IFR=25ANDN=108ORR=32ANDN=108 
ORR=34ANDN=108ORR=15ANDN=108THEN 
PRINT"  LOOKS  LIKE  AN  AIR  DUCT.": 
GOT067 

881  IFR=25ANDN=18  60RR=3  2ANDN=186 
ORR=34ANDN=1860RR=15ANDN=18  6THEN 
PRINT"  DARK  AS  A  POCKET !": GOTO 6 7 
885  I FN=2 THENPRINT 11  DUSKY,  DULL,  D 
INGY  AND  DRAB. WHAT  ELSE  CAN  I  S 
AY ! " : GOT067ELSEPRINTR4  $ : GOT067 
887  CLS0:FORX=28TO34:SET(X,2,5) : 
NEXT :FORX=25T037: SET (X, 3,5) : NEXT 
: FORX=2  2TO40 : SET ( X , 4 , 5 )  : NEXT : FOR 
X=20TO4  2 : SET ( X , 5 , 5 ) : NEXT : FORZ=6T 
08:FORX=18T044:SET(X,Z,5) :NEXTX, 
Z : FORZ=9T012 : FORX=17T04  5 : SET (X, Z 
,5) :NEXTX,Z 

889  FORZ=13T015:FORX=16T046:SET( 
X ,  Z , 5 )  : NEXTX , Z : FORZ=16T017 : FORX= 
18T044 : SET (X, Z , 5) : NEXTX, Z : FORX=2 
4T03  8 : SET ( X , 18 , 5 )  : NEXT : FORX=2  2TO 
40 :  SET  ( X ,  19 ,  5 )  :  NEXT :  FORZ=2 0TO2 1 : 
FORX=21T041:SET(X,Z,5) :NEXTX,Z 
891  FORX=2 1T02  7 : RESET ( X , 8 )  : NEXT : 
FORX=3  5T04 1 : RESET ( X , 8 ) : NEXT : FORX 
=2 0TO2 8  :  RESET  ( X ,  9 )  :  NEXT :  FORX=3  4T 
042 : RESET (X, 9 ) : NEXT : FORZ=10TO11 : 
FORX=19T029: RESET (X,Z) : NEXTX: FOR 
X=33T043 : RESET (X, Z) : NEXTX, Z 
893  FORX=20TO28 : RESET (X, 12) : NEXT 
: FORX=34T042: RESET (X, 12) :NEXT:FO 
RX=21T027 : RESET (X, 13) :NEXT:FORX= 
35T041:RESET(X, 13) : NEXT 
895  FORX=30TO3  2 : RESET (X, 14 ) :NEXT 
:FORX=29T03  3 : RESET (X, 15) :NEXT:FO 
RX=28T034:RESET(X,16) :NEXT:FORX= 
29T033 :RESET(X, 17) : NEXT : POKE1356 
,192:POKE13  59, 192 :POKE1361, 192 :P 
OKE1363,192 

897  PRINT@384,"  ***WELL 

DONE***  "; 

899  GOSUB663 

901  IFEE=1THEN905 

903  GOTO903 

905  PRINT@384,"  HOWEVER-YOU  ATE 
THE  SAME  ERGOT  INFESTED  FLOUR  TH 
AT  DROVE  THE       CREW  MAD. NOW  THE 
INSIDIOUS  FUNGISURGES  TOWARD  YOU 


R  BRAIN...  " ; :POKE1535,96 

907  F0RX=1T03 800: NEXT 
909  POKE1195, 191:POKE1196, 191:P0 
KE1202, 181-.POKE1203, 191:POKE1204 
,  186 

911  MS=1 : FORX=0TO30 : PLAY"L50BBA" 
:  NEXT 

913  FORY=0TO9 

915  R=MM(Y) :GOT035 

917  NEXTY 

919  CLS : PRINT@65 , "YOU 'RE  AT  THE 
END  OF  THE  PLANK! ": G0SUB6 61 : CLS0 
:G0SUB661 

921  PRINT@224,"  A  CONDOR  SLOWLY 
CIRCLES  DOWN . . " : GOTO90 3 
923  DATA19,20,15,23,1,23,1,25,23 
,18,9,20,20,5,14,32,2,25,32,10,4 
6,3,4  6,10,1,3,11,19,15,14 
925  NL$(0)="APPOASH  ASHECONTBARR 
COINBEAMBENCBED  BEDSBAGSBIRDBINN 
BONEBOX  BOXEBOILCORRBELOBRIDBURN 
BUNKBULKBOOKBUG  CABICAN  CANS CARP 
CANVCE I LCHAI CHARCHE S C LOU C LOT COMP 
COVECONDCOALCOBWCRATCOATBRAS " 
927  NL$ (1) ="@DARKDECKDIRTDOORDES 
KDRAWDUSTFREIEYESEQUIECHOFITTFLO 
OFURNFOOTMES  S  FOREGROUGANGGALLGRE 
AGROTDORMGUN  HALLMATTHANDHOLEHAT 
CHELMFUNNJACKKITCKEY  LAMPLANDLIG 
HLITTLABLLOG  MAGAMAP  MOUNMETAGLA 
SFLOUDUCT" 

929  NL$ (2) ="@@NAMENOBSOVENOCEAPA 

GEPASSPAPEPATHPAINNEEDPANSPANTPI 

PEPILEPLATPLANPIECPOCKPORTPLETPO 

TSPARAPULLRAILRATSRADIREPERIVERO 

CKROPEROOMRUSTRUG  RUBB" 

931  NL$(3)="@@@SHADSEA  SHRESHAFS 

HELSHAPSHOVSINKSKY  SKELSKULUTENS 

ALOSPIDSTEPSTAISTOVSTOWSUN  SUNLS 

WITSYMBTABLTELETUBETITLVENTVULTV 

EILVALVSTATWATEWALLSHIPWHEEWINDW 

IREWOODSTANWRIT" 

933  LL$="NESWUD" :R1$="  NOTHING  S 
PECIAL  THERE! 11  :R2$="  DIDN'T  HAVE 
ANY  EFFECT! " :R3$="  IT'S  OPEN":R 
4$="  LOOK  WHAT?":R5$="  NOTHING  U 
NDER  THERE! " :R6$="  NOTHING  NOTEW 
ORTHY  THERE ! " : OS$="KEYGUNCOINSHO 
VEL" 

935  S$="   " :VL$="LOOLIFWIPPUSPULT 
AKCLIDROOPETURLISDIGREAEATSHORAP 
" :R7$= "UNABLE " :R8$=" SORRY, " 
937  FORX=0TO3  6:READA$ (X) ,B$ (X) ,C 
$(X) ,L$(X) : NEXTX 

939  DATANEXT  TO  THE  RUST  STREAKE 
D, PLATES  OF  AN  OLD  FREIGHTER. , "F 
ROM  ABOVE, A  ROPE  HANGS  DOWN.",** 
**** 

941  DATAON  THE  MAIN  DECK. RUSTY, S 
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TEPS  LEAD  UP  TO  THE  BRIDGE., "TO 
THE  NORTH:  A  WALL,  A  DOOR.  "  ,  ?4*2Dj3 
, ON  THE  STARBOARD  GANGWAY . , A  LAR 
GE  CONDOR  WINGS  SLOWLY , OVERHEAD . 
, *l*3**,ON  THE  STARBOARD  GANGWAY 
. , WATER  BLOCKS  YOUR  PATH  TO , THE 
WEST. ,*2**** 

943  DATAON  THE  FOREDECK. RUBBLE  A 
ND, ROCK  HALT  YOUR  PATH  FORWARD., 
, 5**1**, STANDING  BELOW  THE  BRID 
GE.,A  MASSIVE  WOODEN  HATCH  COVER 
,LIES  TO  THE  EAST ., 7 64*** , ON  A  H 
ATCH  COVER. THE  WOOD, IS  OLD  AND  W 
EATHER-WORN . , SHREDS  OF  CANVAS  LA 
Y  ABOUT. , ***5** 

94  5  DATAON  THE  FOREDECK. RUBBLE  A 
ND , ROCK  BLOCK  YOUR  WAY  FORWARD . , 
"FROM  ROCKS, SMALL  EYES  WATCH.",* 
*58** 

947  DATAON  THE  PORT  GANGWAY. TO  T 
HE, "SOUTH, A  DOORWAY  LEADS  INTO  A 
LARGE  ROOM. , *7?9**,ON  THE  PORT 
GANGWAY . , A  PLANK  EXTENDS  A  SHOR 
T, WAY  NORTH  FROM  THE  RAIL.,"Y8*: 
**•• 

949  DATAON  THE  PORT  GANGWAY. WAT E 
R, BLOCKS  YOUR  AVENUE  TO  THE, "WES 
T.TO  THE  SOUTH, A  DOORWAY .", *9 ; ** 
*, STANDING  AT  THE  TOP  OF  A,COMPA 
NIONWAY. A  DAMP  MUSTY, SMELL  RISES 

FROM  BELOW. ,": *<**J" , IN  A  DUSKY 

PASSAGEWAY.,  ,  ,;=**** 
951  DATAIN  A  PASSAGEWAY . DUST  AND 
, COBWEBS  COVER  EVERYTHING.,  ,A>C 
<**,IN  A  PASSAGEWAY. SHAFTS  OF,WA 
TERY  SUNLIGHT  PLAY  ACROSS , COBWEB 
S  AND  DUST. , @?B=** , IN  A  SPACIOUS 

ROOM. ON  THE, "CARPETED  DECK, TABL 
ES  AND", CHAIRS  ARE  SCATTERED  ABO 
UT. ,8*1>** 

953  DATAIN  A  CABIN. BRIGHT  SUNLIG 
HT, BEAMS  THROUGH  THE  PORTHOLE., C 
OBWEBS  VEIL  THE  FURNISHINGS ., **> 
***,IN  A  CABIN. STRONG  SUNLIGHT, F 
ALLS  UPON  A  GREEN  CHEST.,  ,**=** 
* 

9  55  DATAIN  A  CABIN. WEAK  SUNLIGHT 
, ILLUMINATES  DUSTY  FITTINGS., A  S 
MALL  SPIDER  CREEPS  AWAY., >***** 
957  DATAIN  A  LARGE  CABIN . ONCE-FI 
NE, FURNISHINGS  REST  UPON  A  TIME, 
WORN  CARPET. , =*****, STANDING  ON 
A  PLATFORM, OUTSIDE  THE  WHEELHOUS 
E. ,    ,E****1,IN  A  LONG  NARROW  ROO 
M. YOU, "SEE  THE  BINNACLE , HELM  AND 
" , THE  BRIDGE  TELEGRAPH. , **DF** 
959  DATAIN  A  PASSAGEWAY . PEELING, 
PAINT  ON  THE  WALLS  YIELDS, TO  RUS 
TING  METAL. ,GEHI**, IN  A  CABIN. A 


LARGE  TABLE , CENTERS  THE  ROOM. A  L 
AMP, HANGS  DOWN  OVER  THE  TABLE.,* 
*F***,IN  A  SMALL  CABIN. A  SMASHED 
, WIRELESS  SITS  AGAINST  THE, FAR  W 
ALL. ,F***** 

961  DATA" IN  AN  AMPLE, WELL  APPOIN 
TED", CABIN. A  SKELETON  RESIDES, BE 
HIND  A  LARGE  DESK. , *F**** , ON  A  L 
ANDING. LIGHT  FILTERS, DOWN  FROM  A 
BOVE. DRIPPING, WATER  ECHOS  FROM  B 
ELOW. ,**K*;S,IN  A  SHADOWY  PASSAG 
EWAY . , RATS  SCURRY  OFF  INTO  THE , D 
ARKNESS. , JL**** 

963  DATAIN  A  PASSAGEWAY . THE  AIR, 
FEELS  DAMP  AND  THE  SMELL  OF, DECA 
Y  PERMEATES  ALL. , QM*K** , IN  A  PAS 
SAGEWAY . THERE  IS  ,A  DOORWAY  TO  Y 
OUR  RIGHT.,  ,*NRL**,IN  AN  ENLONG 
ATED  ROOM., TABLES  AND  BENCHES  ST 
RETCH, FROM  WALL  TO  WALL.,0**M** 


965  DATAIN  THE  SHIP'S  GALLEY., A 
BLACK  GREASY  STOVE , DOMINATES  THE 
KITCHEN. , **NP**, IN  A  PANTRY . COR 
RODING  CANS,INCRUST  THE  SHELVES. 
AGAINST, "THE  AFT  BULKHEAD, A  BARR 
EL.",*0****,IN  A  SMALL  STOWAGE. 0 
PEN, CRATES  AND  THEIR  CONTENTS , LI 
TTER  THE  DECK.,**L*** 
967  DATAIN  A  LARGE  ROOM. BUNKS  LI 
NE , THE  WALLS. A  COUPLE  OF  TABLES, 
CENTER  THE  DORMITORY . ,M***** , IN 
A  GROTTO  OF  ABSTRACT, "SHAPES . PIP 
ES, VALVES, SHAFTS ", MINGLE  IN  THE 
DARKNESS. , *T**J* 


969  DATANEXT  TO  A  PILE  OF  COAL. , 
"TO  THE  EAST, GAPING  BOILERS.",  , 
***S** 

971  FORX=lT04:READO$(X) ,OD$(X) ,L 
O(X) tNEXT 

973  DATAKEY , A  SMALL  KEY., 117, GUN 
,A  SMALL  HAND  GUN. , 25 , COIN, A  SIL 
VER  COIN. ,3 3, SHOVEL, A  SHORT  HAND 
LED  STOKER. ,6 

975  FORX=^T06:READBH$ (X) :EH$(X)= 
BH$(X) tNEXT 

977  DATA full  astern, half  astern, 

slow  astern, all  stop, slow  ahead, 

half  ahead, full  ahead 

979  FORX=0TO9:READW:MM(X)=W:NEXT 

981  DATA32,31,30,29,28,27,26,11, 

10,9 

983  EC=1:BC=3 :R=0:GOTO3  5 
985  CLS0:PRINTSTRING$(3  2,153)  ;  :F 
ORX=lj356T01472STEP32  :  POKEX,  153  :P 
OKEX+3 1 , 153  :  NEXT :  PRINT@4  8 0  ,  STRIN 
G$ (31, 153) ; :POKE1535, 153 
987  FORX=1132T01139:POKEX,147:PO 
KEX+128 , 156 : NEXT: POKE1163 , 151 : PO 
KE1172  , 155  :  POKE1195 , 159  :  POKE12J34 
, 159 : POKE1227 , 157 : POKE12  3  6 , 158 : P 
OKE1194  , 149  :  POKE1205 , 154  :  FORX=ll 
64T0117 1 : POKEX ,32: POKEX+3  2 ,  3  2  : PO 
KEX+64,32:NEXT 

989  POKE1195,32:POKE1204,32:FORX 
=1348T01371 : POKEX, 147 : POKEX+64 , 1 
56 :NEXT: POKE1379 , 149 : POKE1404 , 15 
4  :  FORX=13  80TO1403  :  POKEX,  32  '.NEXT 
991  FORX=1196TO1203:READW:SOUND8 
0,1:  POKEX ,  W :  NEXT :  FORX=lTO100j3  :  NE 
XT 

993  FORX=1381TO1402:READW:GOSUB1 
001  \ POKEX , W : NEXT : F0RX=1T02  000 : NE 
XT 

995  CLS:PRINTSTRING$(32,153) ; : FO 
RX=0TO13 : PRINTCHR$ ( 153 ) ; TAB ( 3 1 ) C 
HR$(153) ; : NEXT :PRINTSTRING$ (31,1 
53) ; :POKE1535, 153 

997  F0RX=1T03 : PLAY"L50AB" : FORZ=l 
T05j3 : NEXTZ ,  X:  POKE1J369  ,  74  :  POKE107 
4,74:  PLAY "L5J8AB"  :  FORX=1101TO1485 
STEP32 : POKEX-32 , 122 : POKEX-27 , 122 

:  POKEX ,  74  :  POKEX+5  ,  74  :  FORZ=lT05j3  : 
NEXT : PLAY " L5 0 AB " : NEXTX : POKE 1 4  8  5 , 

122:POKE1490,122 

999  FORZ=lTO2j30:NEXT:SOUND80, 1:F 
ORZ = 1TO 2 00 : NEXT : POKE 1 4  8  5 , 7  4 : POKE 
1490 , 74 : FORZ=1TO100 : NEXT : PLAY"L5 
J3BA"  :  POKE1453  ,  74  :  POKE1458  ,  74  :  POK 
E1484 , 32 : PRINT@461 , "beware" ; : POK 
E1491, 32 

1001  FORZ = 1TO 10 0: NEXT: PLAY "L50BA 
" :FORX=1421T01133STEP-32 : POKEX, 7 
4 : POKEX+5 , 74 : POKEX+3 1 , 32 : PRINT @X 


-992, "beware" ; : POKEX+3  8 ,  32  : PRINT 
@X-961,"  " ; :F0RZ=1T075:NE 

XT :  PLAY"L5j3BA"  :  NEXTX 
1003  FORZ=lTO400:NEXT:FORX=llj31T 
O1069STEP-32 : POKEX, 74 : POKEX+5 , 74 
:PRINT@X-992,"  »  ;  :PLAY"L5j3A 

B"  :  F0RZ=1T05J3  :  NEXTZ  ,  X :  PRINT§4 4  ,  " 
" ; : F0RX=1T03 : PLAY"L50AB" : 
FORZ=lT05j3  :  NEXTZ  ,  X 
1005  GOT013 

1007  IFW<>3  2  THEN  SOUND80 , 1 : RETU 
RNELSERETURN  ^ 
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The  Hero  of 
Lonesome  Valley 


Program  by 
 1  Robert  W.  Mangum  II 

T  —  

om's  life  has  been  extremely  dull.  Every  day 
has  been  the  same  ever  since  he  can  remember. 
At  the  crack  of  dawn,  he  goes  to  work  with 
his  father  at  the  Lonesome  Valley  Community 
Farm.  Nobody  seems  to  know  the  farm  exists 
until  tax  time  rolls  around. 

Tom  knows  there  is  life  outside  of  the  valley 
because  from  the  hole  that  is  his  bedroom 
window,  he  has  seen  the  castle  of  King 
Theodoric  high  on  the  distant  mountains.  He 
has  heard  tales  about  valiant  knights  who  fight 
dragons,  live  in  palaces  and  are  surrounded 
by  beautiful  maidens. 

"Some  day  I'm  going  to  be  a  knight,"  he 
tells  himself,  not  believing  those  who  told  him 
that  only  the  wealthy  could  be  knighted.  "Ill 
fight  dragons  and  then  Til  be  rich." 

Then  one  day  a  raggedy  man  rides  into  the 
valley.  "The  king,  the  kingdom  .  .  .  you  must 
help  me!"  he  cries,  just  before  falling  off  his 
horse.  Tom  squeezes  his  way  through  the 
murmuring  crowd,  attempting  to  get  a  closer 
look. 

"He  probably  is  being  chased  by  bandits." 
"He  is  a  bandit." 
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Speculation  is  running  rampant  as  the  man  is  carried  into  a  nearby  house. 
Wet  cloths  are  placed  on  his  forehead  and  some  women  stay  with  him  until 
he  regains  consciousness.  Later  he  is  invited  to  join  the  villagers  for  dinner 
in  the  common  dining  hall. 

After  the  meal,  the  stranger  tells  his  story:  "A  few  days  ago  the  king's 
wizard  warned  that  our  worst  enemies,  the  Andramatons,  were  going  to  attack 
us.  Trusting  his  closest  friend,  the  king  sent  his  entire  army  to  surprise  the 
enemy. 

"I  did  not  believe  the  wizard  so  I  stayed  behind.  I  learned  that  the  king 
had  been  thrown  into  a  dungeon  soon  after  the  warriors  departed.  I  rode 
off  to  get  help  because  someone  must  rescue  the  king.  Only  he  can  prevent 
an  all-out  war  with  the  Andramatons. 

"Who  will  help?  Who  will  save  the  kingdom?" 

The  fearful  villagers  just  look  at  each  other  for  a  few  minutes  until  the 
silence  is  broken. 
"I  will!" 

It  is  Tom,  who  despite  vigorous  objections  from  his  mother  and  father, 
will  not  be  dissuaded. 

"I  must  go.  Not  only  will  I  be  able  to  see  the  world,  but  I  will  represent 
the  people  of  Lonesome  Valley!" 

Only  you  can  help  Tom.  Before  the  journey  begins,  however,  unplug  your 
disk  controller  and  type  in  POKE  25, G: NEW.  Then  load  the  program.  At  the 
beginning,  you  are  asked  to  choose  between  "Regular  Tom"  and  "Brave  Tom." 
You  should  begin  with  the  former,  before  advancing  to  "Brave  Tom." 

For  the  most  part,  use  verb-noun  commands.  There  will  be  occasions  when 
prepositional  phrases  are  appropriate.  The  game  does  include  a  save  and  load 
feature.  Use  the  space  bar  to  turn  the  cassette  player  on  and  off.  Use  the 
ENTER  key  to  complete  the  save  or  load.  Press  any  other  key  to  return  to 
the  game. 


(Robert  W.  Mangum  II  is  a  12th-grade  student  at  Astronaut  High  School 
in  Titusville,  Fla.  He  also  is  the  author  of  Horror  House,  which  was 
published  in  the  first  Rainbow  Book  of  Adventures.) 
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LONESOME     32K  ECB 


2)3  CLS:POKE3  59,  13  : CLEAR5000 : SCRE 
EN0  ,0  :  PRINT@168  ,  "DO  YOU  WANT  TO 
BE"  ,  TAB  (9)  11 1.  REGULAR  TOM",  TAB  ( 
15) "OR",TAB(9) "2.  BRAVE  TOM" 
30  S1$="02T2L8N1L16N1N1L2N8L8N1" 
100  NI=16 : NR=95 : L=9 : IC=1 : QT$=CHR 
$ (34) :DIMD$ (NR+NI) ,D(6+NI) : FORX= 
1TONR: READD$ (X) : NEXT : DATANORTH , S 
OUTH , EAST , WEST , UP , DOWN , NNSSEE0  6 , 
NNSS1050,NN0549, 13121108, 1112111 
0, 1012 1112, 1410, 2513 15, NNSS1614, 
17SSEE15,NN16EE18, 19SS17 , 2018 , NN 
192123, NN22EE20, 21 

105  DATANN242026,2325,2414EE27,N 
NSS2  3 ,NNSS2  5,NNSS2  629,NNSS28  30,N 
NSS2831,NNSS30,NNSSEE3  3, 35SS3241 
,4535,343343, 383741, 3 6SS,NN3  6EE4 
2,41,4441,40393  33  6,NNSS38,NNSSEE 
35UU46,NN40,NN34,47SSEEWW43 ,NN4  6 
, ,NNSS5009,NNSS0749, ,56, 57, 58, NN 
SS5856 

110  DATANNSS5557,NNSS56WW92,NNSS 
EE55,NN516060, , NN55EEWW62 , NNSS64 
63UU61,NNSS62 ,NNSS6562 , 66SSEE64, 
67  6570, 68 66EE69 , NN67 , NNSS67 , NNSS 
EE66UU71,NNSSEE7270,NNSS717  3,NNS 
S7  274,75SS7  3,NN74EE7  6,NNSS75WW77 
,NNSSEEWWUU76, , ,NN81, 808  2EE8  3 , 81 
,NNSS8184, 888  583  87, 84908  6 
115  DATANNSSEE85,NNSS84,NN8489,N 
NSSEE88 , 85,NNSS92 , 9  3SSEE91UU57 , 9 
492 ,NN9  3EE9  5,NNSS94 
500  FORX=lTONI:READD$ (NR+X) ,D(6+ 
X) :NEXT:DATAA  DAGGER, -1, AN  IRON 
SHIELD, 8, A  BATTLE  AXE, 8, AN  UNCON 
SCIOUS  KNIGHT, 8, AN  IRON  KEY, 57, A 
HEAVY  IRON  DOOR, 2 6, A  RAISED  DRA 
WBRIDGE, 5 , A  GOLDEN  KEY,, AN  OPEN 
DOOR,, A  LOWERED  DRAWBRIDGE ,, THE 
ORC  GUARD'S  BODY 

505  DATA3 2 , A  SPEAR, 32, A  LANCE, 42 
,A  SHORT  SWORD,, THE  NOBLE  KING,, 
A  CRYSTAL  BALL, 

900  VS$="N  NORTS  SOUTE  EAS 
TW  WESTU  UP  D  DOWNEXAMLOO 
KOBSESEARREADTHROTOSSLISTINVETAK 
EGET  GRABSEIZCATCASK  UNLOOPENCOL 
OSAVELOADLOWEJUMPLEAPRUB  WIPECLE 
AWASH  GO  KILLMURDSLAYDROPKIC 
KHELPHIT  PUNCSURRUNCLTALKCHATRAP 

ADD  POURCOMBMIX  GIVE 
920  C$=INKEY$:IFC$="2"THENBR=1EL 
SEIFC$<>"1"THEN920 
930  CLS:PRINT@4  80, ; 
1000  PRINT"      " ; :ONL-4GOTO6060, 60 
40,6020,6030,6050,6070,6080,6080 


:IFL<2  7THENGOTO6090ELSEONL-2  6GOT 
06100,6110,6110,6110,6120,6120:1 
FL<41THEN6130ELSEONL-40GOTO6140, 
6150,6160,6170,6180,6190,6200,62 
10,6000,6010,6220,6220,6220,6220 
, 6230, 6230, 62  30, 6230, 6240, 6250 
1002  ONL-60GOTO6260, 6270, 6270, 62 
70, 6280, 6130, 6130, 6130, 6290, 6300 
:IFL<77THEN6320ELSEONL-76GOTO631 
0, 63  30, 63  40, 6350: IFL<91THEN63 60E 
LSEIFL<96THEN6370ELSE6390 
1010  C$="  NOWHERE.": PRINT"  I  CA 
N  GO"; :F0RX=1T06:D(X)=VAL(MID$(D 
$(L) ,X*2-1,2) ) :IFD(X)=<0THENNEXT 
: PRINTC$ : GOTO1015ELSEIFPOS (0) +LE 
N(D$ (X) ) >30THENPRINT,CHR$ (8) ; 
1013  C$=".":PRINT"  "D$ (X) ; : NEXT : 
IFPOS (0) >0THENPRINT 

1015  IFL=3  90RL=49THENIFD(13) >0TH 
END(13)=L  ELSED(16)=L 

1016  IFD(21) >0THEND(21)=L 

1017  IFD(4)=28ANDL=260RL<55ANDL> 
50ANDD(1) >0ORL>54ANDL<59ANDD(2) > 
0ORL=90ANDD ( 2 ) =4  40RL=4  4ANDD ( 1 ) =9 
0ORL=63ANDD(1) =820RL=82ANDD ( 2 ) =6 
3THEND(15)=L:D(12)=0ELSEIFL<59AN 
DL>50ORL=2  6ORL=63ORL=44ORL=90ORL 
=820RL=63  ORL=  3  7  ORL= 4  5 ORL=  6  8  ORL=  9 
2  ORL=  6  3  ORL= 9  4  0RL=9  5THEND(12)=L 
1020  C$="NOTHING. ": PRINT"     I  SEE 

" ; :F0RX=1T0NI:IFL=D(X+6)THENIFP 
OS (0 ) >10THENPRINT : ELSEELSENEXT : P 
RINTC$ : IFL<>48ORF1>0THEN2005ELSE 
2000 

1030  PRINTTAB(8) D$ (NR+X) " , " ; :C$= 
CHR$ ( 8 ) +" . " : NEXT : PRINTC$ : GOTO200 
5 

2000  IFL<>48THEN6330ELSEF1=F1+1: 
IFF1=1THENPRINT, , , , , :PRINT@4  48, ; 
:EXEC&HA1B1: PRINT"  THE  DWARF  ST 
ANDS  AND  RAISES  HIS  SWORD  AT  M 
E.  "QT$"HOW  DARE  YOU  INTERUPT  S 
YNESIUS,  GREATEST", "WIZARD  OF  AL 
L  TIMES!  I  WILL", "TEACH  YOU  SOM 
E  MANNERS! "QT$, , , , , 

2001  IFF1=1THENPRINT@448 , ; : PLAYS 
1$ : GOTO2006ELSEIFF1=2THENPRINT" 

I  GUESS  I  JUST  LOST  MY  HEAD  -  T 
HANKS  TO  THAT  PUNY  LITTLE  DWARF. 
" : GOTO10000ELSEIFF1=3THENPRINT" 

THE  SWORD  WENT  RIGHT  THROUGH  M 
Y  HEART.  I  DON'T  FEEL  SO  GOOD." 
:GOTO10000 

2002  IFF1=4THENPRINT"  THE  MARKS 
MAN  DREW  BACK  HIS", "ARROW  AND  LE 
T  IT  LOOSE.     NEED-     LESS  TO  SAY, 

IT  FOUND  IT'S  MARK. " :GOTO10000E 


LSEIFF1=5THENPRINTH     THE  CYCLOPS 
OPENS  HIS  MOUTH" , "AND  THEN  HE.. 
.  NO .  .  .  NO !  .  .  .  NOOOOO !  "  ;  :  GOTO10000 
20(53   IFF7=1THENPRINT"     THE  WIZAR 
D  SHOOTS  A  FIREBALL    AT  ME.  WE 
ALMOST  MADE  IT . " : GOTO10000 

2004  IFL=47THENIFF3=0THENF3=1:PR 
INT"  A  FIREBALL  FROM  THE  WIZARD 
'S  FINGER  IS  COMING  STRAIGHT  FO 
R  ME!  IT  HIT  MY  HAIR!  MY  HAI 
R  ISON  FIRE!",,"  "QT$"YOU  HAVE 
BEEN  WARNED. "QT$ELSEPRINT"  HE  S 
HOT  ANOTHER  FIREBALL  AT  ME.  T 
HAT  BURNS  ME  UP! " : GOTO10000 

2005  PRINT, , , , :PRINT@448, ; 

2006  LINEINPUTC$:PRINT§480, ; 

2007  FORX=lTOLEN(C$)+l:IFMID$ (C$ 
+"  "/X,1)="  "THENNEXT : PRINT@448 , 
; :GOTO2006ELSEV$=MID$ (C$+"  ",X 
,4) :V=(INSTR(l,VS$,V$)+3)/4:IFV> 
INT (V) ORV=0THENV$=LEFT$ (V$ ,2) : IF 
V$="UP"THENV=10ELSEIFV$="GO"THEN 
V=41ELSEPRINT"  I  KNOW  NOT  HOW." 
:GOTO2005 

2010  I=1+INSTR(X,C$, "   ")  :FORX=I 
TOLEN(C$) :IFMID$(C$,X,1)="  "ORI= 
1  THENNEXT :  1=0  :  N$="  "  :  GOTO2015ELSE 
N$=MID$(C$+"  ",X,3) 

2011  IFN$="VIA"ANDL=69THENPRINT" 
PLEASE  REFER  TO  THE  VIAL  BY 

THE  WORD  THAT  IS  PRINTED  ON  IT." 
:GOTO2005 

2012  1=  ( INSTR  ( 1 ,  " DAGSHIAXE 

KEY  SPELANSWO  BA 

L"  ,  N$ ) +2 ) /3  :  IFI>INT  ( I )  ORLOD  ( 1+6 
)  AND-KD(I+6)  THENI=0  :  IFN$="KEY"A 
ND(D(11)=-10RL=D(11) )THENI=5 
3015  Z=LEN(C$)  :0$="" 
2020  IFMID$(C$,Z,1)="  »THENZ=Z-1 
:GOTO2020 

2025  IFMID$(C$,Z,1)<>"  "ANDZ>X  T 
HENZ=Z-1:GOTO2025ELSEIFZ>X  THENC 
0$=MID$ (C$ , Z+l, INSTR (Z+l , C$+"  " , 
"  ")-Z-l) :0$=LEFT$(CO$,3) 
2050  ONV  GOTO3000, 3000, 3010, 3010 
, 3020, 3020,3020, 3030, 2050,2050, 3 
060,  3060,2500,2500,2500,  2500,  250 
0,3100,3100, 3150, 3150, 3200, 3200, 
3200,3200,3200,3250,3  300,3  350,3  6 
10,3  620, 3  62  5, 3400, 3450, 3  4  50, 3  500 
, 3500,3500, 3500,990, 3  600, 3605, 3  6 
05,3  605, 3550, 3  650, 3700, 3750 
2060  ONV-48GOTO3750, 3800, 3800, 38 
50,3850,3850,3900,3900,3900,3900 
,3950 

2500  IFN$=""THEN1000ELSEPRINT" 
" ; : IFN$="FLO"ANDL=77THENPRINTQT$ 
"BEWARE  THE  DOORS  OF  DEATH! ","FO 
R  ONLY  THOSE  WHO  KNOW  THEIR  SE 


CRET  MAY  PASS ! "QT$ : GOTO2005ELSEI 
FN$="WIN"ANDL=45THENIFF0=0THENPR 
INT" IT  IS  DIRTY. 11 : GOTO2000ELSEEL 
SE2510 

2505  PRINT "THERE  IS  A  HUGE  DININ 
G  HALL", "BELOW  ME.      IN  THE  MIDDL 
E  OF", "THIS  ROOM  IS  A  FABULOUS  C 
RYSTAL  CHANDALIER.     BELOW  IT  IS 
A  LONG  TABLE.     AT  THE  FAR  END  IS 

THE       EVIL  WIZARD.     TO  MY  LEFT 
IS  HIS  APPRENTICE;  TO  MY  RIGHT  I 
S  A 

2506  PRINT "MARKSMAN.      DIRECTLY  B 
ELOW  ME  IS  A  DWARF . " : GOT02 00 0 
2510  IFN$<>"TAB"ORLO69THEN2  520E 
LSEPRINT" WRITTEN  ON  THE  TABLE  IS 

THIS: ",,, TAB (4) "FROM  HALF  A  SCO 
RE", TAB (6) "THE  TWAIN  SHALL  COME. 
", TAB (4) "ALIKE  THEY  ARE,", TAB (6) 
"YET  STILL  ARE  DIFFERENT .", TAB ( 4 
) "TOGETHER  BRINGING" , TAB ( 6 ) "TRUT 
H  AND  KNOWLEDGE. 

2515  PRINTTAB(4) "WITH  OTHERS  BRI 
NGING",TAB(6) "DEATH  -  DESTRUCTIO 
N.":GOTO2005 

2520  IFI=16ANDF5<1THENV=RND(4) :I 
FV=-F5  THEN2 5 2 0ELSEPRINT" I  SEE  A 
ROOM.     IN  THE  ROOM  ARETWO...THR 
EE . . . FOUR  DOORS .     THEY  ARE  ALL  C 
LOSED.     NO,   WAIT!     ONE  OF  THEM  I 
S  OPENING.     IT  IS", "THE  ONE...TH 
E  ONE  ON  THE  "D$ (V) , "WALL.  THE 
PICTURE  IS  FADING... 
2525  IFI=16THENIFF5<1THENF5=V:PR 
INT" FADING. . .FADING. . ." :GOTO2005 
E LSEPRINT" IT  IS  VERY  CLOUDY.  I 
CAN'T", "SEE  ANYTHING. ":GOTO200 5 

2999  PRINT"I  FAIL  TO  NOTICE  ANYT 
HING  OF  IMPORTANCE  OR  INTEREST. 
":GOTO2005 

3000  IFD(l) >0THENL=D(1) :GOTO1000 
ELSE3040 

3010  IFD ( 2 ) >0THENL=D ( 2 ) : GOTO1000 
ELSE3040 

3020  IFD ( 3 ) >0THENL=D ( 3 ) : GOTO1000 
ELSE3040 

3030  IFD(4) >0THENL=D(4) :GOTO1000 
ELSE3040 

3040  PRINT"  I  CAN'T  GO  THAT  WAY 
.":GOTO2005 

3050  IFD(5) >0THENL=D(5) :GOTO1000 
ELSE3040 

3060  IFD ( 6 ) >0THENL=D ( 6 ) : GOTO1000 
ELSE3040 

3100  IFD(I+6) >-lTHEN9000ELSEIC=I 
C-l : D ( 1+6 ) =L: Q$="AT" : GOSUB8000 : I 
FO$="HOR"ANDL=7ANDI=lTHEND$ ( 50 ) = 
"  0849" :L=8: PRINT"  THE  HORSE 
REARED  UP,   THREW  HISRIDER,  AND 


TOOK  OFF  DOWN  THE  ROAD . " : D ( 3 ) 
=10:D(4)=50:D(7)=8:GOTO2000 
3105  IF0$="KNI"ANDL=7ANDI=1THENP 
RINT"  THE  KNIGHT  BLOCKED  THE  DA 
GGER  WITH  HIS  SHIELD.  I  THINK  I 
AN-  GERED  HIM.  I  CAN  TELL  BY  T 
HE  WAY  HE  THREW  THAT  BATTLE  AX 
E  AT  ME  AND. . . ":GOTO10000 

3110  IF (0$="GUA"ORO$="ORC" ) ANDL= 
3 1THENIFI=3THENL=3 2 : PRINT"  AS  T 
HE  GUARD  FALLS  TO  THE" , "FLOOR,  H 
E  PULLS  A  LEVER  WHICH  CAUSES  T 
HE  HOLE  IN  THE  EAST  WALLTO  CLOSE 
. " : GOSUB3560 : D ( 4 ) =3  3 : D ( 3 ) =0 : GOTO 
2000ELSEELSE3115 

3111  PRINT"  IT  DIDN'T  HURT  HIM; 
IT  JUST" /'MADE  HIM  MAD!     HE'S  TA 
KING  HIS     ANGER  OUT  ON  ME  BY  THR 
OWING  THATSPEAR  AAAA. . . " : GOTO100 


3115  IF0$="WIZ"ANDL=41ANDF7=1THE 
NIFI=16THENF7=2 : D ( 2  2 ) =0 : PRINT" 
THE  CRYSTAL  BALL  HITS  THE  WIZ-AR 
D  WITH  A  BLINDING  FLASH  OF" , "LIG 
HT.  THIS  SILENT  EXPLOSION  LAS 
TS  FOR  ONLY  OF  FEW  SECONDS,  BUT 
IT  SEEMS  LIKE  HOURS.  I"ELSEELS 
E3149 

3117  PRINT "THOUGHT  I  HEARD  A  FAI 
NT  VOICE  SAY  "QT$ "THANK  YOU."Q 
T$"  WHEN  THE  LIGHTSTOPS ,  THE  CR 
YSTAL  BALL  AND  THE  WIZARD  ARE  GO 
NE.  APPARENTLY  HISOLD  GOOD  MAGI 
C  HAS  CANCELED  OUT  HIS  BAD  MAGIC 
. " :D$ (41) ="40393  3  3  6" :D(1)=40:D(2 
)=39:D(3)=33:D(4)=36:GOTO2000 
3120  PRINT"  IT  DISENTIGRATED  WH 
EN  IT  HIT     HIM. " : GOTO2000 


3149  IFCO$=""THEN9010ELSEN$=D$ (I 
+NR) : X=INSTR ( 1 , N$ , "  " ) : PRINT"  T 
HE  "RIGHT$(N$,LEN(N$)-X) "  BOUNCE 
D  HARM-"STRING$  (SGN  (POS  (0)  )  *32-P 
OS (0) ,32) "LESSLY  OFF  OF  THE  "CO$ 
" .":GOTO2000 

3150  C $=" NOTHING. ": PRINT"  I  HAV 
E  "; :FORX=lTONI:IF-l=D(X+6)THENP 
RINTTAB(9) D$ (NR+X) : C$=" " : NEXTELS 
ENEXT : IFC$>" "THENPRINTC$ 

3160  GOTO2005 

3  200  IFN$="SPE"ANDL=32THENPRINT" 

NO!  I  CAN'T  LUG  A  BIG  SPEAR 
ALL  OVER  THE  PLACE !": GOTO2005ELS 
EZ= ( INSTR ( 1 , " DRAKINGUAORCKNI " , N$ 
)+2)/3 :IFV=2  3ANDN$>" "ANDZ=INT(Z) 
THENPRINT"  GET  REAL! " : GOTO2005 
3210  IFN$="SWO"ANDFl=2THENIC=l:F 
1=3 :D (20) =-1: PRINT"     GOT  IT!",," 

THE  MARKSMAN  PLACES  AN  ARROW 
IN  HIS  BOW  AND  REMARKS,  "QT$"YOU 
","HAVE  MADE  A  FOOL  OF  GUMBO,  BU 
T     I  AM  NOT  SO  CARELESS. "QT$: GOT 
02005 

3249  IFI=0THEN9005ELSED(I+6)=-l: 
PRINT"     TAKEN. " : IC=IC+1 : GOTO2000 

3250  Q$="FOR" :GOSUB8000:IFN$="DR 
A"ANDL=27ANDD ( 14 ) =0ANDO$="KEY"TH 
ENIC=IC+1: PRINT"  THE  DRAGON  REP 
LIES  IN  A  FEMINEVOICE,  "QT$"I  WI 
LL  LET  YOU  HAVE  MY     KEY,   BUT  YOU 

MUST  BRING  ME  THE  LANCE  THAT  H 
ANGS  IN  THE  KING'S  TROPHY  HALL. 
"QT$ELSE3299 

3255  PRINT"  THE  DRAGON  LET  ME  T 
AKE  THE  KEYFROM  HER.  AFTER  I  GO 
T  THE  KEY,  SHE  FLEW  AWAY  THROUGH 
THE  HOLE  IN  THE  CEILING. ": D ( 14 
)=-l:GOTO2000 

3299  GOTO3850 

3300  Q$="WITH" : GOSUB8000 : IFO$="K 
EY"ANDD ( 14 ) >-lANDD (11) >-lTHEN900 
0ELSEIFN$="DOO"ANDL=2 6ANDD ( 12 ) >0 
ANDO$="KEY "THEND$ (26) ="NNSS2  3  28" 
:D(15)=26:D(12)=0:PRINT"  IT  OPE 
NED.":D(4)=28:GOTO2000 

3310  IFD(2)=0ANDN$="DOO"ANDO$="K 
EY"ANDL>54ANDL<59THENMID$ (D$ (L) , 
3,2)=RIGHT$(STR$(L-4) ,2) :D(2)=L- 
4:D(15)=L:D(12)=0:PRINT"  THE  DO 
OR  SQEAKS  LOUDLY  AS  IT  SLOWLY  S 
WINGS  OPEN. " : IFL=55THEND$ (51) ="5 
5" :GOTO2000ELSE2000 
3320  IFL=51AND0$="KEY"ANDN$="D00 
"THEND$ (51) ="59" : D$ (55)="  51585 
6": PRINT"  THE  DOOR  OPENS  NOISLE 
SSLY. ":D(1)=59:GOTO2005 
3325  IFL=82ANDO$="KEY"ANDN$="DOO 
"THEND$ (82) ="8163" : D$ (63) ="82  6 
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2" :D (2) =63: PRINT"     AS  SOON  AS  I 
REMOVE  THE  KEY       FROM  THE  DOOR, 
IT  SWINGS  OPEN  ONITS  OWN." :GOT02 
005 

33  30  IFL=90ANDO$="KEY"ANDN$="DOO 
"THEND$(90)="8544" :D$ (44) ="9040" 
:D (2) =44: PRINT"  WITH  MUCH  EFFOR 
T,  THE  DOOR" ," SLOWLY  SQUEAKS  OPE 
N.":GOTO2005 

3349  IFN$="DOO"ANDL=D(15)THENPRI 
NT"  THE  DOOR  IS  ALREADY  OPEN.": 
GOTO2000ELSE9005 

3350  IFLO77THENIFO$>""THEN3  300E 
LSEIFN$="DOO"ANDL=D (12 ) THENPRINT 
"  IT  IS  LOCKED. ":GOTO2000ELSE33 
49 

3360  V$=N$:IFN$="DOO"THENPRINT" 

WHICH  DOOR?", , "NORTH,   SOUTH,  EA 
ST,   OR  WEST?" :LINEINPUTV$ 
3  3  65  I=INSTR ( 1 , "NSEW" , LEFT$ ( V$ , 1 
) ) :IFI=0THENIFN$="DOO"THEN3  3  60EL 
SE9005ELSEIFIOF5  THENIFRND  ( 2 )  =1 
ORF5O0THENPRINT"     A  BAR  WITH  A 
LARGE  SPIKE  ON       THE  END  OF  IT  S 
WINGS  OUT  AND", "SPEARS  ME  IN  THE 
CHEST. " :GOTO10000ELSED(I) =78 : IF 
F5=0THENF5=-I  ELSEELSED ( I ) =79 
3  3  70  PRINT"     IT  OPENS ." :MID$ (D$ ( 
77) , 1*2-1, 2)=RIGHT$(STR$(D(I) ) ,2 
) :GOTO2005 

3400  IFD(13)=39ANDL=39ANDN$="DRA 
"THEND(13)=0:D(16)=39:D$ (39) ="41 
49":D$ (49)="39SS5009":D(2)=49:PR 
INT"  THE  CHAINS  CREAKED  AS  IT", 
"SLOWLY  DROPPED  WITH  A  SOFT  BANG 
.":GOTO2000 

3410  IFD(13)=L  ANDN$="DRA"THENPR 
INT"     THE  DRAWBRIDGE  CANNOT  BE", 
"LOWERED  FROM  OUTSIDE  OF  THE","C 
ASTLE.":GOTO2000ELSE9005 
3450  IFL<>450RN$O"WIN"THEN3499E 
LSEIFF1=0ORD (21) >0THENIFIC>0THEN 
PRINT"     I  WILL  HAVE  TO  DROP  EVER 
YTHINGFIRST. " : GOTO2000ELSEPRINTT 
AB (11) "GERONIMO I " , "     THERE  IS  A 
LOUD  CRASH  AS  THE", "GLASS  FROM  T 
HE  SHATTERED  WINDOW  FALLS  ALL  AR 
OUND  ME.":L=4  8:GOTO1000 
3460  IFF1>0THENPRINT"     OH  NO!  N 
OT  THAT  AGAIN! 11 :  GOTO2000ELSEPRIN 
T"     NO!      I'M  SUPPOSED  TO  ESCORT 
THE  KING  TO  SAFETY !": GOTO2000 

3499  PRINT"  NOT  QUITE  A  BROAD  J 
UMP  RECORD, BUT  FAIR  ENOUGH,  I  SU 
PPOSE.":GOTO2000 

3500  IFN$="WIN"ANDL=45ANDF0=0THE 
NF0=1: PRINT"     IT  IS  MUCH  CLEANER 

NOW.":GOTO2005 
3549  GOTO9010 


3550  IFD(I+6)=-lTHEND(I+6)=L:IC= 
IC-l: PRINT"  ALL  RIGHT.  I  DROPP 
ED  IT. ":ELSEIFN$="EVE"ORN$="ALL" 
THENC$="  I  DON'T  HAVE  ANYTHING. 
" : FORX=lTONI : IFD (X+6) =-lTHEND (X+ 
6)=L:IC=IC-1:PRINT"  I  DROPPED  " 
D$ (X+NR) " . " : C$=" " : NEXTELSENEXT : I 
FC$>" "THENPRINTC$ELSEELSE9000 

3551  GOTO2000 

3560  F0RX=1T0NI:IFD(X+6)=310RD(X 
+6 ) =59THEND (X+6 ) =L: NEXT : RETURNEL 
SENEXT : RETURN 

3600  IFL=45ANDN$="WIN"THEN3450EL 
SEX=INSTR(1, "     NORN     SOUS  EASE 

WESW  UP  U  DOWD  ",N$)/3:IFX<> 
INT (X) ORX=0THEN3040ELSEX=INT ( (1+ 
X)/2):ONX  GOTO3000, 3010, 3020, 303 
0,3050,3060 

3  605  PRINT"     YOU  MUST  TELL  ME  HO 
W  TO  ACCOM-PLISH  THIS  DASTARDLY 
DEED.":GOTO2005 

3610  SC=1-SC:SCREEN0,SC:GOTO2005 

3616  Z=0: 1=0 

3617  1=1+1 :PRINT@448,STRING$ (63, 
32) ; :IFI=1THENPRINT@453, "PRESS  T 
HE  ENTER  KEY  TO" , TAB ( 9 ) "SAVE  THE 

GAME" ; : IFV=32THENPRINT@489 , "LOA 
D"  ; :GOT03619ELSE3619 

3618  IFI=3THENI=0 : PRINT@454 , "PRE 
SS  ANY  OTHER  KEY" , TAB (5) "TO  RETU 
RN  TO  THE  GAME";ELSEPRINT@453,"P 
RESS  THE  SPACEBAR  TO","  TURN  THE 

CASSETTE  RECORDER  0" ; : IFZ=0THEN 
PRINT"N" ;ELSEPRINT"FF" ; 
3  619  FORX=1TO500:C$=INKEY$:IFC$= 
" "THENNEXT : G0T03  617ELSEIFC$="  "T 
HENZ=1-Z : IFZ=1THENM0T0R0N : NEXT : G 
0T03  617ELSEMOTOROFF : NEXT : G0T03  6 1 
7ELSEPRINT@448,STRING$(63,32) ; : P 
RINT@416, ; : RETURN 

3620  GOSUB3  616:IFC$<>CHR$(13)THE 
N2005ELSEPRINT@448 , STRING$ ( 60 , 32 
) ; : CSAVEM"ROBERT  M" , 1024 , 1439 ,0 : 
OPEN"0" , -1, "R  MANGUM" : F0RX=1T0NI 
+6 : PRINT# -1 , D ( X) : NEXT : F0RX=7T0NI 
+NR: PRINT#-1 , D$ (X) : NEXT : PRINT#-1 
, L, Fl , F3 , F4 , F5 , F6 , F7 , IC : CLOSE-1 : 
PRINT@416, ; :GOTO2005 
3625  GOSUB3616:IFC$<>CHR$(13)THE 
N2005ELSECLS : CLOADM"ROBERT  M" : OP 
EN"I",-1,"R  MANGUM" :F0RX=lT0NI+6 
: INPUT#-1 , D (X) : NEXT : F0RX=7T0NI+N 
R:INPUT#-1,D$(X) :NEXT:INPUT#-1,L 
, Fl , F3 , F4 , F5 , F6 , F7 , IC : CLOSE-1 : PR 
INT@416, ; :GOTO2005 
3  650  IFN$="DWA"ANDF1=1ANDL=48THE 
NF1=2: PRINT"  THE  DWARF  AND  HIS 
SWORD  GO", "FLYING  THROUGH  THE  AI 
R.     HE", "SLAMS  AGAINST  THE  WALL 


AND  IS  KNOCKED  UNCONSCIOUS,  BU 
T  HIS" , "SWORD  IS  STILL  IN  THE  AI 
R  -  AND  FALLING  TOWARDS  ME ! " : GOT 
02005 

3699  PRINT"  OUCH!  I  STUBBED  MY 
&%@#$  TOE! " ; :GOTO2000 

3700  PRINT"  " ; :IFL=7THENPRINT"H 
E'S  NOT  SO  TOUGH.  IF  IT","WASN' 
T  FOR  THAT  HORSE  THINGS" , "WOULD 
BE  DIFFERENT.  THEN  I", "WOULD  TE 
ACH  HIM  A  LESSON. " : GOTO2005ELSEI 
FL=27ANDD(14)=0THENPRINT"ASK  AND 

YE  SHALL  RECEIVE. " :GOTO2005 
3710  IFL=31THENPRINT"CUT  HIM  DOW 
N  TO  SIZE,    BUT", "DON'T  GET  TO  CL 
OSE" :GOTO2005ELSEIFL=47THENPRINT 
"SURRENDER! " : GOTO2005 
3720  IFL=48THENIFF1=1THENPRINT"R 
EMEMBER  IN  THE  MOVIE  "QT$"HAIR"Q 
T$,"WHEN  BERGER  DANCED  ON  THE  TA 
BLE  AND  KICKED  ASIDE  ANYTHING  TH 
AT     WAS  IN  HIS  WAY?" :GOTO2005ELS 
EIFF1=3THENPRINT"I 'M  NOT  AFRAID 
OF  THAT  MARKS-  MAN,   BUT  HIS  BOW 
IS  ANOTHER" , "STORY . " : GOTO2005 

3749  X=RND(3) : IFX=1THENPRINT"I 'M 
JUST  AS  CONFUSED  AS  YOU  ARE." 

:GOTO2005ELSEIFX=2THENPRINT"YOUR 
SUPPOSED  TO  HELP  ME ! " : GOTO2005E 

LSEIFX=3THENPRINT"USE  THE  FORCE, 
LUKE. " :GOTO2005 

3750  Q$="WITH" :GOSUB8000:IFL<>48 
ORFK>3ORO$O"SWO"THEN37  60ELSEIF 
N$="ARR"0RN$="B0W"THENF1=4 : PRINT 
"  MY  SWORD  SPLIT  THE  BOW  IN  TWO 
.THE  TENSION  FROM  THE  BOWSTRING 

PULLED  ONE  OF  THE  PIECES  OF  THE 
BOW  INTO  THE  SHARPSHOOTER 1  S 11 ,  "B 
ODY. " , , , , , ,ELSE3755 

3751  PRINT@448 , ; : EXEC&HA1B1 : PRIN 
T"     THE  APPRENTICE  STANDS  UP  AND 

EXCALAIMS,    "QT$ " ARGANIOUS  THE 
EXTER-MINATOR  IS  DEAD!     NOW  YOU 
SHALL  ANSWER  TO  ME  AND  MY  MAGIC! 
"QT$ , "AT  THE  LAST  WORD  OF  HIS  TH 
REAT     THE  ROOM  BEGINS  TO  SHAKE  A 
ND 

3752  PRINT "RUMBLE.  I  LOOK  AROUN 
D  TO  SEE  WHAT  IS  HAPPENING,  AN 
D  LOW  AND  BEHOLD  BEHIND  ME  STAN 
DS  A  FIFTY  FOOT  TALL  CYCLOPS.  H 
E  LEANS", "DOWN  TO  PICK  ME  UP.  H 
E  LIFTS  METO  HIS  ONE  BIG  EYE  AND 

STARES  ATME. ",,,,,, :PRINT@4 48, ; 
:PLAYS1$:GOTO2006 

3755  IFN$="MAR"THENPRINT"     I  RAI 
SED  MY  SWORD  AND  BROUGHT  IT  DOWN 
ON  HIS  HEAD,   SPLITTING     IT  OPEN 
;    (GORY  STUFF,   HUH!)    BUT  NOT  BEF 


ORE  HE  LET  LOOSE  HIS", "ARROW,  WH 
ICH  PASSED  RIGHT" , "THROUGH  MY  ST 
OMACH.     WHAT  A  HOR-RIBLE  WAY  TO 
DIE! " :GOTO10000 

3760  IFL=59ANDN$="GUA"THENL=55:G 
OSUB3  560:D$ (51) ="55" :D(2)=51:D(3 
) =58 :D (4) =56: PRINT"     WHAM!  THAT 

WILL  TEACH  HIM  TO  SLEEP  ON  THE 
JOB. " : IFF3=0THEN2005ELSEPRINTTAB 
(2)QT$"BRAV0!     BRAVO! "QT$"  CHEER 
S  THE", "KING.     HE  WALKS  OVER  TO 
THE"ELSE3770 

3765  PRINT "NORTH  WALL  AN  PRESSES 
SOME-", "THING.  THE  WALL  OPENS. 
"QT$"FOLLOWME, "QT$"  HE  CALLS  A 
S  HE  DISAPPEARS  INTO  THE  OPENIN 
G. " :D(1) =61: D$( 55)=" 61515856" :F3 
=2 :GOTO2000 


3770  IFO$="SWO"ANDFl=4ANDL=48AND 
N$="EYE"THENF1=10: PRINT"  THE  CY 
CLOPS  SCREAMS,  STUMBLES, AND  FALL 
S  TO  THE  FLOOR.  AS  HE  HITS  THE 
FLOOR  THE  ROOM  STARTS  TO  SHAKE 
.  THERE  IS  A  LOUDER", "RUMBLE  TH 
AN  EVER  BEFORE.  ROCK  STARTS" ;E 
LSE9010 

3780  PRINT"  TO  FALL  FROM  THE  CEI 
LING. HE  RELEASES  HIS  HOLD  ON  ME 
AND  THEN  VANISHES  INTO  THIN  AIR 
.  I  QUICKLY  JUMP  UP  AND  RUSH  OU 
T  THEEAST  DOOR.  AT  THAT  MOMENT 
A", "LARGE  SLAB  OF  ROCK  FALLS  FRO 
M  THE  CEILING,  BLOCKING  THE  DO 
OR. " :D(3)=92 :L=91:GOTO2005 
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3800  IFBR=1ORL<47ORL>48THEN3840E 
LSEPRINT"  " QT $ " GUARDS !  COME  TA 
KE  THIS  YOUNGS COUNDREL  AWAY  BEFO 
RE  I  TURN  HIMINTO  A  TOAD!"QT$"  0 
RDERS  THE  WIZARD. FROM  AROUND  THE 
CORNER  COME  A  COUPLE  OF  SKELE 
TONS.  "QT$"SEARCH" , "HIM  THEN  TA 
KE  HIM  TO  THE  " ; 

3805  F4=l : L=51 : PRINT"DUN-" , "GEON 
.  •»QT$"     ";  :IFIC=1ANDD(14)=-1THEN 
IC=1: PRINT "LUCKY  FOR  ME  THEY  DID 
N'TFIND  MY  KEY .  "ELSEIFIO0THENPR 
INT"THEY  TOOK  EVERYTHING" , "THAT 
I  HAD"; :IFD( 14) =-lTHENIC=l: PRINT 
",   EXCEPT  FOR  MY  WELL-  HIDDEN  KE 
Y . "ELSEIC=0 : PRINT" . "ELSEPRINT 
3807  FORX=7TONI+6:IFD(X) >-10RX=l 
4THENNEXTELSED (X) =00 : NEXT 
3810  IFF3=1THENPRINT"     THE  DWARF 

THREW  A  BUCKET  OF       WATER  ONTO 
MY  BLAZING  HAIR. 

3  820  PRINT"     THEY  LEAD  ME  TO  THE 

DUNGEON       AND  THROW  ME  INTO  MY 
CELL. " :GOTO2005 

3840  IFBR=1THENPRINT"  NO!  I,  B 
RAVE  TOM,  WILL  NEVER  SURRENDER." 
*GOTO2005ELSEPRINT"  NO  ONE  HERE 
WILL  ACCEPT  MY" , "SURRENDER. ": GO 
TO2005 

3850  IFL=27ANDN$="DRA"ANDD(14)=0 
THENPRINT"  I  TOLD  THE  DRAGON  HO 
W  I  COULD  USE  HER  KEY  AND  THAT  I 

WOULD" , "RETURN  IT  WHEN  I  WAS  TH 
ROUGH . " : 0$="KEY" : GOT03  2  50 
3855  I FL=51ANDN$= "MAN "THENPRINT" 
"QT$"I  AM  HERE  TO  RESCUE  KING" 
, "THEODORIC  FROM  THE  EVIL  WIZARD 
SYNESIUS.  I  WOULD  BE  MORE  THA 
N  HAPPY  TO  TAKE  YOU  WITH  US,"QT$ 
"  I", "EXPLAINED. ", ,"  THE  OLD  MA 
N  LAUGHED,  "QT$"I  AM", "KING  THEO 
DORIC  BUT  I  WILL" ;ELSE3899 
3  8  60  PRINT"  TAKE     YOU  UP  ON  YOUR 

OFFER.  AS  A  MAT-TER  OF  FACT,  I 
F  YOU  CAN  GET  US     OUT  OF  HERE,  I 

WILL  GIVE  YOU", "MORE  GOLD  THAN 
YOU  CAN  COUNT. "QT$,"     OF  COURSE 
I  TOLD  HIM  THAT  I", "DON'T  CARE  A 
BOUT  ANY  REWARD. " : F3=l : GOTO2005 

3899  PRINT"  I  DIDN'T  GET  ANY  RE 
PLY. " :GOTO2005 

3900  V$="KNICHAPEASTOBEAPRISEASK 
YLUCNUM" : IFV=55THENQ$="TO"ELSEIF 
V=56THENQ$="INTO"ELSEQ$="WITH" 
3910  GOSUB8000:N=(INSTR(1,V$,N$) 
+2)/3:V=(INSTR(l,V$,0$)+2)/3 : I FN 
+V>INT (N) +INT (V) ORL<>69ORN*V=0TH 
EN9010ELSEPRINT"  I  POUR  THE  CON 
TENTS  OF  THE", "VIALS  BACK  AND  FO 


RTH  TO  MAKE", "SURE  THAT  THEY  ARE 
WELL  MIXED.      I  SET  THE  VILE  CON 

TAINING  THE       MIXTURE  ON  THE"; 

3915  PRINT"  TABLE  AS  IT", "STARTS 
TO  BUBBLE  AND  RELEASE  A  CLOUD 

OF  GAS.", ,,,,,, :PRINT@448, ; :EXEC 

&HA1B1 

3920  IFN+V<>140RN*V<>45THENIFRND 
(2)=1THENPRINT"I  FEEL  FAINT... TH 
INK  THAT. . .","GAS. . .POISON. . .":G 
OTO10000ELSEPRINT"THE  POTION  SPL 
ASHES  AND  SPUTTERSUNTIL  IT  FINAL 
LY  EXPLODES . " : GOTO10000 
3930  PRINT"     RIGHT  BEFORE  MY  EYE 
S,   THE  VIALSTARTS  TO  MELT.  THE 
GLASS  SEEMSTO  BE  TAKING  ON  AN  OR 
BICAL" , "SHAPE.      THE  GAS  FORMS  A 
SMOKE       SCREEN,    PREVENTING  ME  FR 
OM  SEE-  ING  THE  TABLE.     AFTER  A 
FEW  MIN-UTES,   THE  GAS  CLEARS.  A 
P PARENT-" ; 

3  940  PRINT "LY,  THE  VIAL  HAS  META 
MORPHOSED     INTO  A  CRYSTAL  BALL. 

THE  OTHER  VIALS  HAVE  DISAPPEARE 
D. " : D ( 22 ) =69 : GOTO2005 
3950  IFN$="UP  "THEN3800ELSEIFD (I 
+6) >-lTHEN9000ELSEQ$="TO" : GOSUB8 
000 

3  955  IFI=13ANDO$="DRA"THENPRINT" 
THE  DRAGON  STARES  AT  THE  LANCE 
AND  IT  DISINTEGRATES.      ALL  OF  A 
SUDDEN,   A  HERD  OF  ANIMALS  COMES" 
ELSEIFCO$>" "THENPRINT"     THE  "CO$ 
"  DOESN'T  WANT  THE" , RIGHT$ (D$ (1+ 
NR) , LEN ( D$ ( I+NR) ) -INSTR ( 1 , D$ ( I+N 
R),"   "))"." :GOTO2000ELSE9010 
3960  PRINT "RUNNING  ACROSS  THE  DR 
AWBRIDGE.     AMONG  THEM  IS  A  BABY 
DRAGON.","     IS  THERE  ANYWHERE  I 
CAN  TAKE", "YOU? "QT$"     ASKS  THE  D 
RAGON.      I  TELL  HER  ABOUT  THE  WAR 
THAT  WE  MUST     STOP  AND  SHE  AGRE 
ES  TO  HELP. :PRINT@448, ;: EX 
EC&HA1B1:CLS 

3  970  PRINT§4 3, "EPILOGUE: "  T 
HE  THREE  SAVE  THE  KINGDOM" , "FROM 

DESTRUCTION,  TOM  BECOMES  SIR 
TOM,  THE  DRAGON  BECOMES  THE  FIRS 
T  ANIMAL  EVER  ON  THE  ENDAN-  GERE 
D  SPECIES  LIST,  AND  LONSOME  VALL 
EY  GETS  A  HERO. TAB (12) "THE  E 
ND" 

3980  PRINT@448, ; : EXEC&HA1B1 : GOTO 
3980 

3  990  PRINT"  THAT  WILL  DO  NO  GOO 
D. " :GOTO2000 

6000  PRINT" I  AM  STANDING  IN  FRON 
T  OF  THE  CASTLE.  THERE  IS  A  MOA 
T  AROUND  IT. "; :IFF7=2THEND$ (49)= 


"39": PRINT"     THE  DRAGON  IS  HERE; 

HE", "WON'T  LET  ME  PASS . " : GOTO10 
10ELSEPRINT:GOTO1010 
6010  PRINT"I  AM  EAST  OF  A  CASTLE 
.     THERE  IS  A  ROAD  TO  THE  EAST." 
:GOTO1010 

6020  PRINT "THERE  IS  A  KNIGHT  STA 
RING  AT  ME.  HE  IS  CARRYING  A  B 
ATTLE  AXEIN  HIS  RIGHT  HAND,  AND 
A  SHIELD  IN  HIS  LEFT.  HIS  WAR  H 
ORSE", "SEEMS  TO  BE  SNORTING  SMOK 
E  OUT     OF  HIS  NOSTRILS.  "  :GOTO101 

6030  PRINT"I  AM  AT  THE  END  OF  A 
ROAD", "WHICH  DISAPPEARS  TO  THE  E 
AST.  ":GOTO1010 

6040  PRINT"WHILE  I  WAS  RUNNING  A 
WAY,   THE  KNIGHT  THREW  HIS  BATTLE 
AXE  AT     ME,   AND  WELL,  I'M...":G 
OTO10000 


6050  PRINT" I  AM  WEST  OF  A  CASTLE 
.  THE  ROAD  HOME  LIES  TO  THE  S 
OUTH. " :GOTO1010 

6060  L=9:PRINT"I  CAN'T  GO  HOME  Y 
ET! " :GOTO2000 

6010  PRINT" I  AM  AT  THE  END  OF  A 
ROAD  THATDIS APPEARS  TO  THE  WEST. 

THERE  IS  A  CAVE  TO  THE  NORTH. 
»:GOTO1010 

6080  PRINT"I  AM  IN  A  GRASSY  FIEL 
D  THAT  SEEMS  TO  GO  ON  FOREVER. 
":GOTO1010 

6090  PRINT"I  AM  IN  A  CAVE.":GOTO 
1010   


6100  PRINT" I  AM  IN  A  LARGE  CAVER 
N.  THERE IS  A  HUGE  HOLE  IN  THE  C 
IELING . " : IFD ( 14 ) O0THEN1010ELSEP 
RINT" LYING  IN  THE  MIDDLE  OF  THE 
FLOORIS  A  DRAGON.  HE  (OR  POSSIB 
LY  SHE)  IS  A  BEAUTIFUL  SHADE  O 
F", "YELLOW  -  ALMOST  GOLD.  " ; : IF 
D(14) <>0THENPRINT:GOTO1010 
6105  PRINT "AROUND  HIS  (OR  HER) 
NECK  IS  A  SHINY", "GOLDEN  KEY.": 
GOTO1010 

6 lip  PRINT" I  AM  IN  A  DAMP,  DARK 
PASSAGE  .  "  :  IFL=30THENPRINT" THERE 
IS  A  LARGE  CRACK  IN  THE       WEST  W 
ALL.  "  :GOTO1010ELSE1010 
6120  PRINT"I'M  IN  SOME  KIND  OF  F 
ANCY  BED-ROOM.     THERE  ARE  BEAUTI 
FUL  DEC-  ORATIONS  EVERYWHERE . " ; : 
IFL=3 1THENPRINT"     BY  THE", "WEST 
DOOR  IS  AN  ORC  GUARD.     HE     IS  CA 
RRYING  A  LARGE  SPEAR. ": GOTO1010E 
LSEPRINT.-GOTO1010 

6130  PRINT" I  AM  IN  A  NORTH-SOUTH 
HALLWAY.IT  IS  WIDE  AND  TALL.";: 
IFL=3  70RL=68THENPRINT"  THERE  IS 
ADOOR  ON  THE  EAST  WALL . " : GOTO 10 
10ELSEPRINT:GOTO1010 
6140  PRINT"I  AM  IN  A  HUGE  COURTY 
ARD.", "THERE  ARE  MANY  PILLARS  HE 
RE  TO  HOLD  THE  CEILING  UP.";:IF 
D(21) >0ANDL=41ANDF7=0THENF7=1 : PR 
INT"  THE  WIZARDIS  STANDING  IN  T 
HE  MIDDLE  OF  THEROOM.  "QT$"I'VE 
BEEN  EXPECTING  YOU  HE  SAYS."QT$ 
ELSEPRINT : GOTO10 10 
6145  D$ (41) ="97979797" :GOTO1010 
6150  PRINT"THIS  MUST  BE  THE  KING 
'S  TROPHYHALL.  ON  THE  WALLS  HAN 
G  THE", "HEADS  OF  MANY  ANIMALS:  B 
EARS,  WOLVES,  AND  EVEN  A  DRAGO 
N.  BET  YOU  CAN'T  GUESS  WHAT  ELS 
E  I  SEE  HANGING  ON  THE  WALL.": GO 
TO1010 

6160  PRINT" I  AM  AT  THE  TOP  OF  A 
FLIGHT  OFSTAIRS.      THERE  IS  A  DIM 
LIGHT  ONTHE  BOTTOM  STEP.":GOT01 
010 

6170  PRINT "I  AM  IN  A  DAMP,  DARK, 
RAT-IN-  FESTED  HALLWAY.  THERE 
IS  A  DOORON  THE  NORTH  WALL.": GOT 
01010 

6180  PRINT" I  AM  AT  THE  END  OF  TH 
E  HALL-     WAY.      ON  THE  NORTH  WALL 

IS  A", "DOOR.     ON  THE  EAST  WALL 
IS  A","WINDOW.":GOTO1010 
6190  PRINT" I  AM  AT  THE  BOTTOM  OF 

A  FLIGHTOF  STAIRS.     THERE  IS  A 
SMALL", "DOORWAY  IN  THE  NORTH  WAL 
L.     A       DIM  LIGHT  SEEPS  THROUGH 


A  CRACK  UNDER  THE  DOOR.  "  :  GOTO  1)31 

6200  PRINT "I  AM  IN  THE  WIZARD'S 
DINING", "ROOM.     IN  THE  MIDDLE  OF 

THE  ROOMIS  A  LARGE  TABLE.  ABOV 
E  THE", "TABLE  IS  A  CRYSTAL  CHAND 
ALIER.     SITTING  AT  THE  TABLE  ARE 

A", "DWARF,  A  MARKSMAN,  THE  WIZA 
RD      HIMSELF,   AND  HIS  APPRENTICE 

6202  PRINT"     THE  WIZARD  POINTS  A 
FINGER  AT  ME  AND  ORDERS,  »QT$"S 
URRENDER  OR"  ,  "DIE!  "QT$ :  GOTO1010 
6210  IFFK4THENPRINT" I  AM  ON  THE 
WIZARD'S  DINING", "TABLE;  HE  SIT 
S  AT  THE  EAST  END.    DIRECTLY  ABOV 
E  ME  IS  A  CRYSTAL  CHANDALIER. 
AT  THE  NORTH  SIDE     IS  HIS  APPREN 
TICE,  AT  THE  WEST     IS  A  MARKSMAN 
,  AND  ";  :IFFK2THENPRINT"AT  THE 
SOUTH  IS  A  DWARF. ":GOTO1010 
6212  IFF1=3THENPRINT" AGAINST  THE 
WEST  WALL  IS  THE  UNCONSCIOUS", 
"DWARF. ":GOTO1010ELSEPRINT"I  AM 
IN  THE  HAND  OF  A  FIFTY       FOOT  TA 
LL  CYCLOPS.      HE  IS  STAR-  ING  AT 
ME  WITH  HIS  ONE  HUGE  EYE.";:GOTO 
2005 

62  20  PRINT" I  AM  IN  A  SMALL,  DARK 
,   DAMP,     RAT-INFESTED  CELL.  IT 
CONSISTS  OF  A  WALL  TO  THE  SOUTH; 
IRON", "BARS  TO  THE  NORTH,  EAST, 
AND", "WEST;  AND  A  DOOR  TO  THE  N 
ORTH. " : IFL>51THEN1010 
6222   IFF3=0ANDD$ (51) ="55"THENF3= 
1: PRINT" IN  THE  CORNER  IS  AN  OLD 
MAN.     HESTANDS  AND  EXCLAIMS,  "Q 
T$"I  KNEW       THAT  SOMEONE  WOULD  C 
OME  TO  SAVE  MY  KINGDOM  FROM  THAT 
TRAITOROUS  WIZARD.     LET  US  GO  N 
OW  AND  TRY     TO  STOP  MY  KNIGHTS." 
QT$:GOTO1010 

6225  IFF4=0THENPRINT"THE  KING  IS 
STANDING  BY  THE" , "DOOR. ": GOTO 10 
10ELSEIFF3=0THENPRINT" LYING  IN  0 
NE  CORNER  IS  A  BEARDEDOLD  MAN.": 
GOTO1010ELSEIFF3=1THENPRINT"THE 
KING  IS  SITTING  IN  THE  COR-  NER 
OF  THE  CELL. " : GOTO1010ELSE1010 
6230  PRINT" I  AM  IN  THE  DUNGEON. 

THERE       ARE  A  NUMBER  OF  CELLS  A 
LONG  THE  SOUTH  WALL.      " ; : IFL=57T 
HENPRINT"A  SHORT  FLIGHT  OF  STAI 
RS  CLIMB  AWAY  TO  THE  NORTH. "ELSE 
IFL=55ANDF4=1THENPRINT"THE  UNCON 
SCIOUS", "GUARD  IS  STILL  RESTING 
ON  HIS       CHAIR. "ELSEPRINT 
6235  IFF3=1THENPRINT"     THE  KING 
WALKS  OVER  TO  THE", "NORTH  WALL  A 


ND  PRESSES  SOME-", "THING.     THE  W 
ALL  OPENS.      "QT$"FOLLOWME, "QT$" 
HE  CALLS  AS  HE  DISAPPEARS  INTO 
THE  OPENING .":D(1)=61:D$(55)="61 
515856" :F3=2 : GOTO1010ELSE1010 
6240  PRINT"I  AM  OUTSIDE  OF  THE  C 
ELL.     THEONLY  GUARD  THAT  I  CAN  S 
EE  IS", "SLEEPING  IN  A  CHAIR  WHIC 
H  IS", "LEANED  AGAINST  THE  NORTH 
WALL.     HIS  HANDS  ARE  FOLDED  ACRO 
SS  HIS  LAP,   AND  A  HAT  COVERS  HIS 

EYES. ":GOTO1010 
6250  PRINT"I  ACCIDENTLY  STUMBLED 
,  WAKING  THE  GUARD.      "QT$"THE  PR 
ISONER  HAS       ESCAPED! "QT$"  THE 
TWO  SKELETONS", "COME  RUNNING  AWK 
WARDLY.     BEFORE  I  CAN  SAY,  "QT$" 
THOSE  BONES,   THOSE     BONES..., "QT 
$"  THEY  PUT  A  COUPLE  OF  SPEARS  I 
NTO  MY  HEART. " :GOTO10000 
62  60  PRINT"THIS  A  SMALL,  DIMLY-L 
IT  ROOM.   THE  ONLY  LIGHT  IS  PROVI 
DED  BY  ANOPEN  TRAP  DOOR  IN  THE  C 
EILING.      THERE  IS  A  LADDER  LEADI 
NG  UP  TO  THE  DOOR. ": GOTO 10 10 
6270  PRINT"I  AM  IN  AN  EAST-WEST 
PASSAGE-  WAY .      " ; : IFL=62THENPRIN 
T" THERE  IS  AN  OPEN  TRAP  DOORIN  T 
HE  FLOOR.     " ; :IFF3=2THENF3=3:D(2 
l)=62:PRINTQT$"YOU  CAN  LEAD  THER 
EST  OF  THE  WAY,"QT$"  THE  KING  IN 
-     FORMS  ME . " : GOTO10 10ELSEPRINT : 
GOTO1010 

6275  IFL=63THENPRINT" THERE  IS  A 

DOOR  ON  THE", "NORTH  WALL.": GOTO 1 

010ELSEPRINT:GOTO1010 

62  80  PRINT" I  AM  AT  THE  CORNER  OF 

A  HALL-  WAY  WHICH  LEADS  TO  THE 
NORTH,        AND  ANOTHER  WHICH  LEADS 

WEST. ":GOTO1010 
62  90  PRINT"THIS  LOOKS  LIKE  THE  W 
IZARD'S  LABORATORY.  IN  THE  MID 
DLE  OF  THE  ROOM  IS  A  LARGE  WOO 
DEN  TA-  BLE.  SOMETING  IS  CARVE 
N  ON  IT.":IFD(22)O0THEN1010ELSE 
PRINT "ON  THE  TABLE  ARE  TEN  VIALS 
,  EACHMARKED  WITH  A  WORD:  KNIGH 
T,", "CHAIR,  PEASANT,  STONE,"; 
6295  PRINT"  BEAUTI-  FUL,  PRINCE 
SS,  SEA,  SKY,  LUCKY,  NUMBER": GOT 
01010 

6300  PRINT" I  AM  AT  THE  TOP  OF  A 
STAIRWAY.IT  SPIRALS  DOWN  INTO  DA 
RKNESS . " : GOTO1010 
6310  PRINT"THIS  IS  A  VERY  SMALL 
ROOM.     A  STAIRCASE  LEADS  DOWN. 
THERE  IS  A  DOOR  ON  EVERY  WALL. 
SOMETHINGIS  WRITTEN  ON  THE  FLOOR 
. ":GOTO1010 


6320  PRINT "THIS  IS  A  DARK,  DAMP 
PASSAGE-  WAY.     THE  ECHOES  OF  OUR 

FOOT-       STEPS  FILL  THE  AIR.  HI 
GH  UP  ON  THE  WALLS  ARE  FLICKERIN 
G  TORCHESWHICH  SEND  OUR  SHADOWS 
DANCING     ACROSS  THE  FLOOR."; 
6325  IFF6=0THENPRINT"     THE  KING 
RE-  MARKS,    "QT$"I  DON'T  REMEMBER 

EVER  COMING  DOWN  HERE  BEFORE. 
"QT$ : F6=l : GOTO1010ELSEPRINT : GOTO 

6330  IFL<>78THEN2003ELSEIFF6<200 
THENF6=200:PRINT"THE  DOOR  CLOSES 
BEHIND  ME  AND  LOCKS,  MAKING  ALL 
ESCAPE  IMPOS-  SIBLE . " , , "  "  ; 
633  3  IFV>17THENPRINT"  ONE  OF  TH 
E  ADDERS  SPRINGS  FOR-WARD  AND  BI 
TES  MY  LEG.  BEFORE  IDIED,  I  SMA 
SHED  HIS  SLIMY  BODY  UNDER  MY  FO 
OT. " :GOTO10000 


6335  PRINT"THIS  A  SMALL,  DIMLY-L 
IT  ROOM.  THERE  IS  ENOUGH  LIGHT  I 
N  HERE  TOSEE  THREE  VENOMOUS  ADDE 
RS  SLITH-ERING  TOWARDS  ME  THOUGH 
. " :GOTO1010 

6340  L=80:PRINT"THIS  A  FAIRLY  LA 
RGE  ROOM.  IT  -  AHHHHHH !  THE  FL 
OOR  DROPPED       OUT  FROM  UNDER  US. 

LUCKILY  WE  LANDED  IN  A  POOL  O 
F  WATER. " :GOTO10 10 

6350  PRINT"WE  ARE  IN  A  POOL  OF  W 
ATER. ", "THERE  ARE  STEEP  WALLS  ON 
THE", "NORTH,   EAST,   AND  WEST.  I 
CAN       EASILY  CLIMB  OUT  ONTO  THE 
SOUTH  BANK. " :GOTO1010 
63  60  PRINT"WE  ARE  IN  A  TWISTING 
TUNNEL. " : IFL=81THENPRINT"THERE  I 
S  POOL  NORTH  OF  HERE . " : GOTO1010E 
LSE1010 

6370  PRINT"THIS  IS  A  TWISTING  HA 
LLWAY. " :IFL=9  2THENPRINT"THERE  IS 
A  FLIGHT  OF  STAIRS  ON     THE  SOUT 


H  WALL,  AND  A  DOOR  ON  EAST. "EL 
SEIFL=940RL=95THENPRINT"THERE  IS 

A  DOOR  ON  THE  NORTH" , "WALL. " 
6375  IFL=91THENPRINT"THERE  IS  A 
SLAB  OF  ROCK  BLOCKINGTHE  PASSAGE 
WAY  ON  THE  WEST . " : GOTO1010ELSE10 
10 

63  80  PRINT "THIS  IS  THE  WIZARD'S 
DINING  ROOM.  HE  TURNS  TO  ME  A 
ND  SAYS,",QT$"I  HAVE  BEEN  KIND  T 
0  YOU  UP", "UNTIL  NOW.  YOU  WILL 
DIE!"QT$"  A  FIREBALL  FLIES  FR 
OM  HIS  FINGERS  AND  HITS  ME  IN  TH 
E  CHEST.  I  AM  ON  FIRE.  AHHHHH ! 
" :GOTO10000 

6390  PRINT@480, ; :GOTO2003 
8000  IFV=490RN$=""0R0$O""THENEL 
SEPRINTSTRING$ ( ( 31-LEN ( C$ ) +ABS ( 3 
1-LEN(C$) ) )/2,8)Q$"  " ; : LINEINPUT 
CO$ : IFCO$=" "THENELSEFORX=lTOLEN ( 
CO$) :IFLEFT$(CO$,l)="  "THENCO$=R 
IGHT$ (CO$ , LEN (CO$) -1) :NEXTELSECO 
$=LEFT$ (CO$ , INSTR ( 1 , CO$+"  " , "  ") 
-1) :0$=LEFT$ (CO$, 3) 
8005  RETURN 

9000  PRINT"  I  DON'T  HAVE  THAT." 
:GOTO2005 

9005  PRINT"     I  CAN'T. " :GOTO2000 
9010  PRINT"     NOTHING  HAPPENED.": 
GOTO2000 

10000  PRINT"  I'M  DEAD", , :EXEC&H 
A1B1:CLS0:PRINT@78,STRING$ (5, 131 
) ; :PRINT@108,CHR$ (129) STRING$ (7, 
143) CHR$ (130) ; :PRINT@140, "  TOM 
"; :PRINT@172, "  ";:PRI 
NT@204,"  RIP  " ; :PRINT@236, " 
";: PRINT @ 3 9 5, "PLAY  AGAIN 

?"  i 

10010  I$=LEFT$ (INKEY$, 1) :IFI$="" 
THEN10010ELSEIFI$="N"THENENDELSE 
RUN 

11000  GOTO11000 

12000    i  *  *  *  ))*''•'*''*  *  <  *  *  *'  *  •  '  * 

12001 
12002 

12003  THE  HERO  OF  LONESOME  VALLE 

Y 

12004  —  

12005 

12006  BY     ROBERT  W  MANGUM  II 
12007 

12008  2915     DAIRY  ROAD 

12009  TITUSVILLE,   FL  32796 
12010 

12011  (305)  268-1404 

12012 

12013  APRIL  1984 

12014  ^ 
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 1  Program  by  Robert  Poppe 

x  — 

here's  something  about  a  forest,  especially  a 
large  one,  that  has  a  strange  attraction  for  many 
persons.  They  want  to  explore  mysterious  new 
territory,  but  fear  losing  their  way.  The  forest 
is  at  once  inviting  and  forbidding.  For  you, 
however,  the  bigger  the  forest  the  better.  If  it 
is  forlorn,  so  much  the  better. 

You  live  in  a  big  city  where  human  beings 
far  outnumber  the  trees.  Through  the  paper- 
thin  walls  of  your  apartment,  you  hear 
everything  on  both  sides  of  you,  as  well  as  above 
and  below.  There's  no  relief  from  the  human 
race  even  in  the  parking  garage.  The  masses 
push  you  around  and  crowd  against  you  on 
the  subway.  They  race  you  to  the  elevator  and 
let  the  door  close  in  your  face.  They're 
everywhere. 

That's  why  you  have  come  to  the  forest  — 
to  get  away  from  them!  No  one  in  his  right 
mind  would  dare  enter  the  forest,  with  its 
swamps  and  foggy  mists.  Nobody  ever  accused 
you  of  being  insane,  but  you  know  you're  going 
to  go  absolutely  bonkers  unless  you  get  a  few 
days  of  solitude. 
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With  your  backpack  loaded  with  everything  you  think  you'll  need  for  a 
couple  of  weeks,  you  begin  your  exploration.  You  love  it,  wondering  why 
you  hadn't  thought  of  the  idea  years  ago.  The  silence  is  broken  only  by  the 
melodic  chirping  of  the  birds  and  the  rustling  sounds  of  small  furry  creatures 
in  the  dry  leaves.  As  darkness  falls,  you  pitch  a  tent  and  settle  into  your 
sleeping  bag  —  to  be  interrupted  only  by  the  sun  peaking  through  the  trees 
the  next  day. 

After  a  few  days  of  random  wandering,  you  notice  that  your  food  supply 
is  getting  low.  It  is  then  that  you  decide  you  probably  ought  to  be  thinking 
about  heading  back  to  civilization.  As  a  Boy  Scout,  you  learned  you  could 
survive  on  wild  berries  and  other  fruit  for  several  days  if  necessary.  But  that 
kind  of  food  doesn't  appeal  to  you. 

So  you  begin  the  return  trip,  experiencing  little  difficulty  until  you  are 
driven  into  shelter  by  a  violent  thunderstorm.  The  rain  is  refreshing  from 
your  position  underneath  a  large  cliff,  so  you  watch  Mother  Nature  do  her 
thing. 

A  funny  thing  happens  during  the  rain,  however.  All  of  the  footprints  you 
left  on  the  ground  on  your  way  into  the  forest  are  washed  away. 

The  next  few  days  are  to  be  traumatic  as  frustration  turns  into  desperation 
and  evolves  into  panic.  You  reach  the  point  where  you  feel  all  is  lost  until 
you  happen  onto  a  sign  pointing  the  way  to  a  place  called  Randomar. 

This  Adventure  requires  all  of  the  memory  in  a  32K  computer.  If  there 
is  another  program  in  the  computer  the  Adventure  will  not  run,  so  be  sure 
to  turn  off  the  computer  for  a  few  seconds  before  you  load  this  program. 

Make  it  to  Randomar  and  you  will  be  safe.  There  may  even  be  a  few 
persons  waiting  for  you. 


(Robert  Poppe  is  a  self-employed  woodearver  living  in  Louisville,  Ky. 
He  is  also  a  self-taught  programmer,  having  obtained  his  Color  Computer 
in  June  1982.) 
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r  RANDOMAR    32K  ECB 


0  PCLEAR8  :  GOT012  9 

1  N$="I  don't  understand. " :LX=1: 
LY=158 : GOSUB5 : GOSUB4 : GOSUB108 : GO 
SUB3 : GOSUB5 : GOT03  3 

2  PLAY"V30T10L10O4CBCBCBCBCB" 

3  FORW=1TO1000  :  NEXT :  RETURN 

4  PLAY"V30T7L7O2ACACAC" : RETURN 

5  LINE  (0,122)-(255,140)  ,  PRESET,  B 
F: LINE (0, 142) -(210, 170) , PRESET, B 
F : RETURN 

6  PLAY"V31T255L25502  ;12  ;  10  ;  9  ;  11  ; 
9 ;01" : F0RW=1T04 : PLAY"V< ; 12 ; 9 ; 10 ; 
7 ;  9  ;  11 ; 8 ; 10 ; 6 ; 9 ; 7 ; 4 ; 8 ; 7 ; 6 ; 4 ; 6 ; 5 ; 

3  ;  2  ;  6  ;  4  ;  5 ; 3 ; 1 ; 2 ; 1 ; 1" : NEXT : RETURN 

7  FORQ=0TO9  5:Z=RND(60)+30:DRAWMB 
M0 , =Q ; NR=Z ; " : DRAW" BM2  55 , =Q ; NL=Z ; 
"  :  NEXT :  DRAWBM127 , 20C0DGFBD2GFRE 
HBU2  EHUBR3REHLGBL5GLHERBR2  BUHL3  B 
R8NGR3U2H2L7G2D2LGD6FDFDF3R5E3UE 
UEU6HBR2BD6EU2HU4H2UH3L7G3DG2D4G 
D2F":PAINT(128,10) ,0,0 

8  DRAWBM12  3 , 29D3FRFR3ERENU3R3FR 
FR2FRF4D5FD3L9U6HBL18GD6L9U3EU5E 

4  RERERERBM- 5 , +16D10F7R2ER4FR2E7U 
9BR6D11LDG2LG5LGL2GL8HL2HLH5LH3N 
Ull":POKE178,2:PAINT(128,3  6) , ,0: 
POKE178,0 

9  DRAWH4L4GLG2D3FD2F7RFRFRFR2FR 
3FRFRFRFR3FR6E3U2HLHLHL2HL2HBM+1 
9 , -12E3R4FRF2D3GD2G7LGLGLGL2GLBM 
+7 , -2R2FRFD2G4L7HL2BM-14 , -1LGL2G 
L7H3U2ERER" :POKE178, 1: PAINT (105, 
60) , ,0: PAINT (150, 60) , ,0:POKE178, 
0: PAINT (115, 78) , ,0: PAINT (144, 78) 
, ,0: RETURN 

10  PMODE2,3:PCLSl:PMODE4,l:DRAW" 
C0" 

11  N$=MIlm  "+L$(L) :LX=0:LY=108:G 
OSUB108 

12  ON  L  GOSUB  144,148,150,151,15 
5, 169, 172, 173 , 179 , 181 , 184 , 185 , 18 
6, 187, 188, 194 

13  N$="I  see  ":LX=0:LY=118: GOSUB 
108:LY=108 

14  IFZ4=2THEN21 

15  FORD=lTO  Y:IFD=9ANDZ2=1THEN20 

16  IFD=7AND  O  (6)  O20THEN20 

17  IFD=2AND  0  ( 6)  O20THEN20 

18  IFD=4AND  O  ( 2 )  O20THEN20 

19  IFO(D)=L  THENN$=LO$(D) :LX=48: 
LY=LY+10 : GOSUB108 : IFD>6THEN20ELS 
EDRAW  G$(D) :DRAW"C0S4" 

20  NEXT:GOT022 

21  IFL=2ORL=6ORL=10THENN$="A  hig 
hway  going  north  and  south. ":LX= 
1 : LY=128 : GOSUB5 : GOSUB108 : GOSUB2 : 


GOT015ELSE15 

22  IFN$="I  see  "THENN$=N$+"nothi 
ng  special . 11 :  LX=0 :  LY=118  :  GOSUB10 
8 

23  DRAWBM236,  154F18G18H18E18"  :N 
$="MOVE" : LX=222 : LY=150 : GOSUB108 : 
F0RD=1T06 

24  IFT (D, L) >0THEN  ON  D  GOSUB  27, 
28,29,30,31,32 

2  5  NEXT 

26  GOT03  3 

27  N$=MN" : LX=234 : LY=165 : GOSUB108 
: RETURN 

28  N$="S" : LX=234 : LY=185 : GOSUB108 
: RETURN 

29  N$="E" :LX=244 : LY=175 : GOSUB108 
: RETURN 

30  N$="W" : LX=224 : LY=175 : GOSUB108 
: RETURN 

31  N$="U" : LX=248 : LY=162 : GOSUB108 
: RETURN 

32  N$="D" : LX=248 : LY=188 : GOSUB108 
: RETURN 

33  GOSUB93 

34  FORD=lTO  LEN (A$) : IFMID$ (A$ , D, 
1)="  "THEN  A1$=LEFT$ (A$ , D-l) :B$= 
MID$ (A$ , D+l , LEN (A$) -D)  : GOT03  6ELS 
ENEXT 

35  A1$=A$ 

3  6  FORD=lTO  22 

37  IFC$(D)=A1$  THEN  A=C(D):GOT04 
0 

3  8  NEXT 

39  GOTO  1 

40  ON  A  GOTO  41,49,59,64,67,70,7 
1,76,79,85 

41  FORD=lTO  Y 

42  IF (B$=0$ (D) ORB$=OS$ (D) ) ANDO (D 
)=20THEN  N$="I  already  have  it." 
: LX=1 : LY=158 : GOSUB5 : GOSUB108 : GOS 
UB2:GOSUB5:GOT03  3 

43  IF(B$="GOLD"ORB$="gold")THENO 
(9)=0 

44  IFL=15AND(B$="KEY"ORB$="key") 
THENZ4=2 

45  IF(B$=0$(l)ORB$=OS$(l) )ANDO(l 
)=L  THENO(1)=20:O(6)=20:N$="OK, 

I  got  it. ":LX=l:LY=158:GOSUB5:GO 
SUB108 : GOSUB2 : GOTO10 

46  IF(B$=0$(D)ORB$=OS$(D) )  AND  O 
(D)=L  AND  0$(D)<>"*"  THENO(D)=20 
:N$="OK,  I  got  it . " : LX=1 : LY=158 : 
GOSUB5 : GOSUB108 : GOSUB2 : GOTO10 

47  NEXT 

48  N$="I  can't  "+A1$+"  that!":GO 
SUB4 : LX=3 : LY=158 : GOSUB5 : GOSUB108 
: G0SUB3 : GOSUB5 : GOT03  3 
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49  NC=0:FORD=1TO  Y 

50  IFB$="GOLD"ORB$="gold"  THENO ( 

9)  =9 

51  IFB$="WAND"ORB$="wand"  THENO  ( 
2)=11:GOTO10 

52  IF  (B$=,lHAT"ORB$="hatM  )  AND  L=l 
5ANDO(4)=20THEN  T ( 2 , 15 ) =0 : T ( 3 , 15 
)=0:O(4)=14:WH=0:N$="YOU  ARE  DOO 
MED" : LX=73 : LY=128 : PMODE1 , 3 : PCLS4 
: PMODE4 : GOSUB4 : GOSUB108 : GOSUB4 : G 
OTO10 

53  IF (B$="HAT"ORB$="hat" ) ANDO ( 4 ) 
=20THEN  T(l,  14)=-15:T(4, 16)=-15: 
T(2,15)=-14:T(3, 15)=-16:WH=0:O(4 
)=14:GOTO10 

54  IFB$="BOX"ORB$="box"THEN  0(6) 
=0:T(6,10)=-16 

55  IFB$= " AMULET "ORB$=" amulet "THE 
NT(6,  10)=-16 

56.  IF(B$=0$ (D)ORB$=OS$(D) ) ANDO (D 
)=20  THEN  O(D)=L:GOTO10  ELSE  NC= 
NC+1 

57  NEXT 

58  IF  NC=Y  THEN  N$="I  don't  have 
a  "+B$+"  . 11 :  G0SUB5 :  G0SUB4  :  LX=1 :  L 

Y=158 : GOSUB108 : G0SUB3 : G0SUB5 : GOT 
033 

59  F0RD=1T06:IFB$=T$(D)THENDR=D: 
GOT062ELSENEXT 

60  F0RD=1T06:IFB$=TS$ (D)THENDR=D 
: GOT062ELSENEXT 

61  F0RD=1T06:IFB$=TC$(D)THENDR=D 
: GOT062ELSENEXT 

62  IF  T  ( DR ,  L) >0THEN  L=T(DR,L):PL 
AY"V30T10L10O3C" :GOTO10 

63  N$="I  can't  go  that  way!":GOS 
UB4  :  LX=3  :  LY=158  :  GOSUB108  :  G0SUB3  : 
GOSUB5:GOT033 

64  NC=0:IF  A$=A1$  THEN  10 

65  IF (B$="TREE"ORB$="tree" ) ANDL= 
10ANDO ( 6 ) =2  0THENNC=1 : G0SUB5 : T ( 6 , 

10)  =16:N$="There's  a  cave  down  t 
here . " : LX=1 : LY=128 : GOSUB108 : GOSU 
B2 :GOTO10 

66  IFNC=0THENN$="I  don't  see  any 
thing  spacial . " : G0SUB5 : LX=1 : LY=1 
2  8 : GOSUB108 : G0SUB2 : G0SUB5 : G0T03  3 

ELSEG0SUB5 : G0T03  3 

67  IFO  (4  )  O20THEN  NC=Y:GOT058 

68  IFB$="HAT"OR  B$="hat"THEN  T(l 
,14)=15:T(4, 16)=15:T(2,15)=14:T( 
3,15)=16:WH=l:N$="OK  I'm  wearing 

it.  #%&$!&":LX=1:LY=158:G0SUB5: 
G0SUB4 : GOSUB108 : G0SUB4 : G0SUB3 : GO 
TO10 

69  G0T01 

70  N$="I  can't  move  that!":GOSUB 
4 : LX=3 : LY=158 : G0SUB5 : GOSUB108 : GO 
SUB3 : G0SUB5 : G0T03  3 


71  IFA1$=A$THEN74 

72  IF (B$="BOX"ORB$="box" ) ANDO (1) 
=20ANDO(6)=20THENN$="There  is  an 

amulet  in  the  box,  and  an  inscr 
iption  on  the  lid. " :LX=1:LY=12  8 : 
G0SUB5 : GOSUB108 : G0SUB2 

73  IF (B$="BOX"ORB$="box" ) ANDO (1) 
=20ANDO(6)=20THENN$="It  says:  Th 
e  stone  will  open  on  command  if 
the  amulet  is  in  hand. " : LX=1 : LY= 
128 : G0SUB5 : GOSUB108 : G0SUB3 : GOSUB 
5:GOT033 

74  IFL=4ANDO(6)=20ANDO(8)=4THENO 
( 10 ) =4 : 0 ( 8 ) =0 : T ( 6 , 4 ) =13 : G0SUB6 : N 
$="The  stone  split  and  crumbled. 
" : GOSUB5 : LX=1 : LY=128 : GOSUB108 : N$ 
="there  is  a  big  cave  here.":LX= 
1:LY=138:GOSUB108:GOSUB2 :GOTO10 

75  N$="0pen  what?" : LX=1 : LY=158 : G 
0SUB5 : GOSUB4 : GOSUB108 : G0SUB3 : GOS 
UB5:GOT03  3 

76  IFB$="KEY"ORB$="key"THEN77ELS 
E78 

77  IF(L=50RL=8) ANDO ( 5 ) =20THEN156 

78  N$="Nothing  happened. ": LX=1 : L 
Y=158 : G0SUB5 : G0SUB4 : GOSUB108 : GOS 
UB3 : G0SUB5 : G0T03  3 

79  PM0DE2, 3:PCLSl:PMODE4,l:COLOR 
0,l:N$="I'm  carrying:  ":LX=2:LY= 
108:GOSUB108 

80  F0RD=1  TO  Y 

81  IFO(D)=20THEN  N$=LO$ (D) : LX=2 : 
LY=LY+10 : GOSUB108 

82  NEXT 

83  IF  N$="I'm  carrying:  "THENN$= 
N$+"nothing. " : LX=2 : LY=108 : G0SUB1 
08 

84  GOT03  3 

85  IFL=50RL=8THENN$="The  people 
are  frightened.       They  keep  runn 
ing  from  me . " : LY=118 :G0SUB5 :G0SU 
B92 : G0SUB2 : G0SUB5 : G0T03  3 

86  IFL<>9ORO(3)=20ORZ2=1THEN90 

87  IFZ2=0ANDL=9THENN$="The  old  w 
oman  speaks:  Since  the  witch  of 
the  mountain  took  the  village  ke 
y,no  one  can  enter  or  leave  the 
valley.  How  you  came  here  is  a  m 
ystery.  Return  the  key  and  the  p 
eople  will  be  free  once  more  to 
come  and  go. 

88  LY=98:PMODEl,3:PCLS4:PMODE4:C 
OLOR0, l:GOSUB92 :N$="What  is  in  t 
his  box  may  help. " : LX=2 : LY=LY+10 
: GOSUB108 : G0SUB3 : G0SUB3 : PM0DE1 , 3 
: PCLS4 : PM0DE4 : COLOR0 , 1 

89  O(9)=0:O(1)=20:O(6)=20:O(2)=1 
l:0$(l)="B0X":0S$(l)="box":0$(6) 
= "AMULET" : 0S$ ( 6 ) ="amulet" : Z2=l :N 


$="I  have  the  box. " : LX=1 : LY=158 : 
GOSUB108  :  G0SUB2  :  G0SUB5  :  GOTO10 

90  IFZ2=lTHENN$="There  is  no  one 
to  help  us. " :GOSUB5:LX=l:LY=128 

: GOSUB108 : G0SUB2 : G0SUB5 : G0T03  3 

91  IFZ2=0THENN$="The  old  woman  o 
f  the  woods  has  something  of  val 
ue . " : LY=118 : G0SUB5 : GOSUB92 : GOSUB 
2 :GOSUB5:GOT033 

92  LX=1:LY=LY+10:GOSUB108:FORW=1 
TO 1 50 : NEXT :  RETURN 

93  '**INPUT** 

94  LINE(0,172)-(200,191)  ,  PRESET, 
BF 

95  N$="What  should  we  do?":LX=2: 
LY=178 :GOSUB108 

96  LINE (0 , 182 )- (200 , 191)  , PRESET, 
BF : LX=2 : LY=18  8 : A$=" " 


97  I$=INKEY$:PUT(LX,LY-6) -(LX+4, 
LY+2) ,LC,PSET 

98  IFI$=IIMTHEN97 

99  PUT(LX,LY-6) -(LX+4, LY+2 ), LB, P 
SET 

100  PLAY"T10L10V15O3G" 

101  IFI$=CHR$ ( 13 ) THENRETURN 

102  N1=ASC(I$) 

103  IFLEN (A$) >24THEN  RETURN 

104  IFN1=8  AND  LEN ( A$ ) >0THEN  A$= 
LEFT$ (A$ , LEN (A$) -1)  : LX=LX-8  i GOTO 
97 

105  IFN1>31  AND  NK123THEN  A$=A$ 
+I$ELSE97 

106  Nl=Nl-3  2 : DRAW"BM=LX; ,=LY;C0" 
+W$ (Nl) :LX=LX+8 

107  GOT097 

108  1 **PRINT** 


109  IFLEN (N$) <3  3THENNN$=N$ :G0T01 
14 

110  FORT=32TO0STEP-1: IFMID$ (N$,T 
,1)="  "THEN112 

111  NEXT:G0T0113 

112  NL$=LEFT$ (N$,T) :NN$=NL$:LX=1 
:G0SUB114:N$=RIGHT$(N$, (LEN (N$ ) ) 
-T) :LX=1:LY=LY+10:GOTO109 

113  NN$=N$:LY=LY+10:LX=0:GOSUB11 
4 : RETURN 

114  F0RPT=1T0LEN(NN$) 

115  N1$=MID$(NN$,PT,1) 

116  N1=ASC(N1$) 

117  IFN1>31ANDNK123THEN118ELSEN 
EXT 

118  Nl=Nl-32 

119  DRAW"BM=LX; , =LY;C0 "+W$ (Nl) 

120  LX=LX+8 : NEXT 

121  RETURN 

122  ZZ=0:Z2=0:Z4=0:ZM=0:PMODE1,1 
: PCLS2 : PMODE1 , 3 : PCLS4 : PM0DE4 , 1 : C 
OLOR0, 1:SCREEN1, l:N$=MIF  SCREEN 
IS  RED" : LX=65 : LY=110 : DRAW"C0" : GO 
SUB108:N$="PRESS  RESET  BUTTON" :L 
X=57:LY=120:GOSUB108 :N$="IF  SCRE 
EN  IS  BLUE":LX=60:LY=140:GOSUB10 
8 

123  N$="PRESS  ENTER" :LX=8  2 :LY=15 
0:GOSUB108 

124  J$=INKEY$:IFJ$=""THEN124 

125  PM0DE4 , 1 : PCLS 1 : COLOR0 , 1 : SCRE 
EN1,1: LINE (0,0) -(255,95) ,PSET,B: 
N$="THE" : LX=113 : LY=118 : GOSUB108 : 
N$="RIDDLE" : LX=101 : LY=138 : GOSUB1 
08 : N$="OF" : LX=117 : LY=158 : GOSUB10 
8 :N$="RANDOMAR" : LX=9  3 : LY=17  8 : GOS 
UB108 : GOSUB2 : GOSUB3 : GOSUB7 

126  PMODEl,3:PCLS4:PMODE4,l:COLO 
R0,l:N$="Oh!  Maybe  you  can  hel 
p  me.  This  morning  I  woke  up  in 
this  forest.  I  don't  know  where 
I  am  or  how  I  got  here,  and  I  ke 
ep  going  round  in  circles.  If  yo 
u  will  help,  press  <ENTER>." 

12  7  LY=118 : IFN$=" "THENRETURNELSE 
GOSUB108 

128  IFINKEY$=""THEN128ELSE10 

129  CLEAR700:X=16: Y=ll:DIM  W$(90 
) ,LC(1) ,LB(1) ,V1(43) ,V2(43) ,V3(4 
3) ,L$(X) ,LO$(Y) ,0$(Y) ,OS$(Y) ,C$( 
22) ,C(22) ,0(Y) ,G$(6) ,T$(6) ,TS$(6 
) ,TC$(6) ,T(6,X) :L=2 

130  FOR  R=0TO90:READ  W$(R):NEXT 

131  FORR=l  TO  X : READ  L$(R):NEXT: 
FORR=l  TO  Y : READ  LO$ (R) , 0$ (R) , OS 
$ (R) ,0(R) : NEXT 

132  F0RR=1  TO  X : READ  T(1,R),T(2, 
R) ,T(3,R) ,T(4,R) ,T(5,R) ,T(6,R) :N 
EXT 
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133  T$(1)=HN":T$(2)=MS" :T$(3)="E 
":T$(4)="W"  :T$(5)="U":T$(6)="D" 

134  TC$ ( 1) = "NORTH" : TC$ (2 ) ="SOUTH 
" :TC$ (3) ="EAST" :TC$ (4) ="WEST" :TC 
$  (5) ="UP" :TC$ (6)="DOWN" 

135  TS$ (l)="north" :TS$ (2)="south 
" : TS$ ( 3 ) ="east" : TS$ (4 ) ="west" : TS 
$(5)="up":TS$(6)="down" 

136  F0RR=1T02 2 : READ  C$(R),C(R):N 
EXT 

137  G$(1)="BM16,94C1H4NU4F4NU4E6 
U4H4G6F4E6":G$ (2)="BM90,90C1E2U2 
F2REDLD4RDHLG2U2H2R30" 

138  G$="C1NR4E2ND4F2G2H2" :G$ (3)= 
"BM170 ,  92  "+G$+"BM+6  ,  -4"+G$+"BM+4 
,+4"+G$+"BM+8,-2"+G$+"BM+4,+4"+G 
$+"BM+6, -4"+G$ 

139  G$(4)="BM153,89ClM-6,+3M+6,+ 
2R6M+6 , -2M-6 , -3D2M-3 , -12M-3 , +12F 
R4E" 

140  G$ (5) ="BM84 , 94C1NH2R2E2U2H2L 
2G2L16ULDL2ULDLD2RDRUR2DRUR16BEF 
2RE2H2LG2" :G$ (6) ="BM30 , 94C1R2E2H 
2L2G2F2BU2R2 " 

141  PMODE4,l:PCLS:GET(0,0)-(4,8) 
,LC,G:PCLS1:GET(0,0) -(4,8)  ,  LB,  G 

142  SC$="C4NF18G2  4R6E8F2R4E2R4F6 
R2U4R8" 

143  GOT0122 

144  IFZZ=2THENPCOPY5T01:PCOPY6TO 
2 :GOT0198ELSEGOSUB195:GOSUB197 :D 
RAW "BM,0  ,  48C1R255"  :  F0RZ  =  11T0231ST 
EP20 : LINE ( Z , 0 ) - ( Z+8 , 50 ) , PRESET , B 
F : NEXT :POKE178,20: PAINT (0, 95) , ,1 
:  DRAW"BM0  ,  48C0R255"  :  FORZ=0TO2 55S 
TEP4 :DRAW"BM=Z ; , 95C0NH47 " : NEXT 

145  FORQ=4TO250STEP6:Z=RND(11)+1 
5 : CIRCLE ( Q ,  7 1 )  ,  Z  ,  0  : NEXT : FORZ=l IT 
02  3  1STEP20  :  Q=RND  ( 3  2  )  +55  :  DRAW'CIB 
M=Z  ;  ,0D=Q ;  RU=Q ;  R2ND=Q ;  R4ND=Q ; RND 
=Q ; " : NEXT : FORQ=185T02  55STEP6 : Z=R 
ND ( 10 ) +70 : DRAW" C1BM=Q ; , 0NG=Z ; " : N 
EXT 

146  FORQ=2T0254STEP3:Z=RND(9)+14 
:CIRCLE(Q,Z-1) , Z , 0 : CIRCLE (Q , Z-4 ) 
,  Z-4 , 0 : NEXT : FORQ=0TO2 55 : Z=RND ( 18 
) : DRAW"BM=Q ; , 95C0NH=Z ; " : NEXT 

147  PC0PY1T05:PC0PY2T06:ZZ=2:G0T 
0198 

148  GOSUB144:IFZ4=0THEN198 

149  PM0DE1, 1:FORQ=120TO210:LINE( 
165, 96) -(Q, 191) , PRESET: NEXT: DRAW 
"BM165, 98C4D2BD4D2BD4D2BD4D4BD4D 
4BD4D6BD6D6BD6D6BD6D8BD6D8 " : GOTO 
198 

150  GOSUB144 :GOT0198 

151  IFZM=2THENPCOPY7T01: PC0PY8T0 
2 : G0T0198ELSEPM0DE1 , 1 : PCLS3 : DRAW 
"BM0,75C1F2  8NG2  4E16F12NG20E30F2  8 


NG50E2  4F10NG10E2  6F3  6G30H14NG2  4F1 
4NG24E46F8NG10E12F9" : PAINT (1, 1) , 
2,1: CIRCLE (204 ,44) ,20,4, . 5 : PAINT 
(204,44) ,4, 4: CIRCLE (2 16, 30) ,16,4 
,1.4: PAINT (2 16, 20) ,4,4 

152  FORQ=0TO200STEP4:Z=RND(30)+4 
0 : DRAW"BM=Q ; , 19 1C1NE=Z ; " : NEXT : : F 
ORQ=13  5TO190STEP4 : Z=RND (20) +10 : D 
RAW" BM0 , =Q ; NE=Z ; " : NEXT : FORQ=0TO2 
55STEP2:Z=RND(40)+20:DRAW"BM=Q; , 
191C1NU=Z;":NEXT 

153  FORW=1TO80:Q=RND(255) :Z=RND( 
50)+100:PSET(Q, Z, 1) : NEXT: CIRCLE ( 
50,60) ,14,4, .7:PAINT(50, 60) ,4,4 

154  DRAW"BM86, 69"+SC$ : PAINT (86, 7 
2 ) , 4 , 4 : DRAW"BM174 , 57"+SC$ : PAINT ( 
174,60) ,4,4:DRAW"BM44,87S2"+SC$: 
PAINT (44, 88) , 4 , 4 : DRAW"BM138 , 73"+ 
SC$ : PAINT (138, 74), 4, 4: DRAW"BM2  4  6 
, 72"+SC$ : PAINT (246 , 76) ,4,4: PCOPY 
1T07 : PCOPY2T08 : ZM=2 : GOT0198 

155  GOSUB173 :GOT0198 

156  TT$="08908912514714713310810 
808  908908  90890890891251471761761 
76170147147147147147176176176170 
14712513  314715914  708910812  512512 
514713  310810808908908  9089" 

157  PM0DE1,3:PCLS4:F0RZ=1T03:PM0 
DEI , 1 : C0L0R3 : LINE ( 84 , 104 ) - ( 174 , 1 
40) , PSET, BF : FORQ=90TO165STEP15 : D 
RAW"BM=Q; , 110C1R2D2C4D2L2U2C1U2" 
:  C0L0R2  :  LINE  (Q,  118)  -  (Q+2  , 126)  ,  PS 
ET , BF : G0SUB15  9 : NEXT : DRAW" BM8  7,11 
8C2R10C1R2C2R14C1R2C2R14C1R2C2R1 
4C1R2C2R14C1R2C2R7 " 

158  GOSUB163 : NEXT : GOT0167 

159  ON  Z  GOTO  160,161,162 

160  DRAW"BM=Q; , 127C1ND8BRNF4RNF4 
RF4 " : RETURN 

161  DRAW"BM=Q; , 127C1ND8BR2D8 " : RE 
TURN 

162  DRAW"BM=Q; , 127C1NG4RNG4RNG4B 
RD8" : RETURN 

163  PM0DE4,1:0N  Z  GOT0164 , 165 , 16 
6 

164  GET(84, 52) -(174,70) , VI, G:PMO 
DE4 :N$="The  people  are  comming  o 
Ut . " : LX=1 : LY=108 : GOSUB108 : G0SUB2 
:PM0DE1: RETURN 

165  GET(84,52)-(174,70) ,V2,G:PM0 
DE4 : N$="They  are  dancing  and  sin 
ging . " : LX=1 : LY=128 : GOSUB108 : GOSU 
B2 : RETURN 

166  GET(84,52)-(174,70) ,V3,G:PM0 
DE4:N$="Ilm  a  hero ! ! ! " : LX=1 : LY=1 
4  8 : GOSUB10  8 : G0SUB2 : RETURN 

167  F0RQ=1T0LEN(TT$)  STEP6:NT$=M 
ID$(TT$,Q,6) :N1$=LEFT$ (NT$, 3) :N2 
$=RIGHT$ (NT$, 3) :N1=VAL(N1$) :N2=V 
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AL(N2$) :PUT(84,54)-(174,72) ,V2,P 
SET:S0UNDN1, 1: PUT (86, 52) -(176,70 
) ,V1,PSET 

168  PUT(84,54)-(174,72) ,V2,PSET: 
SOUNDN2, 1: PUT (82, 52) -(172,70) ,V3 
, PSET : NEXT : GOT0167 

169  GOSUB144:PMODE1,1:LINE(28,10 
0) -(98, 150) , PSET, BF: LINE (30, 102) 
-(96,148), PRESET , B : DRAW" BM4 2,134 
C1NE4NF4R42 " : PMODE4 : COLOR0 , 1 : N$= 
"RANDOMAR" : LX=3  4 : LY=60 : GOSUB108 

170  IFZ4=2THEN149 

171  GOT0198 

172  GOSUB151:GOT0198 

173  PMODE1, 1:PCLS3 :DRAW"BM0, 60C1 
E2  8F3  6NF20E44F44NF30E20F32NF16E3 
0F20": PAINT (0,0) , 2,1:DRAW"BM28,3 
2S4"+SC$:PAINT(28,36) , 4,4:DRAW"B 
M108,24S6"+SC$: PAINT (108, 28) ,4,4 
:  DRAWBM172  ,  4  8S3  "+SC$  :  PAINT  ( 172  , 
52 )  , 4 , 4 : DRAW"BM2 3  4 , 50S4 "+SC$ : PAI 
NT(234,52) ,4,4 

174  DRAW"BM140,94C1M18, 191BM140, 
94M205, 191" :DRAW"BM0, 152R42M+30, 
-18U4NL20NU3  6M-30,+18ND4NU54L20N 
D4U54NR50U42M+30,+12D20M-30,-3M+ 
20,+llR30M-20, -6BD10D3  6M-30,+16B 
M0 , 66E6R16BM0 , 150R42M+30 , -18" : PA 
INT(44,90) ,4,1 

175  DRAWBM0  ,  98C1R19E4"  :  LINE  (6,1 
02 ) - ( 12 ,  12  6 )  , PRESET , BF : LINE (30,1 
04) -(34,142) , PRESET, BF: LINE (42,1 
04) -(46,116) , PRESET, BF: PAINT (1,9 
4) , 2, l:POKE178, 53: PAINT (1,100) , , 
1: PAINT (24, 100) , , 1: PAINT (48, 100) 
, ,1:PAINT(24,90) ,1,1 

176  PAINT(30,76)  ,  4  , 1 :  DRAWBM255  , 
150C1L14NU36M-12 , -8NU4  6L20NU30M- 
18 , -12U24BM255 , 90M-18 , +28M-9 , -3L 
18M-12,-18NR30M-12,+16BM2  55,90M- 
24, +6 ": PAINT (2 40, 98) , 2, 1: PAINT (2 
10,98) ,2, l:POKE178, 53 : PAINT (2 10, 
140) , ,1:PAINT(250,140) , ,1:PAINT( 
230,140) , ,1 

177  PAINT(200, 130) , , 1 : LINE ( 198 , 1 
14) -(200, 122) , PRESET, BF: LINE (216 
, 118) -(222, 140) , PRESET, BF: LINE (2 
50, 116) -(255, 126) , PRESET , BF : FORQ 
=70TO126STEP4 : Z=RND ( 6) +4 : CIRCLE ( 
Q,  94)  , Z , 1:NEXT: FORQ=146T0186STEP 
4:Z=RND(6)+4:CIRCLE(Q,94) , Z, 1:NE 
XT 

178  FORQ=0TO255STEP4:Z=RND(40) :D 
RAW"BM=Q ; , 19 1C1NH=Z ;NE=Z ; " : NEXT : 
DRAW"BM140,94M80, 19 1BM140 , 94M150 
, 191" : FORW=1TO100 : Q=RND ( 100 ) +80 : 
Z=RND(100)+90:PSET(Q,Z, 1) :NEXT:F 
ORQ=0TO255STEP3:Z=RND(10) :DRAW"B 
M=Q; , 191U=Z;" : NEXT : GOT0198 


179  GOSUB144:IFZ2=1ORO(9)=0THEN1 
98ELSEPMODE1 , 1 : LINE (150 , 100) - ( 15 
5,165)  ,  PRESET,  BF :  DRAWBM156, 165C 
1NU3  8RNU3  5RNU3  3RNU3 1RNU2  9RNU20RN 
U17RNU14RNU11RNU8RNU5RNU3RNURBM1 
49, 155NU33U4LNU20U4LNU15U4LNU5" 

180  DRAW"BM150,165C4M-3,-22M+4,- 
14U6NG8UG9ND33LE10U5E2M-7,-10M+7 
, -4E3F3D5F2D5M-3 , +11M+4 , +9M+1 , +8 
M+8,+22G2L16H2" :GOT0198 

181  GOSUB144:IFO(6)<>20THEN182EL 
SEPMODE1 , 1 : COLOR0 , 1 : FORQ=100TO12 
0STEP3 :DRAW"BM=Q; , 90C1NU20" : NEXT 
: DRAW"BM90 , 90C4ND80BR4ND80BR4ND8 
0BR4ND80NU20BR4ND80BR4ND80BR4ND8 
0NU10BR4D80" : FORQ=1TO10 : CIRCLE (1 
05,150) ,Q, 1,2. 5: CIRCLE (105, 154) , 
Q ,  1 , 2 . 5 : NEXT 

182  IFZ4=2THEN149 

183  GOT0198 

184  GOSUB151:GOT0198 

185  GOSUB151:GOT0198 

186  GOSUB188:GOSUB196:GOT0198 

187  G0SUB18  8:IFWH=1THENG0SUB196: 
GOT0198ELSE198 

188  PM0DE1,1:PCLS3:Q1=8:Q2=2:F0R 
Q=0TO21:PP=RND(255) : POKE178 , PP: C 
IRCLE(180-Q2, 120-Q2) ,Q1, ,1:Q2=Q2 
+l:Ql=Ql+Q2/2 : NEXT : F1$="C1E3U2EU 
4EU2EU8EU8E" :F2$="FD10FD6DFD3F2D 
2F3" : F3$="GL2HL2GLGLGL3H" 

189  DRAW"BM5,76S14A0C1"+F2$+"R10 
E4R6F6R6S8"+F1$+F2$+"E2R8F4R8E2R 
6S10"+F1$+"A2S13"+F2$+"A0GL2HS10 
A2"+F1$+F2$+"S6GLHA2"+F1$+F2$ 

190  DRAW"A0G2L6H4L4G4LH2L4GL8HL2 
G8L2H8L3  4S12A2 "+F1$ : PAINT (4 , 4 ) , 1 
,1:PAINT(170,186) ,1,1 

191  DRAW"BM48, 168S10A0"+F1$+F2$+ 
F3$:GOSUB193: PAINT (58, 162) , , 1 : DR 
AW"BM4 , 160S16A0"+F1$+F2$+F3  $ : GOS 
UB193: PAINT (20, 150) , ,1:DRAW"BM80 
, 10A2S8"+F1$+F2$+F3$:GOSUB193 : PA 
INT (70, 30) , , 1:DRAW"BM100, 180A0S1 
4 "+F1$+F2  $+F3  $ : GOSUB19  3 : PAINT ( 12 
6,170), ,1 

192  DRAWBM114,  3 6S10A2 "+F1$+F2 $+ 
F3$:GOSUB193: PAINT (100, 52) , ,1:DR 
AW"BM200,180S12A0"+F1$+F2$+F3$:G 
OSUB193:PAINT(216,170) , ,1:IFWH=1 
THENGOSUB196:GOT0198ELSE198 

193  POKE178, RND( 255 ): RETURN 

194  G0SUB188:IFWH=1THENG0SUB19  6: 
GOT0198ELSE198 

195  PMODE1, l:PCLS6:PMODE4: RETURN 

196  PMODE1,1:FORQ=0TO12STEP2:CIR 
CLE (174, 114) ,Q,1,1:NEXT: RETURN 

197  PMODE0,2:PCLS0:PMODE4:RETURN 

198  PMODE4 , 1 : COLOR0 , 1 : SCREEN1 , 1 : 
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DRAWA0S4" : RETURN 

199  DATA  ,BR2UBU2U3,BRBU6D2BR2U2 
, BRU6BR2D6BRBU2L4BU2R4 , BUR3EHL2H 
ER3  BUBL2D6 , UE4UBL3  DLUBR4  BD6LUR , B 
R4BU2G2LHUE3HGD2F3 , BU6BR2DG, BR3H 
2U2E2 , BRE2U2H2 , BU3E2F2G2H2R4 , BU3 
R4L2NU2D2 , BRNUG , BU3R4 , BR2U , UE4U 

200  DATA  BUU4ER2FNG3D4GL2 , BRR2LU 
6G , NR4U2ER2  EUHL2  G , BUFR2  EUHNLEUHL 
2G, BR3U6G3DR4 , BUFR2EU2HL3U2R4 , BR 
4BU5HL2GD4FR2EUHL2 ,UE4UL4 , BU2DFR 
2EUHL2HUER2FD, BUFR2EU4HL2GDFR2 , B 
R2UBU2U, BRNGUBU2U, BR3H3E3 , BU2R4B 
U2L4,BRE3H3 

201  DATA  BR2UBU2E2HL2G, BR4BUGL2H 
U4ER2FDGLHEF , U4E2F2D2NL4D2 , NR3U6 
R3  FDGNL3  FDG , BUNFU4ER2  FBD4GL2 , NR2 
U6R2F2D2G2 , NR4U3NR3U3R4 , U3NR3U3R 
4 , BUNFU4ER2FBD3NLDNDGL2 ,U6BR4D3N 
L4D3 , BRNR2RU6NLR, BUFR2EU5 , U6D3RN 
E3F3 

202  DATA  NU6R4,U6F2E2D6,U6F4NU4D 
2 , BUNFU4ER2FD4GL2 ,U6R3FDGL3 , BUNF 
U4ER2FD3GNHNFGL,U6R3FDGL2F3 , BUFR 
2EUHL2HUER2F, BR2U6NL2R2 , BUNU5FR2 
EU5,BU6D4F2E2U4,NU6E2F2U6,UE4UBL 
4DF4D,BR2U3H2UBR4DG2,NR4UE4UL4 

203  DATA  BR3L2U6R2,BR4UH4U,BRR2U 
6L2 , BR2U6NG2F2 , BU3NE2NF2R4 , , BRNR 
3HER3NDUHL2 , NU6R3EU2HL2 , BRNR3HU2 
ER3 , BR4NU6L3HU2ER2 , BRNR3HU2ER2FD 
L3 , BR2U4NLNRUE , BR3L2HU2ER3D5GL2 , 
U2NU4E2RFD3 , BR2U3BU2U, BR2DGEU4BU 
2U,U2NU4R2NE2F2 , BR3LU6 

204  DATA  U4RFNDEFD3 ,U4DRERFD3 , BU 
U2ER2FD2GL2 , ND2U4R3FD2GL2 , BR3L2H 
U2ER3D6 .U4DRER2 .R3EHL2HER2 . BR3LU 


5NLNRU, BU4D3FRE2D2U4 , BU4D2F2E2U2 
, BU4D3FENUFEU3 , E4BD4H4 , BU4D2F2E2 
U2D2G2DGL, NR4E4L4 

205  DATA  in  a  forest., in  a  fores 
t.,in  a  wooded  canyon., in  the  mo 
untains.,in  the  village  of  Rando 
mar., in  a  forest., in  the  mountai 
ns.,in  the  village  of  Randomar. , 
in  a  forest. 

206  DATA  in  a  forest., in  the  mou 
ntains.,in  the  mountains. , in  a  c 
ave . , in  a  cave . , in  a  cave . , in  a 
cave. 

207  DATA "a  small  wooden  box.",*, 
*,0,"the  witch's  wand. 11 ,  "WAND"  ,  " 
wand" ,0 , "some  gold  coins .", "GOLD 
", "gold", 2, "the  witch's  hat.","H 
AT", "hat", 14, "the  village  key!", 
"KEY" , "key" , 15 , "the  amulet .",*,* 

208  DATA  "a  big  hollow  tree.",*, 
*,10,"a  huge  stone  blocks  my  way 
",*,*, 4, "an  old  woman. ",*,*, 9 , "t 
he  entrance  to  a  cave. " , * , * ,0 , "a 

road  sign. ",*,*, 6 

209  DATA  9, ,2, , , ,10,6,3,1, , , , ,4, 
2/#///f3,,,,,6,8,,,2, 10 ,7,5, , , ,1 
1  /  ; 6 , , , , 12 /5,,,,,1, 10 ,,,,6, 2,, 9, 

12, ,,,8,,, 11,, ,,,14, ,4,,,,, 
13,,,,,,,,,,,,, 10 , 0 

210  DATA  TAKE, 1, Take, 1, GET, 1, Get 
, 1 , DROP , 2 , Drop , 2 , GO , 3 , Go , 3 , LOOK , 
4 , Look , 4 , WEAR , 5 , Wear , 5 , MOVE , 6 , Mo 
ve , 6 , OPEN , 7 , Open , 7 , SHOW , 8 , Show , 8 
, LIST , 9 , List , 9 , HELP, 10 , Help , 10 


ICE  PRINCESS 


  Program  by  David  Taylor 

rj^  

he  North  Pole.  A  nature  lover's  dream,  right? 
JL.  A  vast  expanse  of  snow-white  landscape, 
stretching  as  far  as  the  eye  can  see  and  unspoiled 
by  modern,  or  even  outdated,  technology. 
Where  the  seals  and  penguins  roam  in  peaceful 
bliss,  fearing  only  an  occasional  polar  bear. 

Of  course,  everybody  knows  that  the  North 
Pole  is  where  Santa  Claus  and  the  elves  work 
feverishly  all  year  long  in  their  merry  workshop 
to  produce  toys  for  all  good  little  girls  and 
boys  on  Christmas. 

The  country  also  happens  to  be  the  home 
of  the  beautiful  Ice  Princess,  whose  beauty  is 
legend  among  the  few  persons  who  have 
explored  the  area.  Just  one  glimpse  into  the 
eyes  of  the  Ice  Princess  is  all  that  is  needed 
to  instill  her  image  in  a  man's  heart  and  dreams 
forever. 

You've  never  been  to  the  North  Pole,  never 
even  imagined  yourself  going.  Until  one 
evening,  her  vision  appears  to  you  in  a  dream. 
—      You  are  hypnotized  by  this  stunning  beauty 
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and  are  fascinated  with  the  possibility  of  taking  her  for  you  wife.  You,  who 
many  years  ago,  vowed  to  remain  a  bachelor.  She  is  so  beautiful  that,  in 
your  dream,  you  propose  to  her.  And  she  agrees,  to  your  surprise. 

You  return  home,  in  your  dream,  to  prepare  for  the  wedding.  Your  folks 
are  happy  that  you  finally  have  found  a  lifetime  companion. 

The  next  morning  you  awake  in  a  daze,  not  wanting  to  believe  that  the 
vision  was  merely  a  dream.  You  call  in  sick  to  work,  planning  on  more  sleep 
and  are  fascinated  with  the  possibility  of  taking  her  for  your  wife.  You,  who 
because  you  are  unable  to  sleep  thinking  about  her. 

That  evening,  however,  you  are  almost  reunited  in  dreamland.  You  see 
her  in  a  mist  walking  slowly  toward  you.  Just  as  you  are  about  to  reach 
out  for  her,  the  Ice  Princess  is  captured  by  an  evil  sorcerer. 

"This  is  not  a  dream,"  she  cries,  as  she  is  carried  away  to  the  sorcerer's 
castle.  "You  must  save  me!  We  must  be  together  again!" 

Your  eyes  open  suddenly,  searching  the  darkness  of  the  bedroom  for  any 
evidence  of  the  experience.  You  find  nothing,  but  you  prepare  yourself  for 
the  inevitable:  You've  got  to  save  the  Ice  Princess! 

The  Adventure  consists  of  two  listings.  The  first  contains  a  title  screen 
and  complete  instructions.  You  may  need  to  type  RUN  twice  since  a  PCLEAR1 
is  used  in  the  listing.  If  you  wish  to  receive  a  printout  of  commands,  simply 
indicate  so  when  you  are  prompted  (see  lines  410  and  420  if  you  wish  to 
change  the  printer  pokes).  When  you  have  read  the  instructions,  type  RUN 
again  and  the  second  listing  will  load. 

The  program  has  three  parts  (not  to  be  confused  with  listings).  When  you 
safely  make  it  through  one  level,  you  will  advance  to  the  next  part. 

Your  goal  is  to  rescue  the  Ice  Princess.  To  do  this,  you  must  collect  all 
the  portions  of  a  broken  message  to  decipher  the  magic  word  that  will  help 
you  save  her. 

Hurry,  now.  She  is  waiting  for  you. 


(David  Taylor,  of  Langley,  British  Columbia,  is  a  student  majoring  in 
computer  science  at  Simon  Fraser  University.) 
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r  ICETITLE 


32K  ECB 


2  1  THE  ICE  PRINCESS 

3  •  **************** 

4  •   BY  D.TAYLOR 

5  1  LANGLEY, B.C. 

6  1  CANADA 
10  PMODE0,1 

20  PCLEAR1 

30  CLS0:PRINT@41, "the  ice  prince 
ss" ; :POKE1024+40,42 : POKE1024+44 , 
32:POKE1024+48,32:POKE1024+57,42 
4 0  PRINT @  1 4  4  ,  "  BY  "  ;  :  PRINT @  2  6 9  ,  "  D . 
TAYLOR" ; 

5J3  MP=(  (PEEK(186)  *256) +PEEK(187) 
)+768 

60  DEFUSR0=MP 

70  DEFUSRl=MP+64 

80  POKE  MP+31,4:POKE  MP+32,0 

90  POKE  MP+35,6:POKE  MP+3  6,0 

100  FORX=0TO30 

110  READ  DT : POKE  MP+X,DT 

120  NEXT 

130  FORX=0TO7  6 

140  READ  DT : POKE  MP+X+64,DT 

150  NEXT 

160  MP=MP-768 

170  FORX=MP  TO  MP+511:READ  DT:PO 
KE  X , DT : NEXT 
180  SCREEN0,1 

190  FORX=MP+512  TO  MP+512+177 : RE 

AD  DT : POKE  X, DT : NEXT 

200  SCREEN0,0 

210  A=USR(0) 

2  20  FORXX=1TO1000:NEXT 

2  30  A=USR1(0) 

2  40  CN=0 
250  CLS 

260  GOSUB660 

270  READ  XX$:IFXX$o"XXX"THENPRI 

NTXX$;ELSE290 

280  GOTO270 

290  POKE135,0 

300  IFINKEY$=""THEN300 

310  CN=CN+1 

320  IFCNO6THEN250 

3  30  CLS:GOSUB660 

340  PRINT@64 , "WOULD  YOU  LIKE  A  P 
RINT-OUT  OF       THE  LIST  OF  VERBS 
(Y/N) ?" 

350  I$=INKEY$:IFI$="Y"THEN360ELS 
EIFI$="N"THEN620ELSE3  50 
3  60  CLS:GOSUB660 

370  PRINT@64 , "SET  UP  YOUR  PRINTE 
R.": PRINT: PRINT "DO  YOU  NEED  A  LI 
NE-FEED" : PRINT "CHARACTER  FOR  YOU 
R  PRINTER (Y/N) ?" 


380  YS=0 

390  I$=INKEY$:IFI$="Y"THEN  YS=1E 

LSEIFI$="N"THEN400ELSE390 

400  PRINT" PRESS    [ENTER]   WHEN  REA 

DY-" ; : INPUTXX$ 

410   'THE  NEXT  LINE  SETS  THE  BAUD 
-RATE  AND  LINE-LENGTH : YOU 
CAN  SET  YOUR  OWN  LIMITS  IF 
NEEDED: REMOVE  <'>  AND  POKE 
WHATEVER  VALUES  YOU  NEED  TO 
HAVE  YOUR  PRINTER  WORK  , 
CORRECTLY 

420   lPOKE149,0:POKE150/ 180:POKE1 

55,84 

430  ZX=32 

440  SP$=" 
it 

450  IF  YS=1THEN  ZX=10 

460  PRINT#-2,SP$+"     THE  ICE  PRIN 

CESS"+CHR$(ZX) 

470  PRINT#-2,SP$+"  ************ 
****»+CHR$ (ZX) :PRINT#-2,CHR$ (ZX) 
480  PRINT#-2,SP$+"LOOK 

PACK"+CHR$ (ZX) 
490  PRINT#-2,SP$+"REMOVE 

WEAR"+CHR$(ZX) 
500  PRINT#-2,SP$+"LOAD 

GET"+CHR$ (ZX) 
510  PRINT#-2,SP$+"SHOOT 

READ"+CHR$ (ZX) 
520  PRINT#-2,SP$+"PICK 

THROW"+CHR$ (ZX) 
530  PRINT#-2,SP$+"DROP 

PUT"+CHR$ (ZX) 
540  PRINT#-2,SP$+"ASK 

JUMP"+CHR$(ZX) 
550  PRINT#-2,SP$+"TURN 

POINT"+CHR$(ZX) 
560  PRINT#-2,SP$+"INSERT 

SAY"+CHR$(ZX) 
570  PRINT#-2,SP$+"QUIT 

SAVE"+CHR$ (ZX) 
580  PRINT#-2 ,MID$ (SP$ , 1, 29) +»I-I 
NVENTORY       L-LIST  VERBS "+CHR$ (ZX 
) 

590  PRINT#-2,SP$+"  N"+C 
HR$ (ZX) 

600  PRINT#-2,SP$+"  W  E" 

+CHR$(ZX) 

610  PRINT#-2,SP$+"  S"+C 
HR$(ZX) 

620  CLS:GOSUB660 

630  PRINT@64,"THE  ADVENTURE  WILL 
NOW  BE  LOADEDINTO  THE  COMPUTER. 

": PRINT: PRINT: PRINT"  WHEN  DONE 
-  TYPE   [RUN]  AND": PRINT"  HUR 

RY  TO  RESCUE  THE  POOR": PRINT" 
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ICE  PRINCESS ! " 
640  CLOAD"ICEPRINC" 
650  END 

660  PRINT@8 , "the  ice  princess  " ; 
:  POKE1031 ,  42  :  POKE103  5 ,  32  :  POKE103 
9, 32 :POKE1048, 42: PRINT: RETURN 
670  DATA174, 141, 0,27, 204, 2, 0,227 
,141,0,20,237,141,0,18,16,174,14 
1,0,15,236,161,237,129,172,141,0 
,5,38,246,57 

680  DATA174 ,141,0,67,204,0,177,2 

27,141,0,60,237,141,0,58,48,13  6, 

27,16,174,141,0,52,4  8,13  6,22  9,3  2 

, 18,2  3  6, 128,2  37, 160, 172, 141,0, 3  7 

,39,32,16,140,5,222,38,240,32,22 

8,204,0,0,52,6,173,159,160,0,53, 

6, 38, 11, 195, 0,1, 16, 13 1,1, 0,38, 23 

7,32,214,57,8,0,4,2,5,193 

690  DATA174,172,172,172,172,172, 

172 , 172 , 172 , 172 , 172 ,172,172, 172 , 

172,172,172,172,172,172,172,172, 

172,172,172,172,172,172,172,172, 

172,173 

700  DATA170,128,192,192,128,128, 
128,128,42,20,8,5,32,9,3,5,32,16 
,18,9,14,3,5,19,19,42,128,128,12 
8,128,128,165 

710  DATA170,192,128,128,128,192, 
192,128,12  8,128,128,192,192,192, 
192,192,192,192,192,192,192,192, 
192,192,192,192,128,192,192,128, 
128,165 

720  DATA170,176,128,128,192,205, 
199,199,199, 199,200, 192, 192,192, 
192,128,192,12  8,128,12  8,128,192, 
196,203,203,203,203,206,192,192, 
192,165 

730  DATA170, 128, 128, 128, 128, 197 , 
198,192,198,197,192,192,192,192, 
192,192,192,192,192,192,192,192, 
192,202,201,192,201,202,128,128, 
128,165 

740  DATA170,128,128,128,128,197, 
192,198,192,199,192,192,205,199, 
199, 199,199, 199,199, 199, 200, 128, 
192,203,192,201,192,202,128,128, 
128, 165 

750  DATA170,192,128,128,192,197, 
198,192,198,197,199,199,199,207, 
195,203,195,203,199,207,195,195, 
195,202,201,192,201,202,128,128, 
192,165 

760  DATA170,192,176,128,128,197, 
192,198,192,199,19  5,203,199,207, 
179,179,176,179,179,207,203,199, 
195,203,192,201,192,202,12  8,12  8, 
128, 165 

770  DATA170, 128, 128, 128, 128, 197, 
198,192,198,197,203,195,207,183, 


191,183,176,191,190,187,207,195, 
199,202,201,192,201,202,128,128, 
128, 165 

780  DATA170, 128, 128, 128, 128, 197, 
192,198,192,199,195,203,199,187, 
191,191,176,190,191,191,203,199, 
195,203,192,201,192,202,128,128, 
128, 165 

790  DATA170,128,128,128,128,197, 
198,192,198,197,203,195,207,191, 
191,183,159,191,191,191,207,195, 
199,202,201,192,201,202, 128, 128, 
128, 165 

800  DATA170,128,128,128,128,197, 
192,198,192,199,195,203,199,191, 
191,191,176, 190, 191,191,203, 199, 
195,203 , 192, 201, 192 , 202 , 128, 128, 
128,165 

810  DATA170,128,128,128,128,197, 
198, 192, 198, 197,203, 195,207,191, 
189, 191, 17  6, 191, 191, 18  3,207, 195, 
199,202,201, 192,201,202,128,128, 
128, 165 

820  DATA170, 128, 128, 128, 128, 197, 
195, 199, 195, 199, 195,203, 199, 191, 
191,191,176,191,183,191,203,199, 
195,203,195,203,195,202,128,128, 
128,165 


830  DATA170,32,32,32,32,32,32,32 
,32,32,32,32,32,32,32,32,32,32,3 
2,32,32,32,32,32,32,32,32,32,32, 
32,32,165 

840  DATA171,163,163,163,163,163, 
163,163,163,163,163,163,163,16  3, 
163,163,163,163,163,163,163,163, 
163,163,163,163,163,163,163,163, 
163,167 

850  DATA32,32,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32,32,32,32 
,32,32,32,32,32,32,32,32,32,32,3 
2,3,1 


860  DATA14,32, 25,15, 21,32,18,5,1 

9,3,21,5,32,20,8,5,32,2,5,1,21,2 

0,9,6,21,12,32,9,3,5,32,16 

870  DATA18,9,14,3,5,19,19,32,6,1 

8,15,13,32,20,8,5,32,19,16,5,12, 

12,3  2,15,6,32,20,8,5,32,5,22 

880  DATA9,12,32,19,15,18,3,5,18, 

5,19,19,32,1,14,4,32,5,19,3,1,16 

,5,32,6,18,15,13,32,20,8,5 

890  DATA32,9,3,5,32,3,1,19,20,12 

,5,32,1,12,9,22,5,63,63,32,32,32 

,32, 32, 32, 32, 32, 32, 32, 32, 32, 32 

900  DATA32,32,32,32,32,32,32,32, 

32,32,32,32,32,32,32,32,32,32 

910  DATA"     YOU  HAVE  VOLUNTEERED 

TO  GO  TO  " , "THE  NORTH  POLE  TO  RE 

SCUE  THE  ICE", "PRINCESS  FROM  AN 

EVIL  SORCERESS1", "ICE  CASTLE.  TH 

E  SORCERESS, HOW-     "," EVER, HAS  CA 

ST  A  SPELL  UPON  THE     ","ICE  PRIN 

CESS, TURNING  HER  INTO  " , "A  STATU 

E  OF  ICE.  " 

920  DATA"     IT  IS  UP  TO  YOU  TO  MA 

KE  YOUR     " , "WAY  INTO  THE  ICE  CAS 

TLE  AND  "/'DESTROY  THE  EVIL 

SORCERESS-TO       ", "BREAK  THE  SPEL 

L, AND  ESCAPE  FROM  " , "THE  ICE  CAS 

TLE  WITH  THE  ICE  ", "PRINCESS 

ii 

930  DATA"  FOR  YOUR  GALLANT  TRIU 
MPH  YOU  " , "WILL  BE  GREATLY  REWA 
RDED. " 

940  DATA" XXX" 
9  50  DATA" 

","     THIS  ADVENTURE  IS 

BASICALLY  A  " , "TWO  WORD  ADVENTUR 

E.SOME  COMMANDS" , "CAN, HOWEVER, HA 

VE  ONLY  ONE  VERB,    ", "WHILE  OTHER 

S  CAN  HAVE  A  THIRD       ", "PROMPT. ( 

THERE  ARE  ALSO  COMBIN-     " , "AT I ON 

S  OF  THESE) .  " 

960  DATA"     YOU  ARE  REQUIRED  TO  M 

OVE  FROM  "/'LOCATION  TO  LOCATION 

, USING  THE     "/'DIRECTION  KEYS  (N 

S  E  W) , COLLECT-" , "ING  ITEMS, AND 

PERFORMING  VARIOUS" , "TASKS  TO  GE 

T  PAST  OBSTACLES. (YOU", "SHOULD  A 

LWAYS  <LOOK>  AT  EVERY-  " 

970  DATA "THING) . 
•• 

980  DATA" XXX" 
990  DATA" 

","  THERE  ARE  THREE  PA 
RTS  TO  THE  "," GAME, WITH  NO  RETU 
RN  TO  THE  LAST  11 ,  "PART,  SO  YOU  SH 
OULD  TRY  TO  "/'COLLECT  ANY 

THING  THAT  YOU  MAY       " , "NEED  LAT 
ER  IN  THE  GAME.  " 
1000  DATA" 


","     YOU  CAN  HAVE: 
it  •• 

"/'EIGHT  EXTRA  I 
TEMS  IN  YOUR  BACK-  "/'PACK; WEAR 
ONE  ITEM  ON  YOUR  FEET; "/'AND  HOL 
D  TWO  ITEMS .  "  ,  "  TH 

ESE  ITEMS  WILL  BE  DISPLAYED  " 
1010  DATA "AS  YOUR  INVENTORY." 
1020  DATA "XXX" 
1030  DATA" 

" , "     WHEN  THE  GAME  BEG 
INS, YOU  WILL  ","BE  ASKED  IF  YOU 
WOULD  LIKE  TO       "/'LOAD  IN  A  PRE 
VIOUS  GAME-ANSWER     " ,"Y  OR  N.IF 
YES, THEN  THE  PROGRAM     "/'WILL  GO 

TO  A  LOADING  ROUTINE.  " 
1040  DATA" 

","     THE  LOAD  AND  SAVE 
ROUTINES  ARE" /'SIMILAR  AS  THERE 
ARE  THREE  FUNC-" , "TIONS  THAT  CA 
N  BE  PERFORMED:  ","         TURN  T 

HE  MOTOR  ON/OFF ,  " , "  CHA 

NGE  THE  NAME  OF  THE  FILE,"," 
OR  LOAD/SAVE  THE  FILE." 
1050  DATA "XXX" 

1060  DATA"     PRESS  THE  DESIRED  LE 

TTER  AND     "/'THE  FUNCTION  WILL  B 

E  CARRIED  "/'OUT. 

" , "     THE  MOTOR  0 

N/OFF  IS  JUST  A         "/'TOGGLE  SWI 

TCH: FIRST  PRESS-ON,  "/'SECOND 

PRESS-OFF. THE  FILE  NAME  " 

1070  DATA" FUNCTION  WILL  ASK  FOR 

THE  NEW       "/'NAME  OF  THE  FILE ,  RA 

THER  THAN  THE" , "DEFAULT  NAME  <PR 

DATA> .  THE  LOAD/  "/'SAVE  WILL  DO 

THE  DESIRED  FUNC-  ","TION. 

•i 

1080  DATA"  AFTER  THE  LOAD  FUNCT 
ION, THE  "/'GAME  WILL  BEGIN. (TH 
E  SAVE  FUNC-  " , "TION  WILL  RETURN 

TO  WHEREVER  YOU" , "WERE) . " 
1090  DATA"XXX" 
1100  DATA" 

ii  ii 

","     FOR  A  LISTING 

OF  THE  VERBS,        "/'PRESS  <L>,(PR 

ESS  THE  SPACEBAR  TO" , "CONTINUE) . 

ii  ii 

" , "NOTE 

:   COMMANDS  MAY  BE  SHORTENED  " 
1200  DATA"  TO  3 -CHAR.  VERB; 

","  5 -CHAR.  OBJEC 

T.  ","  EX.  'SHOO 

T  POLAR  BEAR'  ","  'S 
HO  POLAR'  "," 

ii  m 

GOOD  LUCK!  '  " 

1300  DATA "XXX" 
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H  PRINCESS 


2    1  THE  ICE  PRINCESS 

4    i  **************** 

6   •   BY  D.TAYLOR 

8    1  LANGLEY , B . C . 

10   •  CANADA 

12  PMODE0 , 1 

14  PCLEAR1 

16  CLEAR800 

18  CLS0 : PRINT @ 41, "the  ice  prince 

ss"  ; :  POKE1064 ,  42  :  POKE1068 ,  32:  POK 

E1072 ,  32 : POKE1081 , 42 : PRINT@144 , " 

BY"; : PRINT@269 , "D. TAYLOR" ; 

20  X=RND( -TIMER) 

22  LV=43:LI=20:LR=81 

24  DIM  RM(LR, 4) , L$ (LR+1) ,  VS (LV) , 

VS$(LV) ,IN$(LI) 

2  6  R=l 

28  DC=0 :  DH=0 :  P2=0 :  IT=0  :  LN=1 :  IS=0 
:  DP=0 :  DL=0 :  DS=0 :  CD=0 :  KY=0 :  SY=0 :  S 
T=0 : gg=0 : PT=0 : AB=0 : ES=0 : SL=0 : WR= 

30  FORX-1TO  LR: F0RY=1T04 : READ  RM 
(X,Y) :NEXTY,X 
32  SCREEN0,1 

34  F0RX=1T0  LR-8 :READ  L$(X):NEXT 
X 

36  FORX=lTO  LV : READ  VS$(X):NEXTX 
38  FORX=lTO  LI : READ  IN$(X):NEXTX 
40  FORX-1TO  LV : READ  VS(X):NEXTX 
42  FORX=74T081:L$(X)="IN  A  SNOWS 
TORM" : NEXT 

44  L$(82)="CREVASSE" 
46  SCREEN0 ,0 
48  CLS:GOSUB76 

50  PRINT@64,"DO  YOU  WISH  TO  LOAD 

IN  A  PREVIOUS  GAME?" 

52  I$=INKEY$:IFI$=""THEN52 
54  IFI$="Y"THEN602 
56  IFES=0ANDVS(16)=71ANDM=4THEN5 
68ELSEIFST=1ANDR<>63THENST=2 : GOT 
O56ELSEIFR=51ANDAB=0ANDVS (40)  <>0 
THENAB=1 : GOT056ELSEIFR=56THEN58E 
LSEIFR>81THEN552ELSEIFGG=1THENG0 
SUB542:G0T058ELSEIF(P2=1ANDVS (34 
)  O-IANDVS  (34)  OR)  THENGOSUB54 2  :  G 
OT0562 

58  IFGG=1THENIFR<>68THENCLS0 :  GOS 
UB76 : PRINT664 , "THE  GOGGLES  ARE  T 
00  DARK  TO  SEE  ANYTHING .": GOTO10 
2 

60  IFGG=0ANDR=68THENCLS5:FORXX=1 
T01W  '•  NEXT :  CLS0  :  G0SUB7  6  :  F0RXX=1 
TO1000:NEXT:PRINT@64, "  THE  BRI 
GHTNESS  BLINDED  YOU . " : F0RXX=1T02 
000 : NEXT : PRINT@192, "       SOMEONE  J 


UST  ATTACKED  YOU" : PRINT@233 , "FRO 
M  BEHIND! !"; : S0UND16 , 8 : GOTO560 
62  CLS 

64  IFAB=1ANDR=42THENAB=0 : VS  (4)3)  = 
0 : GOSUB76 : PRINT@2  56 , "THE  ABOMINA 
BLE  SNOWBEAST  FELL  DOWN  THE  CR 
EVASSE.YOU  ARE  SAFE ! " : F0RXX=1T02 
000: NEXT 

66  IFR=33ANDP2=0THENGOSUB570:P2= 
l:G0T056 

68  IFR=56ANDVS(39)=55THENGOSUB57 
0:P2=3 :VS (39)=56:CLS:PRINT@256, " 
THE  DOOR  SLAMED  SHUT . " : S0UND8 , 8 : 
KY=0 : CD=0 : IFVS ( 34 ) =-lTHENPRINT"T 
HE  LANTERN  BLEW  OUT  FROM  THE  D 
RAFT, BUT  THERE  IS  LIGHTING  IN  T 
HE  UPPER  LEVELS  OF  THE  ICE  C 
ASTLE  ANYWAY .": LN=0 
70  IFAB=1THENVS(40)=R:IFVS(40)<> 
51THENPRINT@256, "THE  ABOMINABLE 
SNOWBEAST  IS  FOLLOWING  YOU." 


72  SOUND64,l 

74  GOSUB76:GOT078 

76  PRINT@8 , "the  ice  princess" ;: P 

OKE1035,32:POKE1039,32:POKE1031, 

4  2 : POKE 1048,42: RETURN 

78  PRINT@32 , "location" ; : POKE1064 

, 32 :POKE1065, 58 

80  PRINT@96 , "direction" ; : P0KE112 
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9,32: POKE1130 , 58 : FORX=107TO118 : P 

OKE1024+X,32:NEXT 

82  PRINT@128 , "visible" ; : POKE1159 

,32:POKE1160,58 

84  PRINT@139:PRINT@160:PRINT§192 
86  PRINT@42,L$(R) 

88  T=1:TT=-11:F0RX=1T0LV: IFVS (X) 
OR  THENNEXTX: G0T092ELSEIFT=1THE 
NTT=TT+11 : T=2ELSEIFT=2THENTT=TT+ 
11 : T=3ELSEIFT=3THENTT=TT+10 : T=l 
90  PRINTS 13 9+TT, VS $ (X) ;: NEXT 
92  GOSUB542 

94  IF  RM(R,  1)  <>0THENPRINT@107 ,  "n 

ti  • 

r 

96  IF  RM(R,2)O0THENPRINT@110,"s 
ii . 

98  IF  RM(R,3)O0THENPRINT@113,"e 
ii  • 

100  IF  RM  (R,  4 )  <>0THENPRINT@116  ,  " 
w"; 

1)32  IFAB=1AND(R=440RR=530RR=54)T 

HEN540ELSESOUND128 , 1 : 11$=" " : PRIN 

T@448, "instructions" ; :POKE1484, 3 

2 : POKE1485 , 58 : PRINT@462 : PRINT@46 

2 , " " ; : INPUT  11$: PRINT@  4  8 0 , STRING 

$(31, "  ") ; :POKE1535,96 

104  IF  LEN(I1$)=0THEN102 

106  IF  LEN(I1$)  01THEN118 

108  II$=LEFT$(I1$,1) :IFII$="L"TH 

EN62  6ELSEIFII$="I"THEN162ELSEIFI 

I$="N"THENM=1ELSEIFII$="S"THENM= 

2ELSEIFII$="E"THENM=3ELSEIFII$=" 

W " THENM= 4  E LS EM= 0 

110  IFM=0THEN116 

112  IFAB<>1ORRM(R,M)=0THEN114ELS 
EIF (M=4ANDR<>4  3 ) 0RM=20R (M=3ANDR< 
>51ANDR<>5J3ANDR<>48)  THEN114ELSEG 
OSUB180:PRINT@256, "C  R  U  N  C  H." 
: PLAY"V3 1T2L2  5504CDCDCDCDP4 " : PRI 
NT "THE  ABOMINABLE  SNOWBEAST  WOUL 
D  NOT  LET  YOU  PASS . " : GOTO560 
114  IF  RM(R,M)  O0THEN  R=RM(R,M) : 
G0T056 

116  PRINT@484,"  CAN'T  GO  THAT 

WAY  " ; : GOTO 10 2 

118  L=LEN(I1$) :C1=0:X=1 

120  IFGG=1ANDR<>68THEN122ELSEIF( 

P2=1ANDVS  ( 34 )  O-IANDVS  (34)  <>R)  TH 

EN122ELSEGOSUB180 

122  IF  MID$(I1$,X,1)="  "THEN  Cl= 
X 

124  X=X+1 

126  IF  XOL  AND  C1=0THEN122 

128  IF  C1=0THEN  IA$=I1$ : IB$=" " : G 

OTO150 

130  IA$=LEFT$ (11$ , Cl-1) : IA$=LEFT 
$(IA$,3) 

132  IZ$=RIGHT$(I1$,L-C1) :IB$=LEF 
T$(IZ$,5) 


134  IA=1 

136  IF  IA$<>LEFT$ (IN$ (IA) ,3) THEN 
IA=IA+1:IF  IA>LI  THEN624ELSE136 
138  IB=1 

140  IFIA=18THEN146 

142  IF  IB$="SNOW"THEN  IB=5:G0T01 

46 

144  IF  IB$<>LEFT$ (VS$ (IB) ,5) THEN 
IB=IB+1:IF  IB>LV  THEN624ELSE144 
146  IFR<>68AND( (P2=1ANDVS (34) <>- 
1ANDVS  (34 )  <>R)  0RGG=1)  ANDIA0I8AN 
DIA03ANDIA01ANDIA014THEN548EL 
SEON  IA  GOT0182, 290, 300,312,320, 
346,370,382,420,428,468,474,484, 
494,506,510,528,502 
148  GOT0624 

150  IFLEFT$(IA$,3)="LOO"THEN56 
152  IFLEFT$(IA$,3)="JUM"THEN500 
154  IFLEFT$ (IA$ , 3 ) ="PIC"THEN420 
156  IFLEFT$ (IA$, 3 ) ="QUI"THEN638 
158  IFLEFT$ (IA$ , 3 ) ="SAV"THEN574 
160  GOT0624 
162  GOSUB180 

164  FORX=224TO255:POKE1024+X,32: 
NEXT: PRINT@2 35, "inventory" ;: IF  V 
S(l)o-1THENPRINT@256,"YOU  DO  NO 
T  HAVE  THE  BACK-PACK. ": GOTO170 
166  IX=0:T=1:TT=-11:FORX=1TO27:I 
F (VS (X) <>-l ) OR (X=2 ) THENNEXTX : GOT 
O170ELSEIFT=1THENTT=TT+11 : T=2ELS 
E I FT=2  THENTT=TT+ 1 1 : T=3ELSEIFT=3T 
HENTT=TT+10:T=1 

168  IF  IX<IT  THEN  PRINT@256+TT, V 

S$(X) ; :IX=IX+1:NEXT 

170  IFWR<>0THENPRINT@352 , "wearin 

g    "; :POKE1383,32:POKE1384,58:PR 

INT" (ON  FEET) : " ; : IFWR=1THENPRINT 

VS  $ ( 9 ) ELSEPRINTVS  $ ( 4 ) 

172  IF  ISO0THEN  PRINT@384 ,  "hold 

ing     "; : POKE1415 , 32 : POKE1416, 58 : 

IFVS(2)=-1THENPRINTVS$(2) ; "        " ; 

:G0T0176ELSE176 

174  GOTO102 

176  FORX=31T035:IFVS (X)=-1THENPR 
INTVS$ (X) ; "       " ; : NEXTELSENEXT 
178  GOT0174 

180  PRINT@224:PRINT@256:PRINT@28 
8 : PRINT@  3 2 0 : PRINT©  352: PRINTS  3 8  4 : 
RETURN 

182  IF(P2=1ANDVS(34)<>-1ANDVS(34 
)<>R)THEN56 

184  IFGG=1ANDR<>68THEN58 

186  ON  IB  GOTO190,192,198,200,20 

2,250,252,214,216,238,226,228,23 

6,240,218,230,246,242,248,248,24 

8,248,204,212,254,258,262,240,24 

0,274,270,2  66,268,260,272,2  64,27 

6,278,280,282,286,284,284 

188  GOT0256 
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190  IFVS(IB)=R  ORVS ( IB) =-lTHENPR 
INT@2  56,"A  CANVAS  BACK-PACK. ": GO 
TO102ELSE256 

192  IFVS(IB)OR  ANDVS(IB)<>-1THE 
N2  56ELSEIFVS ( 3 ) =0THENPRINT@2  56 , " 
THE  MUSKET  HAS  A  ROD  WITH  IT.":I 
FVS ( 2 ) =- 1ANDVS ( 1 ) =- 1THENVS ( 3 ) =-1 
: IFIT>8THENVS ( 3 ) =R: GOT082ELSEIT= 
IT+1 :  FORXX=1TO3000  :  NEXT :  GOT0162E 
LSEVS(3)=R:GOT082 

194  IFDP=1THENPRINT@256 , "A  LOADE 
D  MUSKET.  "  : GOTO102ELSEIFDL=1THEN 
PRINT§256, "A  PRIMED  MUSKET.": GOT 
O102ELSEPRINT@256 , "A  VERY  OLD,LO 
NG  MUSKET. 11  :GOTO102 
196  GOT0256 

198  IFVS(IB)=R  0R(VS(IB)=-1ANDVS 
(1) =-1) THENPRINT@2  56 , "A  LONG, THI 
N  MUSKET-ROD. " : GOTO102ELSE256 
200  IFWR=2THENPRINT@256 ,  "YOU  ARE 

WEARING  SOME  SNOWSHOES . " : GOTO10 
2ELSEIFVS(IB)=R  OR(VS (IB) =-lANDV 
S(1)=-1)THENPRINT@256,"A  PAIR  OF 

WELL  MADE  SNOWSHOES .": GOTO102EL 
SE256 

202  IFVS(IB)=R  OR(VS (IB)=-1ANDVS 
(1) =-1) THENPRINT9256 , "LOOKS  LIKE 
GOOD  PACKING-SNOW. " : GOTO102ELSE 
256 

204  IFR<>5THEN256ELSEIFVS(8)=0TH 
ENVS (24) =5: PRINTS 2 5 6, "A  BROKEN  S 
LED  WITH  A  COVER  ON  IT":GOT082 
206  IFVS (8)=5ANDDC=1THENPRINT@25 
6, "A  BROKEN  SLED  WITH  THE  COVER 
REMOVED  AND  SOME  SHOT  INSIDE. 
":GOTO102 

208  IFDC=1THENPRINT@256 , "A  BROKE 
N  SLED  WITH  THE  COVER  REMOVED 
.":GOTO102 
210  GOT0256 

212  IFVS (IB) =R  THENPRINT@256 , "A 
COVER  MADE  OF  SEAL  SKINS .": GOTOl 
02ELSE256 

214  IFVS (IB) =R  0R(VS(IB)=-1ANDVS 
(1)=-1)THENPRINT@256, "SOME  MUSKE 
T-SHOT. " : GOTO102ELSE256 
216  IFWR=1THENPRINT@2  56, "YOU  ARE 

WEARING  A  NICE  PAIR  OF  SKATES. 
":GOTO102ELSEIFVS(IB)=R  OR(VS(IB 
) =-lANDVS (1) =-1) THENPRINT@256 , "A 

FINE  PAIR  OF  SKATES. ": GOTO 10 2 EL 
SE256 

218  IFDH=0AND(VS(12)=10ORVS(12)= 
0 ) ANDR=10THENVS ( 12 ) =10 : PRINT@256 
, "JUST  AN  ORDINARY  SNOWMAN  WEARI 
NGGOGGLES . " : GOT082 

2  20  IFDH=1AND(VS(12)=10ORVS(12)= 
0 ) ANDR=10THENVS ( 12 ) =10 : PRINT©  2  5  6 
,"A  LIVING  SNOWMAN  WEARING 


GOGGLES. ": PRINT "HE  LOOKS  EAGER 

TO  TALK.": GOTO 8 2 
222  IFDH=1ANDR=10THENPRINT@256 , " 
A  LIVING  SNOWMAN. ": PRINT "HE  LOOK 
S  EAGER  TO  TALK! 11 :  GOTO102ELSEIFD 
H=0ANDR=10THENPRINT§2  56, "JUST  AN 

ORDINARY  SNOWMAN.": GOTO 10 2 
224  GOT0256 

226  IFVS (IB) =R  OR (VS ( IB) =-lANDVS 
(1) =-1) THENPRINT@2  56 , "LOOKS  LIKE 
A  MAGICIANS  HAT   !?!?": GOTO102EL 
SE256 

228  IFVS (IB) =R  OR (VS ( IB) =-lANDVS 
(1)=-1)THENPRINT@256, "VERY  DARK 
GOGGLES . " : GOTO102ELSE256 
230  IFVS (IB) =R  THENIFES=1THEN2  34 
ELSEIFPT=1THENPRINT@2  56, "A  WORRI 
ED  ESKIMO  LOOKING  FOR  A  DEFENCE 

AGAINST  YOUR  HARPOON. ": GOTO 102 E 
LSEIFR=7 1THENPRINT@ 2 5 6 , " AN  ANGRY 

ESKIMO   (WITH  A  BLACK  EYE).":G 
OTO102ELSE2  32ELSE256 
232  PRINT @ 2 5 6 , " THE  ESKIMO  HAS  A 
POWDER-FLASK. ": GOTO 102 
234  PRINT@256,"A  DEAD  ESKIMO  WIT 
H  A  BROKEN  HARPOON  STICKING 

OUT  OF  HIM. " :GOTO102 
23  6  IFVS (IB) =R  OR (VS ( IB) =-lANDVS 
(1) =-1) THENPRINT@256 , "GUN-POWDER 
,IN  A  FLASK. " :GOTO102ELSE256 
238  IFVS (IB) =R  OR (VS ( IB) =-lANDVS 
(1) =-1) THENPRINT@2  56 , "A  SMALL  PI 
ECE  OF  PACKING  CLOTH .": GOTO 10 2 EL 
SE256 

240  IFVS (IB) =R  0R(VS(IB)=-1ANDVS 
(1)=-1)THENIF(VS (28)=0ANDVS (29)= 

0 )  THENPRINT@2 5  6 ,  "  A  RECONSTRUCTED 
MESSAGE . " : GOTO102ELSEPRINT@256 , 

"PART  OF  A  BROKEN  MESSAGE  . 11 :  GOTO 
102ELSE256 

242  IFVS (IB) =R  THENIFVS (17 ) =0THE 
NPRINT@256 , "A  DEAD  POLAR  BEAR.": 
GOTO102ELSEPRINT@256, "A  VERY  B-I 
-G  POLAR  BEAR. ": GOTO 10 2 
244  GOT0256 

246  IFVS (IB) =R  THENPRINT@256 , "VE 
RY  LARGE  ICICLES  HANGING  FROM  RO 
OF. " : GOTO102ELSE256 
248  IFVS (19) =R  ORVS (20) =R  ORVS (2 

1)  =R  ORVS (22) =R  THENPRINT@256 , "A 
N  OLD  SIGN  WITH  WRITING  ON  IT.": 
GOTO102ELSE256 

250  IFVS (IB) =R  0R(VS(IB)=-1ANDVS 
(1)=-1)THENPRINT@256, "A  SHARP  IC 
E  PICK.":GOTO102ELSE256 
252  IFVS (IB) =R  OR (VS ( IB) =-lANDVS 
(1)=-1)THENPRINT@256, "A  WELL  PAC 
KED  SNOWBALL. ": GOTO 102ELSE256 
254  IFVS (IB) =R  THENPRINT@2  56 , "LA 
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RGE  FOOTPRINTS  HEADING  WEST.": GO 
TO102ELSE256 

256  PRINT@2 56, "NOTHING  WORTH  LOO 
KING  AT.":GOTO102 

258  IFVS (IB) =R  OR (VS ( IB) =-lANDVS 
(1)=-1)THENIFKY=1THENPRINT@256, " 
A  KEY  IN  A  LOCK. " :GOTO102ELSEPRI 
NT@256,"A  LONG  KEY  MADE  FROM  ICE 
.":GOTO102ELSE256 

260  IFVS (IB) =R  0RVS(IB)=-1THENIF 
LN=1THENPRINT@256,  "A  LIT  LANTERN 
. " : GOTO102ELSEPRINT@256 , "AN  UNLI 
T  WALRUS -BLUBBER  LANTERN .": GOTO 1 
02ELSE256 

262  IFVS (IB) =R  OR (VS ( IB) =-lANDVS 
(1) =-1) THENPRINT@2  56, "A  WELL  USE 
D  SALT-LICK.  "  : GOTO102ELSE256 
264  IFVS (IB) =R  THENIFKY=1ANDCD=0 
THENPRINT@2  56, "A  LOCK  WITH  A  KEY 
IN  IT. ":GOTO102ELSEPRINT@256,  "A 
LOCK  IN  A  DOOR. " : GOTO102ELSE256 
2  66  IFVS (IB) =R  ORVS (IB) =-lTHENIF 
ST=1THENPRINT§256 , "A  BUCKET  WITH 
WATER  IN  IT. " :GOTO102ELSEIFST=4 
THENPRINT@256, "AN  EMPTY  BUCKET." 
: GOTO102ELSEPRINT§256 , "A  BUCKET 
WITH  ICE  IN  IT.":IFST=2THENPRINT 
"THE  WATER  REFROZE . " : GOTO102ELSE 
102ELSE256 

268  IFVS (IB) =R  ORVS ( IB) =-lTHENPR 

INT@2  56,"A  STRAW  BROOM  WITH  FRES 

H  STRAW! ?" : GOTO102ELSE256 

270  IFVS (IB) =R  ORVS (IB) =-lTHENPR 

INT@256,"THE  BEAUTIFUL  ICE  PRINC 

ESS ! " : GOTO102ELSE256 

272  IFVS(IB)=R  ORVS ( IB) =-lTHENPR 

INT@256,"A  LONG  HARPOON  WITH  A  P 

OINTED       BARB. " : GOTO102ELSE256 

274   IFR=73THENPRINT@2  56 , "THE  RE I 

NDEER  IS  TOO  FAR  AWAY  TO  SEE  ANY 

DETAILS . " : GOTO102ELSE256 
276  IFVS (IB) =R  THENPRINT@256 , "AN 

EVIL  SORCERESS, HOLDING  A  BR 
OOM. " :GOTO102ELSE256 
278  IFVS (IB) =R  THENPRINT@256 , "A 
FROZEN  STATUE  OF  THE  LOVELY  IC 
E  PRINCESS . " : GOTO102ELSE256 
280  IF(R<>55)AND(R<>56)THEN256EL 
SEIFCD=1THENPRINT@256, "AN  OPEN  D 
OOR. " :GOTO102ELSEIFKY=1THENPRINT 
@2  56,"A  LOCKED  DOOR  WITH  A  KEY 

INSERTED  INTO  THE  LOCK.":G 
OTO102ELSEPRINT@256 , "A  LOCKED  DO 
OR . 11 :  IFVS  (36)  =0THENVS  ( 3  6 )  =55  :  GOT 
O82ELSE102 

282   IFVS (40) =R  THENPRINT@256 , "A 
HUGE  ABOMINABLE  SNOWBEAST . " : PRIN 
T"IT  IS  HEADING  TOWARDS  YOU!": GO 
TO102ELSE256 


284  IFR=420RR=43THENPRINT@256/ "A 
VERY  DEEP  CREVASSE. ":GOTO102ELS 
E256 

286  IFR*73THENPRINT§256, "A  VERY 
WIDE  AND  DEEP  PIT ! " : GOTO102ELSE2 
56 

288  GOT0256 

290  IFIB=5ANDVS (5) =-lANDVS (1) =-1 

THENVS ( 5 )  =0  :  VS  ( 7 )  =- 1 : PRINT@  2  56," 

WHAT  A  SOLID  SNOWBALL- YOU  COULD 

ALMOST  KILL  SOMEONE  WITH  IT1M": 

FORXX= 1TO 3000 : NEXT : GOTO 162 

292  IFDP*1THENPRINT@256, "IT  IS  A 

READY  PACKED! ":GOTO102 

294  IFIB=2THENPRINT@462 :PRINT@46 

2 , "WITH" ; : INPUT  IC$ 

296  IFIC$="R0D"ANDVS(3)=-1ANDVS( 

2 ) =-lANDVS (1) =-lTHENIFDL=lTHENDP 

»l:PRINT@256, "DONE.   PACKED  GOOD 

AND  TIGHT. " :PRINT"THE  MUSKET  IS 

NOW  LOADED. ":GOTO102ELSEPRINT@25 

6 , "THERE  IS  NOTHING  TO  PACK.": GO 

TO102 

298  GOT0538 

300  IFGG=1ANDIB=12THENIFIT>8THEN 

3  64ELSEIT=IT+1 :  GG=0  :  VS  ( 12 )  —1 :  GO 

SUB180 : PRINT@256 , "O.K. " : F0RXX=1T 

02000 : NEXT : GOT056 

302  IFGG=1ANDR<>68THEN58 

304  IFR=5ANDVS (24) <>0ANDDC=0THEN 

VS ( 8 ) =5 : DC=1 : PRINT@2  56 , "THE  COVE 

R  HAS  BEEN  REMOVED. ": GOTO 8 2 

306  IF(P2  =  1ANDVS  (34)  O-IANDVS  (34 

) OR) THEN56ELSEIFGG=1ANDR<>68THE 

N58 

308  IF(WR=2ANDIB=4)0R(WR=1ANDIB= 
9) THENWR=0 : VS (IB) =R:GOSUB180 : PRI 
NT@256,"  O.K.":GOT082 
310  GOT053  8 

312  IFIB=12ANDVS(IB)=-1ANDVS(1)= 
-1THENIT=IT-1 : VS ( IB) =0 : GG=1 : PRIN 
T@256, "O.K. ":FORXX=1TO1000:NEXT: 
GOTO 5 6 

314  IFIB=4ANDVS(IB)=-1ANDVS(1)=- 
1THENIFWR=1THENPRINT@2  56 , "YOU  AR 
E  ALREADY  WEARING  THE  SKATES 
. " : GOTO102ELSEWR=2 : IT=IT-1 : VS (IB 
)=0:PRINT@256, "  O.K. ":GOTO102 
316  IFIB=9ANDVS (IB) =-lANDVS (1) =- 
1THENIFWR=2THENPRINT@256, "YOU  AR 
E  ALREADY  WEARING  THE  SNOWSH 
OES . " : GOTO102ELSEWR=1 : IT=IT-1 : VS 
(IB)=0:PRINTe256, "  O.K. " :GOTO102 
318  GOT0538 

320  IFVS(2)O-lTHENPRINT@256,"Y0 
U  DO  NOT  HAVE  ANYTHING  TO  LO 
AD . " : GOTO102ELSEDM=VS ( 2 ) +VS ( 3 ) +V 
S(8)+VS(13)+VS(10) 
322  IFIB02THEN538 
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324  IFVS(1)<>-1ORVS(17)=0THENPRI 
NT@256,"YOU  DO  NOT  HAVE  ANYTHING 

TO  LOADWITH.":GOTO102 
326  IFDM<>-5THENPRINT@2  56 , "YOU  S 
TILL  NEED  SOME  SUPPLIES  BEFOR 
E  LOADING. ": GOTO 10 2 
328  IF  DS=0THENPRINT@256, "YOU  DO 

NOT  KNOW  HOW  TO  LOAD  THE  MUSKET 

YET.":GOTO102 
330  PRINT@256,  "LOADING  ORDER" 
332  ER=0 

3  34  INPUT"FIRST" ; IC$ : IFLEFT$ ( IC$ 
, 3) <>LEFT$ (VS$ (13) ,3) THEN  ER=1 
336  INPUT"SECOND" ;IC$:IFLEFT$ (IC 
$, 3) <>LEFT$ (VS$ (10)  ,3)  THEN  ER=1 
338  INPUT"THIRD" ; IC$ : IFLEFT$ ( IC$ 
, 3) <>LEFT$ (VS$ (8) ,3) THEN  ER=1 
340  IFER=1THENPRINT@256 ,  " SORRY, W 
RONG  ORDER.": GOTO 10 2 
342  DL=1:VS (8)=0:VS (13)=0:VS (10) 
=0 : IT=IT-3 : PRINT "CORRECT, THE  MUS 
KET  IS  NOW  PRIMED" :GOTO102 
344  GOT0538 

346  IF(IB>14ANDIB<26)ORIB>35THEN 
538 

348  IF(IB>29)OR(IB=2)THEN366 

350  IFIB=26ANDKY=1THEN538 

352  IFIB=1THEN354ELSEIFVS(1)<>-1 

THENPRINT@256, "YOU  DO  NOT  HAVE  Y 

OUR  BACK-PACK . " : GOTO 1 0  2 

354  IFVS(IB)=R  THENIFIT>8THEN3  64 

ELSEVS (IB) =-1 : IT=IT+1ELSEIFIB=14 

THEN360ELSEIFVS  (IB)  =-lTHENPRINT@ 

2  56, "YOU  ALREADY  HAVE  THAT.": GOT 
0358ELSE538 

356  PRINT@480,  "O.K.  -  I  HAVE  THE 
";VS$(IB) ; 

3  58  GOT082 

3  60  IFVS(14)=-1THENIFVS(28)=R  TH 
ENVS(28)=0ELSEIFVS(29)=R  THENVS ( 
29)=0ELSE538ELSEIFVS(28)=R  THENI 
FIT>8THEN3  64ELSEVS(28)=VS(14) :VS 
(14)=-1:IT=IT+1ELSEIFVS(29)=R  TH 
ENIFIT>8THEN3  64ELSEVS ( 29 ) =VS ( 14 ) 
: VS ( 14 ) =-1 : IT=IT+1ELSE538 
362  GOT0356 

364  PRINT@256, "YOU  DO  NOT  HAVE  R 
OOM  FOR  ANY-  THING  ELSE.": GOTO 
102 

366  IFIS<2THENIFVS (IB)=R  THENVS ( 
IB) =-1 : IS=IS+1 : IFIB=3 1ANDES=0AND 
VS ( 1 6 ) =0THENVS ( 1 6 ) =7 1 : PRINT  @  2  5  6 , 
"THE  ESKIMO  JUST  APPEARED  AT  THE 
DOORWAY. HE  LOOKS  RATHER  ANGRY!" 
ELSE : ELSEIFVS ( IB) =-lTHENPRINT@2  5 
6, "YOU  ALREADY  HAVE  THAT.": GOTO 3 
58ELSE538ELSE369 
3  68  GOT0356 

369  PRINT6256, "YOU  ARE  ALREADY  H 


OLDING  TWO  ITEMS . " : GOTO102 

370  IFVS(2)<>-1THENPRINT@256,"Y0 
U  DO  NOT  HAVE  THE  MUSKET .": GOTO 1 
02ELSEIFDL=0THENPRINT@256 , "C  L  I 
C  K" : PLAY"V3 1T2L100O4CO2C" : FORX 
X=1TO1000 : NEXT : PRINT"NOTHING . " : G 
OTO102 

372  IFDP=0THENPRINT@256, "K  A-B  0 
0  M  I ! " : GOSUB380 : PRINT "THE  MUSK 
ET  BACK-FIRED . " : GOTO560 
374  IFIB=18ANDVS(17)<>0THENGOSUB 
380:PRINT§256, "GRRR. . .THE  POLAR 
BEAR  ATTACKED  YOU  IN  SELF-DEFEN 
CE. ":PLAY"V31T2L110O1CDCDCDCDCDC 
DCDCDCD":GOTO560 

376  IFIB=17THENDP=0:DL=0:L$ (13)* 
"CAVERN  WITH  A  PASSAGE  TO  THE  WE 
ST" : VS (17) =0 : RM(13 , 4) =33 : GOSUB3  8 
0 : PRINT@256 , "THE  " ;VS$ (17) ; "  CAM 
E  CRASHING  DOWN.  THE  " ;VS$ ( 18) ; " 

IS  DEAD. ": FORXX= 1TO 2000: NEXT: GO 
T056 


: NEXT : RETURN 

382  IF (R=160RR=14 ) ANDIB=19THENCL 
S0 : GOSUB3  8  8 : PRINT@  2  36," CAUTION : " 
; : PRINT§332 , "THIN  ICE" ; : F0RXX=1T 
02000 : NEXT : GOT056 

384  IF(R=240RR=26)ANDIB=19THENCL 

S0 : GOSUB388 : PRINT§237 , "danger" ; : 

PRINT8332 , "THIN  ICE"; :SCREEN0,1: 

FORXX=1TO2000 : NEXT : GOT056 

386  IFIBO14THEN538ELSE390 

388  FORX=0TO31:POKE1024+X, 185 :P0 

KE1024+480+X, 185 : NEXT : FORX=32T04 

48STEP32 : POKE1024+X, 185 : POKE1024 

+31+X, 185: NEXT: RETURN 

390  IFVS(14)O-1THEN404ELSEPRINT 

@225,"TO  DESTROY"; :PRINT@258,"IC 
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E  AT  THE" ; : PRINT@2  89 , "AND  SAY  "; 
: PRINTG321, "ENTER  "; :PRINT@353," 
THROW  THE"; 

392  IFVS(29)=0ANDVS(28)O0THENVS 
(29)=VS(28)  :VS(28)=0 
394  IFVS(28)=0THENPRINT@235,"  TH 
E  SORCERESS , " ; : PRINT@268 , "  FOOT 
OF  "; :PRINT@297,"THE  WORD" ; : PRIN 
Tg327,"THE  LOFT  AND" ; : PRINT@362 , 
"  BUCKET  AT"; 

396  IFVS (29) *0THENPRINT@250 , "SAL 
T" ; : PRINT§277 , "THE  LOFT" ; : PRINT© 
305 ,  "  '  "  ; :  GOSUB400 :  PRINTWD$ ; "  1  .  " 
; : PRINT© 3 39,"  IMMEDIATELY " ; : PRIN 
T@372,"  YOUR  FOE."; 
398  GOTO102 

400  IFWD$»""THEN  ON  RND (7 )  GOSUB 
406, 408,410, 412 , 414 , 416,418 
4)32  RETURN 

404  PRINT© 2 5 6, "YOU  DO  NOT  HAVE  T 

HE  MESSAGE .  H  :  GOTO102 

406  WD$=VS$(7) : RETURN 

408  WD$-VS$ ( 15 ): RETURN 

410  WD$-VS$ (16) : RETURN 

412  WD$-VS$ (30) : RETURN 

414  WD$-VS$ (31) : RETURN 

416  WD$-VS$ (37) : RETURN 

418  WD$-VS$ (17) : RETURN 

420  IFVS(6)O-10RVS(l)O-lTHENPR 

INT©256,"YOU  DO  NOT  HAVE  THE  ICE 

-PICK. " :GOTO102ELSEIFIB$<>" "THEN 

426ELSEPRINT§462 : PRINT©462 , "DIRE 

CTION" ; : INPUT  IC$ 

422  PLAYMV3103L255CDP16CDP16CDP1 
6CDP4" 

424  IFSL-1THENIFLEFT$(IC$,1)="E" 
AND  (NOT  (  (P2"1ANDVS  (34)  O-IANDVS  ( 
34 )  OR)  ORGG-1 )  )  THENSL=2  : L$ ( 3  8 ) =" 
SMALL  ROOM":RM(38,3)=37:PRINT@46 
2: PRINT§ 2 56, "WELL  DONE. THE  ICE-S 
HEET  WAS  THINENOUGH  TO  PICK  THRO 
UGH . " : FORXX=1TO2500 : NEXT : GOT056E 
LSE558 

426  PRINT© 4 80, "SORRY, NOTHING."; : 
GOTO102 

428  IFVS(7)=-1ANDVS (1)=-1ANDR=21 
ANDIB=7THENVS ( 7 ) =0 : IT=IT-1 : VS ( 16 
) =0 : VS ( 13 ) =2 1 : SOUND4 , 2 : PRINT@256 
,"A  DIRECT  HIT11!  THE  ESKIMO  RAN 
OFF, BUT  DROPPED  THE  FLASK.": GO 
T082 

430  IFVS (1)=-1ANDIB=1THEN454 
432  IFIB=35THENIFVS  (35)  0-1THEN5 
38ELSE458 

434  IFIB032THEN538 

436  IFR063THEN538 

438  IFS Y=1THENIFST=2THEN4 4 8ELSEI 

FST=1THENPRINT@256, "AHHH  HH  H  H. 

. . . ":G0SUB4 66: PRINT "THE  SORCERES 


S  MELTED  AWAY. ": PRINT "ONLY  HER  B 

ROOM  STICK  REMAINS. " :F0RXX=1T02 5 

00:NEXT:VS (37)=0:VS (33) =63 :VS (32 

) =63 : IS=IS-1 : ST=4 : GOT044  6 

440  IFST=0THENPRINT@256, "OOOCH! ! 

" : SOUND252 , 4 : PLAY "PI" : PRINT" IT  L 

ANDED  ON  THE  SORCERESS'  TOE!";:F 

ORXX=1TO2000:NEXT:GOTO452 

442  IFSY=0THEN448 

444  GOT0538 

44  6  PRINT@256:PRINT@288:PRINT@32 

0:PRINT@256, "EEE  EE  E  " : PLAY" 

V30O4L200CDEFGABGEL150D" : PRINT "T 
HERE  WAS  A  SQUEAL  OF  GLEE  FROM  S 
OMEWHERE  DOWNSTAIRS ." :VS (38) =0 :V 
S(31)=71:GOT082 

448  PRINT@256 , "CLUNK. " : SOUND8 , 8 : 
PRINT "THE  WATER  HAD  REFROZEN!!": 
FORXX= 1TO 2 000 : NEXT 
450  I FS Y=0THENPRINT " YOU  DID  NOT 
SAY  THE  MAGIC  WORDl " : FORXX=1TO10 
00 : NEXT 

452  PRINT "THE  SORCERESS  TURNED  Y 
OU  INTO  A  SNOWBALL  AND  STOMPED  O 
N  YOU! 11!": FORXX=1TO2000 : NEXT: PR 
INT@416,"YOU  ARE  A  DEAD  SNOWBALL 
Ml":  END 

454  IFIB$»VS$(1)THENIT-IT-1:IFR= 
14THENVS ( 1) «16ELSEIFR»16THENVS (1 
)-14ELSEIFR-24THENVS(l)=26ELSEIF 
R«2  6THENVS ( 1 ) »2  4ELSEVS ( 1 ) «R : PRIN 
T@256,"POOR  THROW.":GOTO82ELSE10 
2 

456  PRINT§256, "GOOD  THROW11-IT  C 
LEARED  THE  ICE . " : GOTO102 
458  PRINT6462 : PRINT8462 , "AT" ; : IN 
PUT  IC$ 

460  IFLEFT$(IC$,3)="ESK"ANDVS(16 
) O0THEN4  62ELSEVS (IB) =R: IS=IS-1 : 
PRINT©  2  56," POOR  THROW . " : PT=0 : GOT 
082 

462  IFPT=1THENPRINT@256 , "WOOOOSH 
. " :GOSUB566 : PRINT "AAARRG! !":SOUN 
D12,8:PRINT"THE  HARPOON  RAN  THE 
ESKIMO  THROUGH ! ! 1 " : ES=1 : VS ( 

35)=0:IS=IS-1:FORXX=1TO2000:NEXT 
:G0T056 

464  PRINT§256,"YOU  MISSED! ": PRIN 
T§256,"THE  ESKIMO  PICKED  UP  THE 
HARPOONAND  RETURNED  IT  TO  YOUR  C 
HEST 1 ! " : S0UND8 , 8 : GOTO560 
466  PLAY"T2V3 1L2 605BAGFEDC" : FORX 
=1T04 : PLAY"0- ; BAGFEDC" : NEXT : PLAY 
"L4C" : RETURN 

468  IFVS(IB)=-1AND(IB>290RIB=2)T 
HENIS=IS-1:VS(IB)=R:GOTO470ELSEI 
FVS (IB) =-lANDVS (1) =-lTHENVS (IB) = 
R:IT=IT-1ELSEIFWR<>0AND(IB=4ORIB 
=9) THEN538ELSEPRINT@480 , "YOU  DON 
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•T  HAVE  THE  ";VS$(IB) ;: GOTO 102 
470  PRINT§480,  "O.K.-  I  DROPPED  T 

HE  ";VS$(IB) ; 

472  GOT082 

474  IFIB=11ANDVS (11) =-lANDVS (1) = 
-1ANDR=10THEN476ELSEIFIB=27ANDVS 
(IB) =-lANDVS ( 1 ) =-lTHEN4 7  6ELSEPRI 
NT§256,"YOU  CAN  NOT  PUT  THAT  ANY 
WHERE. M: GOTO 10 2 

476  PRINT6462 : PRINT@462 , "WHERE" ; 
: INPUT  IC$ 

478  IFLEFT$(IC$,5)="SNOWM"THENVS 
( 11) =0 : IT=IT-1 : DH=1 : PRINT@256 , "T 
HE  SNOWMAN  CAME -TO - LI FE  !!!!": PL 
AY"T2V2503L4GEL16FL8G04L4C" : GOTO 
82 

480  IFLEFT$(IC$,3)="BUC"ANDVS(32 
) =-lTHENVS ( 27 ) =0 : ST=2 : PRINT@2  56 , 
"THE  ICE  IN  THE  BUCKET  IS 

STARTING  TO  MELT ! " : IFR=62THENST 
=l:GOT082ELSE82 
482  GOT0538 

484  IFIB=31ANDVS(31)=-1ANDR=73TH 
ENPRINT§256,"THE  REINDEER  LOOKS 
HUNGRY." :GOTO102ELSE  DM*VS(8)+VS 
(13) +VS ( 2 ) +VS ( 3 ) +VS ( 10 ) 
486  IFIB-15ANDR=10ANDDH=1THENIFD 
M<>-5THENPRINT@256, "WELL. . .OH!  I 

SEE  YOU  DO  NOT  HAVEEVERYTHING  T 
HAT  YOU  NEED.  WE'LL  TALK  WHEN  YO 
U  DO.H:GOTO102ELSE536 
488  IFR=10THENPRINT@256, "DOESN'T 

SEEM  VERY  TALKATIVE .": GOTO 10 2 
490  IFR=21ANDVS(16)<>0THENPRINT@ 
256, "HE'S  THE   'STRONG-SILENT'  TY 
PE. ":GOTO102 

492  PRINT§480, "NO  RESPONSE GO 
TO102 

494  IFIB=41ANDR=73THEN552ELSEIFI 

B=420RIB=43THEN496ELSE538 

496  IF(P2*1ANDVS(34)<>-1ANDVS(34 

)  OR)  ORGG=*  1  THEN  I FR*=  4  2  ORR=  4  3  THE  N  5 

52 

498  IFR=42THENR=43:GOT056ELSEIFR 
=43THENR=42 : GOT056ELSE538 
500  PRINT© 4 80, "GEE, THAT  WAS  FUN! 
"; :GOTO102 

502  IFIB$=LEFT$ (WD$ , 5 ) THENXX$=" " 
:FORX=lTOLEN(WD$) : XX$=XX$+CHR$ (A 
SC(MID$(WD$,X,1) )+32) :NEXT:IZ$=X 
X$:SY=1 

504  GOSUB180:PRINT@303-INT(LEN(I 
Z$) /2) , " ' " ; IZ$ ; "  "' ; : GOTO102 
506  IFIB=26ANDKY=1ANDR=55THENPRI 
NT@256,"C  R  E  A  K. " : GOSUB564 : PRI 
NT "THE  DOOR  SWUNG  OPEN.   THE  KEY 
BROKE  THOUGH, WHEN  YOU  TURNED 
IT.":VS(2  6)=0:IT=IT-1:CD=1:RM(55 
, 1 ) =5  6 : F0RXX=1T02  500 : NEXT : GOT05  6 


508  GOT0538 

510  IFIB=35ANDVS(IB)=-1THEN514 
512  IFIB=33ANDVS(IB)=-1THEN520EL 
SE538 

514  PRINT@462 : PRINT@462 , "AT" ; : IN 
PUT  IC$ 

516  IFLEFT$(IC$,3)="ESK"ANDVS(16 
) <>0THENPT=1 : PRINT@2  56 , "O.K.": PR 
INT "THE  ESKIMO  LOOKS  WORRIED  NOW 
!":GOTO102 
518  GOT0538 

520  PRINT§462 :PRINTe462 , "DIRECTI 
ON";: INPUT  IC$ 

522  IFLEFT$(IC$,1)«"N"ANDR=73AND 
VS (31) "-1THENCLS : GOSUB76 : PRINT@9 
6, "THE  REINDEER  JUMPED  OVER  THE 
PIT  TO  EAT  THE  STRAW  ON  THE  BROO 
M.  IN  RETURN,  HE  OFFERED  YOU  A  R 
IDE  THROUGH  THE  HOLE  IN  THE  ROOF 

ABOVE  THE  PIT . " : GOTO 

524 

523  PRINT@256, "NOTHING. ":GOTO102 

524  PLAY"T203V26L12CFGAL4GE" : FOR 
XX=1TO3000 : NEXT : PRINT : PRINT"  FOR 

RESCUING  THE  PRINCESS, YOU  WIL 
L  BE  ETERNALLY  WEALTHY  AND  REC 
EIVE  HER  HAND  IN  MARRIAGE .": FORX 
X-1TO3000 : NEXT : PRINT : PRINT "WELL 
DONE ! ! » 
526  END 

528  IFVS (26) =-lANDVS (1) =-lANDVS ( 
3 6 ) =55ANDR=55ANDIB=2 6THEN530ELSE 
538 

530  PRINT@462 : PRINT@462 , "WHERE" ; 
: INPUT  IC$ 

532  IFLEFT$(IC$,3)="LOC"THENVS(2 
6)=55:KY=1:PRINT@256, "  O.K. ":GOT 
082 

534  GOT0538 

536  DS«1:PRINT@256, "TO  LOAD  THE 
MUSKET : FIRST-POWDER , SECOND-CLOTH 
, THIRD-SHOT , THEN         PACK  WITH  RO 
D. ":GOTO102 

538  PRINT§480, "YOU  CAN'T  ";IN$(I 

A) ; "  THAT. " ; : GOTO102 

540  GOSUB180 : PRINT0256 , "NOW  YOU 

ARE  TRAPPED ! ! ! " : FORXX=1TO1000 : NE 

XT : PRINT "THE  ABOMINABLE  SNOWBEAS 

T  ATTACKED  YOU ! " : S0UND8 , 8 

:GOTO560 

542  IFR=25THEN550ELSEIFR=15ANDVS 
(1)—  1THENPRINT8160,  "YOU  AND  YOU 
R  PACK  ARE  TOO  HEAVY !": GOTO 5 50 
544  IFR»38ANDSL=0THENIF(P2=1ANDV 
S  ( 3 4 )  O-IANDVS  ( 3 4 )  OR)  0RGG=1THEN 
SL=1 : S0UND16 , 16ELSEPRINT@256 , "A 
SHEET  OF  ICE  JUST  FELL  AND  BL 
OCKED  THE  EXIT  TO  THE  EAST.  TH 
ERE  IS  NO  WAY  OUT ! ! " : SL=1 : S0UND1 
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6, 16 

546  RETURN 

548  GOSUB180  :  PRINT@256  ,  "YOU  CAN 
NOT  SEE  WHAT  YOU  ARE  DOING.": 
FORXX= 1T02  000 : NEXT : GOTO  5  6 
550  PRINT@237, "C" ;  :  SOUND76 ,  4  :  PRI 
NT@270 , "R" ; :SOUND64,4:PRINT@303, 
"A" ; : SOUND52 , 4 : PRINT@336 , "C" ; : SO 
UND40  ,  4  :  PRINT@3  69  ,  "K"  ;  :  SOUND28  ,  4 
: FORX=1TO2000 : NEXT : PRINT@4 16 , "TH 
E  ICE  BROKE  AND  YOU  DROWNED!!!": 
PRINT@448, "" ; : END 
552  CLS0:GOSUB76:PRINT@205,  "a"  ; : 
SOUND128 , 4 : PRINT@238 , "a" ; : SOUND1 
16 , 4 : PRINT6271 , "h" ; : SOUND104 , 4 : P 
RINT@304  ,  "h"  ;  :  SOUND92  ,  4  :  PRINT@33 
7,"h"; :SOUND80,4:PRINT@370,"h"; : 
SOUND68,4 

554  IFR=83ORR=73THENFORXX=1TO200 

0: NEXT: PRINTS 64,  "  YOU  FELL  I 

NTO  THE  PIT! " :GOTO560 

556  FORXX=1TO2000: NEXT: PRINTS 64, 

■     YOU  FELL  INTO  THE  CREVASSE.": 

GOTO560 

558  GOSUB180:PRINT@256, "C  R  A  S 

H"  :  GOSUB380 :  FORXX=1TO1000  :  NEXT :  P 

RINT"THE  WALL  CAVED  IN!!!" 

560  FORXX=1TO2500:NEXT:PRINT@416 

, "YOU  ARE  DEAD ! I " : END 

562  CLS0 : GOSUB76 : PRINTS64 , "IT  IS 

TOO  DARK  TO  SEE . " : GOTO102 
564  PLAY"V15T4L100O4CV+ ;  V+ ;P16DV 
+ ; V+ ; PI 6EV+ ; V+ ; PI 6FV+ ; V+ ; PI 6GV+ ; 
V+ ; P16AV+ ;  V+ ; P16B" : RETURN 
566  PLAY"V31L25501T255" :FORX=lTO 
5 : PLAY"V<CDCDCDCDCDCD" : NEXT : RETU 
RN 

568  CLS : GOSUB76 : PRINTS96 , "THE  ES 
KIMO  ATTACKED  YOU  AS  YOU  PASSED 
THROUGH  THE  DOOR! " : SOUND 8 , 8 : GOT 
0560 

570  CLS0:PRINT@171, "WELL  DONE ! " ; 
: PRINT© 2 2 7, "YOU  MADE  IT  THROUGH 
PART" ;P2+1; : PLAY"T203V2  6L12CFGAL 
4GE" : FORXX=1TO2000 :NEXT: PRINT@42 
4 , "NOW  ON  TO  PART" ; P2+2 ; : F0RXX=1 
TO500 : NEXT : SCREEN0 , 1 : FORXX=1TO10 
00 : NEXT : SCREEN0 , 0 : RETURN 
572  G0T056 

574  MM$="off" :MM=0:IC$="PRDATA" 
576  CLS:G0SUB7  6 

578  PRINT@64, "SAVE  TO  TAPE:": PRI 
NT: PRINT"  M  -  MOTOR  TOGGLE  (ON 
/OFF) ": PRINT"  N  -  FILE  NAME  -  ( 
' " ; IC$ ;"•)": PRINT"  S  -  SAVE" : PR 
INT@429 , "MOTOR" ;MM$ : SOUND160 , 1 
580  I$=INKEY$:IFI$=""THEN580 
582  IFI$="M"THENGOSUB58  6ELSEIFI$ 
="N"THENG0SUB588 :GOT0576ELSEIFI$ 


="S"THEN592ELSE580 
584  GOT0578 

586  IFMM=0THENMM=l:MM$="on" :MOTO 
RON:RETURNELSEMM=0:MM$="off " :MOT 
OROFF : RETURN 

588  PRINT@288 , "NAME  OF  FILE";: IN 
PUT  IC$ 

590  IC$=LEFT$ ( IC$ , 8 ) : RETURN 

592  PRINT@416:PRINT@2 88, "SAVING 

FILE   '";IC$;"'"  . 

594  0PEN"0",#-1,IC$ 

596  F0RX=1T0LV: PRINT #-l,VS (X) :NE 

XT : PRINT  #-l,R,DC,DH,P2,IT,LN,IS, 

DP,DL,DS,CD,KY,SY,ST,GG,PT,AB,ES 

,SL,WR 

598  CL0SE#-1 
600  GOT056 

602  MM$="off": MM=0 : 1 C $ = " PRDATA" 
604  CLS:GOSUB76 

606  PRINT© 64 , "LOAD  FROM  TAPE : " : P 
RINT: PRINT"     M  -  MOTOR  TOGGLE  (O 
N/OFF) ": PRINT"     N  -  FILE  NAME  - 
( '";IC$;" 1 ) ": PRINT"     L  -  LOAD":P 
RINT@429 , "MOTOR" ;MM$ : SOUND160 , 1 
608  I$=INKEY$:IFI$=""THEN608 
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610  IFI$="M"THENGOSUB586ELSEIFI$ 
=  " N " THENG0SUB5 8 8  :  GOTO 604ELSEIFI$ 
="L"THEN614ELSE608 
612  GOTO606 

614  PRINT§4 16 :PRINT@288, "LOADING 

FILE  ,M;IC$;M,M 
616  OPEN"I" , #-1, IC$ 
618  FORX=lTOLV:INPUT#-l,VS(X) :NE 
XT:INPUT#-1,R,DC,DH,P2,IT,LN,IS, 
DP,DL,DS,CD,KY,SY,ST,GG,PT,AB,ES 
,SL,WR 

620  CLOSE#-l 
622  GOT056 

624  PRINT6480, "THAT  IS  PHYSICALL 

Y  IMPOSSIBLE" ; :GOTO102 

626  CLS:GOSUB76 

628  PRINT@46, "VERBS" 

630  FORX=lTO  LI: PRINT"  ";IN$ 

(X) , :NEXT 

632  PRINT"  I -INVENTORY  L-LIS 
T  VERBS" 

634  PRINT§431, "N" :PRINT@4  61, "W 

E":PRINT§495,"S"; 
636  IFINKEY$=""THEN636ELSE56 
638  CLS:GOSUB76 

640  PRINT§160,"         WELL  IT  WAS  A 

GOOD  TRY! " : PRINT@416 : END 
642  GOT0642 

644  DATA0,2,0,0,1,6,8,3,0,0,2,4, 

0,5,3,0,4,0,0,0,2,7,0,0,6,0,81,7 

8,0,0,9,2,0,0,10,8,11,20,0,9,12, 

10,0,0,14,11,0,13,0,0,12,0,15,12 

,0,0,16,14,0,0,0,15,18,17,0,0,16 

,0,19,0,0,16,0,18,0,0 

646  DATA10,0,21,0,0,22,0,20,21,3 

2,31,23,0,0,22,24,0,25,23,0,24,2 

6,0,0,25,0,27,0,0,0,28,26,0,0,29 

,27,30,0,0,28,31,29,0,0,0,30,0,2 

2,22,0,0,0 

648  DATA0, 0,0, 34, 55, 0,33, 35, 0,0, 
34,36,0,0,35,37,39,42,36,38,0,0, 
0,0,0,37,40,0,41,0,0,39,0,40,0,0 
,37,0,0,82,0,0,82,45,45,0,0,0,46 
,44,43,0,47,45,0,0,48,46,54,0,0, 
47,49,0,50,0,53,48,0,49,51,0,0,0 
,52,50,0,0,0,51,0,0,0,49,0,0,0,4 
7 

650  DATA0, 34, 0,0, 57, 0,0, 0,0, 56,0 
,58,0,0,57,59,64,60,58,0,59,0,61 
,62,0,0,0,60,63,0,60,0,0,62,0,0, 
69,59,65,66,0,0,0,64,0,0,64,67,0 
,68,66,0,67,0,0,0,0,64,70,72,0,0 
,71,69,0,0,0,70,73,0,69,0,83,72, 

652  DATA7, 75, 80, 77, 74, 75, 79, 76, 7 
7,76,75,76,78,76,77,77,78,77,78, 
78,80,79,79,75,81,79,80,80,81,80 
,81,81 

654  DATAIGLOO, OUTSIDE, SNOWBANK, N 


ARROW  PASSAGE  BETWEENCLIFFS , DEAD 

END, ON  THICK  ICE, ICE  FISHING  HO 
LE, BETWEEN  HIGH  SNOWBANKS , CAVE  E 
NTRANCE, IN  CAVE , PASSAGE , 3 -WAY  IN 
TERSECTION , CAVERN  WITH  LARGE 

ICICLES  HANGING  FROM  ROOF 
656  DATAPASSAGEWAY , ON  THIN  ICE, 3 
-WAY  INTERSECTION, CUL-DE-SAC, TUN 
NEL , DEAD  END , TUNNEL , CAVERN , LARGE 

CAVERN, TUNNEL, SMALL  CAVERN, ON  T 
HIN  ICE, SMALL  CAVERN, TUNNEL, PASS 
AGEWAY , TURN  IN  TUNNEL, TUNNEL, TUR 
N  IN  PASSAGE, CUL-DE-SAC 
658  DATABLOCKED  ENTRANCE  TO  TH 
E  ICE  CASTLE, CORRIDOR  -  STAIRWAY 

TOTHE  NORTH , CORRI DOR , CORRI DOR , I 
NTERSECTION  -  HOLE  INWALL  TO  THE 

SOUTH, SMALL  ROOM  -  BLOCKED  EXI 
T, PASSAGEWAY, BEND  IN  PASSAGE, STO 
RAGE  ROOM, TURN  IN  PASSAGEWAY  - 
CREVASSE  TO  THE  WEST 
660  DATATUNNEL  -  CREVASSE  TO  TH 
E  EAST, DEAD  END, INTERSECTION, TUN 
NEL, PASSAGE, BEND  IN  PASSAGE, SMAL 
L  CAVERN, ENTRANCE  TO  ABOMINABLE' 
S  LAIR, ABOMINABLE" S  LAIR, FURTHER 

INTO  LAIR, DEAD  END, DEAD  END, STA 
IRHEAD, CORRIDOR  INSIDE  THE  ICE 

CASTLE, TURN  IN  CORRIDOR 
662  DATAHALLWAY , INTERSECTION, INT 
ERSECTION, CLOSET, FOOT  OF  STAIRS, 
SORCERESS'  LOFT, LOBBY, SMALL  ROOM 
, CORRIDOR, TURN  IN  CORRIDOR  -  A 
BRIGHTLY  LIT  ROOM  TO  THE  SOUTH, B 
RIGHTLY  LIT  ROOM, INTERSECTION, FO 
OT  OF  A  LONG  STAIR-  CASE, TOWER, S 
TABLE  ENTRANCE 

664  DATASTABLE  -  PIT  TO  NORTH  - 
REINDEER  ON  THE  OTHER  SIDE 
666  DATAPACK, MUSKET, ROD, SNOWSHOE 
S , snow, ICE-PICK, SNOWBALL, SHOT, SK 
ATES , CLOTH , HAT , GOGGLES , POWDER , ME 
SSAGE , SNOWMAN , ESKIMO , ICICLES , POL 
AR  BEAR, SIGN, SIGN, SIGN, SIGN, SLED 
, COVER, FOOTPRINTS 

668  DATAKEY, SALT-LICK, MESSAGE, ME 
SSAGE , REINDEER , PRINCESS , BUCKET , B 
ROOM , LANTERN ,  HARPOON , LOCK , SORCER 
ESS , STATUE , DOOR , ABOMINABLE , PIT , C 
REVASSE , CREVASSE 

670  DATALOOK , PACK , REMOVE , WEAR , LO 
AD , GET , SHOOT , READ , PICK , THROW , DRO 
P , PUT , ASK , JUMP , TURN , POINT , INSERT 
, SAY, QUIT, SAVE 

672  DATA1, 1,0, 75, 3, 28, 0,0,8, 17, 3 
2,0,0,19,10,21,13,13,24,26,16,14 
,5,0,12 

674  DATA52,51,38,68,0,0,61,0,33, 
41,0,63,71,55,51,73,42,43  /R\ 
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Sir  Randolf 

Returns 

Program  by  Gregory  Clark 

(Note:  Readers  of  the  first  Rainbow  Book  of 
Adventures  will  recognize  Sir  Randolf  as  the 
main  character  in  THE  RAINBOW'S  very  first 
Adventure  contest  in  1983.  He's  back  again,  this 
time  in  a  more  perilous  situation.) 

ir  Randolf  defeated?  Banished  to  a  dungeon 
full  of  traps  and  monsters?  The  answers,  of 
course,  are  really  up  to  you. 

Born  the  only  son  of  poor  parents  in  974 
A.D.,  our  hero  grows  up  with  a  dream  of 
leading  the  king's  army  of  knights.  One  fateful 
day  he  discovers  a  suit  of  armor  which  belongs 
to  a  knight  visiting  the  king's  castle.  It  seems 
logical  for  him  to  claim  the  knight's  horse.  He 
climbs  aboard  and  a  legend  is  born. 

In  his  travels,  Sir  Randolf  makes  many 
friends,  but  some  powerful  enemies  as  well. 
Among  those  who  despise  him  the  most  is  Ruth, 
an  evil  sorceress,  because  Sir  Randolf  thwarted 
her  attempts  to  conquer  a  remote  area  in  the 
southwest  corner  of  the  kingdom. 

Ruth's  response  is  to  cast  an  evil  spell  over 
Randolf,  during  which  he  is  transported  into 
a  maze  of  dungeons  below  her  habitat.  Here, 
she  feels,  her  "house  pets"  will  keep  Sir  Randolf 
out  of  her  hair  until  old  age  finally  does  him 
in. 
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Unbeknownst  to  Ruth,  however,  there  is  an  escape  to  the  outside  world 
—  a  gate,  even.  But  it  is  locked  and  the  keys  are  somewhere  in  the  dingy 
dungeon.  There  are  also  22  monsters  roaming  around  which  will  make  the 
search  difficult.  They  have  different  levels  of  strength  and  vitality,  which  vary 
according  to  the  harm  they  inflict  upon  Sir  Randolf. 

Thankfully,  food  has  been  stored  at  different  locations  in  the  dungeons. 
Our  hero  does  not  have  to  eat  every  time  he  finds  food.  It  will  remain  fresh 
until  Sir  Randolf  needs  nourishment,  which  usually  is  after  an  encounter  with 
a  monster. 

Sir  Randolfs  strength  level,  along  with  that  of  the  various  monsters,  is 
displayed  on  the  screen  throughout  the  game.  When  he  gets  close  to  a  key, 
an  asterisk  appears  on  the  screen.  As  he  collects  keys,  he  becomes  stronger. 

To  move,  enter  the  first  letter  of  the  direction.  The  up  arrow  means  the 
same  as  "Look  in  the  sack."  An  exclamation  point  (!)  is  the  same  as  "Hit 
with  the  sword."  An  equal  sign  (=)  means  "Stab  with  dagger."  SEARCH 
will  examine  the  area  around  you. 

Before  loading  be  sure  to  enter  PDKE25,G:PDKE2G,1:NEW  to  reserve 
maximum  memory.  Also,  unplug  your  disk  controller. 

Combat  Tips:  If  you  are  told  "there  is  a  wolf  attacking,"  you  have  no 
choice  but  to  fight.  However,  if  "there  is  a  wolf  to  the  west,"  the  element 
of  surprise  is  in  your  favor.  First,  you  attack  with  the  sword  and  you  must 
move  in  that  direction.  You  can  move  in  another  direction  if  you  are  not 
eager  to  fight. 

Be  aware  that  monsters  take  retreat  as  a  sign  of  weakness.  Their  strength 
and  vitality  levels  increase  when  they  are  intentionally  avoided.  Some  of  the 
monsters  are  real  cream  puffs;  others  are  killers. 


(Gregory  Clark,  a  Nynex  technician  in  Syracuse  N.Y.,  writes  Adventure 
games  as  a  hobby.  He's  also  a  science  fiction  buff.) 
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SRANDOLF      32K  ECB 


1  REM  "SIR  RANDOLF  RETURNS "/ENTR 
Y  FOR  2ND  ANNUAL  ' RAINBOW 1  MAGAZ 
INE  ADVENTURE  CONTEST/GREGORY  CL 
ARK/ 12 2  MALE  AVE/SYRACUSE/NY/132 
19/315-487-8406/ANY  QUESTIONS  RE 

THIS  GAME  WRITE  OR  CALL (NOT  COL 
LECT, PLEASE) M-F  6P-9P&SAT+SUN  IP 
-10P  EASTERN  TIME 

2  REM  FOR  32K  EXTENDED  BASIC/<PO 
KE25 , 6 : POKE2  6 , 1 : NEW>BEFORE  LOADI 
NG 

3  CLEAR200,  32711 

4  DIM  R2$ (25) ,R1$ (25) , R2 (25) ,R3 ( 
25) ,R(25) ,FA$(15) ,F(12) ,C(20) ,D( 
21)  ,B$(21)  ,C$(20)  ,D$(20)  ,  LI  (196) 
,L2(196) ,0$(15) ,L$(40) ,P1$(64) 

5  CLS0:FORX=1TO1500:NEXT:FORX=1T 
064:READP1$(X) : NEXT : C=3  2 : F0RX=1T 
091: READA , B : POKEA , B : SOUNDB , 2 : NEX 
T : F0RX=1T07  5 : NEXT 

6  FORX=1TO750:NEXT:FORX=1TO64 :RE 
ADA, B: POKEA, B+C: PLAYP1$ (X) :NEXT: 
FORX=1TO2000:NEXT 

7  Y1$=M05T5L2GF#GL4CGL2EP2L4E04D 
#05EGE04L2C05P4L4E04DCDDL2DP405L 
4FE04D05GE04L2C" : Y$="P405GF#GCCL 
2CP4L4E04D#05EGGL2GP4L4E04DCDDL2 
DP405FE04D04GE04L4CL1CP1" 

8  CLS8:PRINT@102,"SIR  RANDOLF  RE 
TURNS" ; :PRINT@161, "SKILL  LEVELS 
AVAILABLE  ARE  1-9" ; : PRINT@229 , "L 
EVEL  1  IS  THE  EASIEST" ; : PRINT@29 
3,"LEVEL  9  IS  THE  HARDEST" ;: PRIN 
T@356 , "ENTER  SKILL  LEVEL  DESIRED 
it  . 

9  A$=INKEY$:IFA$=""THEN9 

10  IFVAL(A$)>0  AND  VAL  (A$ )  <10THE 
NSK=VAL(A$) :KS=SK:YU=SK:ELSESOUN 
Dip , 4 : CLS3 : SOUND30 , 4 : CLS : G0T08 

11  SCREEN 1,0 

12  F0RX=1T025:READR1$(X) ,R2 (X) ,R 
3 (X) :NEXT:Z$="L150;O5;A":FORX=1T 
025:READR2$(X) : NEXT 

13  FORO=0TO15:PLAYZ$:READO$ (0) :N 
EXT 

14  F0RB=1T021:PLAYZ$:READB$(B) :N 
EXT: FORC=1TO20: PLAYZ $ :READC$ (C) : 
NEXT : FORD=1TO20 : PLAYZ$ : READD$ (D) 
: NEXT : F0RL=1T019  6 : PLAYZ  $ : READL1 ( 
L)  : NEXT : F0RL=1T019  6 : PLAYZ  $ : READL 
2 (L) : NEXT :FORX=1TO40:PLAYZ$: READ 
L$(X) : NEXT 

15  F0RX=1T055:READCS:P0KEX+3  2711 
, CS : NEXT : CLS : PRINT@0 , " " : CLS 8 

16  D(19)=89:C(9)=181:C(9)=108:C( 
8)=13:D(16)=148:D(17)=142:D(18)= 


57:D(15)=19:D(14)=66:RO=SK+2 :D(1 
1)=53:D(12)=53 : D (9 ) =105 : D ( 8 ) =12  7 
:D(1)=172:KC=2 : HA=1 : C ( 1 ) =1 : C ( 2 ) = 
128:C(3)=128:C(4)=3:S3=23:L=123: 
H=112:V=ll:N=l:S=l:C(16)=2:REM  S 
ET  UP  VALUES 

17  HT$(1)="WE  BOTH  DREW  BLOOD" :H 
T$(2)="A  SCORE  FOR  BOTH" : HT$ ( 3 ) = 
"NEITHER  ESCAPED  UNSCATHED" : HT$ ( 
4)="AN  EQUAL  EXCHANGE" : HT$ ( 5 ) ="T 
HE  RASCAL  PAINED  ME" :HT$ (6) ="I  W 
AS  WOUNDED  ON  THAT  EXCHANGE" : HT$ 
(7)="0H,THE  PAIN":HT$(8)="MY  OWN 

LIFE-BLOOD  SPILLED" 

18  GOSUB341:RM=SK+RND(4) 

19  DEFUSR0=32712 :X=USR(0) 

20  HU$(1)="I  RAPPED  HIM  A  GOOD  O 
NE":HU$(2)="MY  AIM  WAS  TRUE":HU$ 
(3)="THAT  PARRY  WAS  MINE":HU$(4) 
="A  STOUT  BLOW  ON  THE  BLACKGUARD 
":HU$(5)="WE  BOTH  HIT  ONLY  AIR": 
HU$(6)="WE  DANCED  PRETTILY" : HU$ ( 
7)="N0  SCORE  FOR  EITHER" : HU$ ( 8 ) = 
"WE  BOTH  MISSED" 

21  PRINT§0, "location" ; :POKE1032, 
5  8 : PRINT  @  3  2 , " move  s " ; : POKE 1061 , 58 
:PRINT@64,"i  see"; : POKE1089 , 32 : P 
OKE1093,58:PRINT@196, "what  do  yo 
u  wish  to  do"; : POKE1224 , 32 : P0KE1 
227,32:POKE1231,32 

22  POKE123  6,32:POKE1239,32:POKEl 
242, 32 :PRINT@160, "strength" ; :POK 
E1192 , 58 : FORX=1510TO152  8 : READSR, 
RS : POKESR, RS : NEXT : F0RX=1T015 : REA 
DFA$ (X) : NEXT 

23  PRINT@128,"i  have" ; : POKE1153 , 
32:POKE1158,58:POKE1216,60:POKE1 
217, 60:POKE1218, 60:POKE1219, 60:P 
OKE124  3,63:POKE1244,62:POKE1245, 
62 : POKE1246 , 62 : POKE1247 , 62 : FORX= 
1193T01215:POKEX, 175:NEXT 

24  AA=(SK*.033) :IFSK>3THENF0RX=1 
T025:R2 (X)=R2 (X)+(SK*.35) :R3 (X)= 
R3  (X)  +  (SK*.2)  :NEXTX 

25  DI$ ( 1) =" NORTH" : DI$ (2 ) =" SOUTH" 
:DI$ (3)="EAST" :DI$ (4)="WEST" 

26  IFRP=0ANDAU=1THEN205 

27  RP=0:B=0:C=0:D=0:AD=AD+1:LL=0 
:S3=S3-AA:GOSUB227:PRINT@9,L$ (LI 
(L) ) ; :PRINT@43,0$ (L2 (L) ) ; 

28  GOSUB355:GOSUB361:GOSUB370 

29  PLAY"T2L100;O4 ;E" : :PRINT@224, 
"" ; :LINEINPUT"" ;A$ 

30  IFA$="SAVE"THEN434 

31  IFA$="HELP"THENX=USR(0) :G0T04 
62 

32  IFA$="LOAD"THEN448 
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33  IFLEN  (A$)  <1THENPLAY"L80 ;02  ;AP 
10D"  :  FORX=1248T01279  :  POKEX, 207 :N 
EXT:GOT029 

34  X=USR(0) 

35  IFLEN (A$) =1THEN42 

36  F0RB=1T021:WW$=B$ (B) :WW=INSTR 
(1,A$,WW$) :IFWW>0THENVW=LEN(B$ (B 
) ) :GOTO37ELSENEXT:B=0:PRINT@256, 
"I  CAN'T  DO  THAT" ; :GOT026 

37  FORY=lTOVW:MID$ (A$,WW, 1)="  ": 
WW=WW+l:NEXT 

38  IFB=180RB=3THEN394 

39  FORC=1TO20:WW$=C$ (C) :WW=INSTR 
(1,A$,WW$) :IFWW>0THENGOTO50ELSEN 
EXT:C=0:GOTO40 

40  FORD=1TO20:WW$=D$ (D) :WW=INSTR 
(1,A$,WW$)  :IFWW>0THEN50ELSENEXT: 
D=0 

41  GOTO50 

4  2  IFA$="N"AND  N=1THENV=V-1 : GOTO 
295 

43  IFA$="S"ANDS=1THENV=V+1:G0T02 
95 

44  IFA$="E"ANDE=1THENH=H+14 : GOTO 
295 

45  IFA$="W"ANDW=1THENH=H-14 : GOTO 
295 

46  IFA$=I|A|ITHENB=1ANDC=3  :GOT0321 

47  IFA$=" [ "THEN334 

48  IFA$="! "ORA$="="THEN329 

49  PRINT@256, "I  CAN'T  OBEY";: GOT 
026 

50  REM 

51  IFB=14THENGOT0375 

52  IFB=20THENGOTO380 

53  IFB=16THENP$=" " : PRINT@224 , ; 
: LINEINPUT" WHERE? " ; P$ : IFP$="SACK 
"THENX=USR(0) :GOTO389ELSEX=USR(0 
) 

54  REM  REPLENISH  FOOD+DRINK 

55  IFAD>250THENRM=KS:RO=KS:AM=0: 
IFC(16)=0THENC(16)=LL:PLAY"L200A 
P10A" :AC=0 

56  IFAD=0THENAC=0:IFC(16)=0THENC 
( 1 6 ) =2 : 1 FKC<  8  THENKC=KC+ 1 

57  REM  SELECT  RESULTS  BY  LOCATIO 
N 

58  H1=(H+14)/14 

59  ON  V  001060,72,88,93,95,  10)3,1 
07,109,111,116,121,127,129,141 

60  REM  VI 

61  IFH1=4THEN62ELSE70 

62  PLAYY1$ : Y=0 : CLS8 

63  PRINT§X, "CONGRATULATIONS ! " ; : X 
=X+16 : IFX>479THEN64ELSE63 

64  PRINT@483, "SIR  RANDOLF  HAS  ES 
CAPED! ! !" ; : PLAYY1$ : PLAYY$ 

65  CLS4:Y=1 

66  PRINT@12 , "SUMMARY: " ; : PRINT@65 


, "SKILL  LEVEL  PLAYED=" ; YU; : PRINT 
@ 12 9, "OPPONENTS  FACED=" ; : F0RX=1T 
025 : IFR (X) =1THENY=Y+1 : NEXTELSENE 
XT : PRINTY ; : PRINT@ 193 , "TIMES  SIR 
RANDOLF  EXPIRED=" ;AH; :GOSUB423 

67  IFSK<9ORAH>0THENPRINT@386, "PE 
RHAPS  NEXT  TIME  YOU  WILL  DO";: PR 
INT@424,"A  LITTLE  BETTER? ";: PLAY 
Yl$ : PLAYY$ : END 

68  PLAY  Y1$:PLAYY$:PRINT@384, "CO 
NGRATULATIONS-YOU  HAVE  WON  ON";: 
PRINT@416, "THE  HIGHEST  SKILL  LEV 
EL  WITHOUT" ; : PRINT@448 , "EXPIRING 

EVEN  ONCE .  BUT , CAN  YOU" ; : PRINT@ 
4  8  9, "DO  IT  AGAIN?"; 

69  PLAYY1$ : PLAYY$ : END 

70  REM 

71  GOT0146 

72  REM  V2 

73  IFH1=8THEN74ELSE86 

74  IFB=10ANDD=9THEN75ELSE77 

75  IFSK<4THENPRINT@256, "IT  IS  MA 
DE  OF  HEAVY  IRON  BARS.  THERE  AR 
E  FOUR  KEYHOLES.  IT  IS  IN  THE  W 
EST  WALL."; :D(10)=105:GOTO2  6 

7  6  PRINT© 2 5 6, "IT  IS  MADE  OF  HEAV 
Y  IRON  BARS.  THERE  ARE  FIVE  KEY 
HOLES. IT  IS  INTHE  WEST  WALL.";:D 
(10)=105:GOTO26 

77  IFB=10ANDD=10THEN78ELSE80 

78  IFSK<4THENPRINT@256 , "ONE  IRON 
,ONE  BRASS, ONE  SILVER,  ONE  GOLD 
11 ; :  G0T02  6 

79  PRINT@256 , "ONE  IRON, ONE  BRASS 
,ONE  SILVER,  ONE  GOLD, " ; : IFRL=1 
THENPRINT"THE  JADE  ONE  IS  SMASHE 
D" ; :GOT02  6ELSEPRINT"ONE  JADE" ; :G 
OT026 

80  IFB=1ANDD=9THEN8 1ELSE85 

81  IFRJ=0THENIFC(17)=1ORC(17)=2O 
RC ( 17 ) =105THENIFC ( 18 ) =10RC ( 18 ) =2 
ORC ( 18 ) =105THENIFC ( 19 ) =10RC ( 19 ) = 
20RC ( 19 ) =105THENIFC ( 20 ) =10RC ( 20 ) 
=2ORC(20)=105 THENRK= 1 

82  IFSK<4ANDRK=1ANDRJ=0THENPRINT 
@256,"THE  GATE  SLID  0PEN";:L2(L) 
=15 : RJ=1 : G0SUB4 18 : G0T02  9  5 

8  3  IFSK>3ANDRK=1ANDRJ=0ANDRL=1TH 
ENPRINT@2  56 , "THE  GATE  SLID  OPEN" 
; :L2 (L)=15:RJ=l:GOSUB418:GOT0295 

84  IFRJ=0THENPRINT@256 , "THE  GATE 
DID  NOT  BUDGE" ; : G0T02 6ELSEPRINT 

@256,"THE  GATE  IS  ALREADY  OPEN" ; 
:GOT02  6 

85  IFB=17ANDD=10ANDRL=0THENPRINT 
@256, "" ; : LINEINPUT "WHICH  ONE?" ;A 
$ : X=USR (0 ) : IFA$=" JADE"THENPRINT@ 
256, "IT  BROKE  INTO  MANY  SMALL  PI 
ECES" ; :RL=l:GOT026ELSEPRINT@256, 
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"NO  AFFECT"; :GOT026 

86  REM 

87  GOT0146 
8  8  REM  V3 

89  IFH1=11THEN90ELSE91 

90  IFB=10ORB=21THENIFD=16ANDKQ=0 
THENKQ=1 : C (5) =148 : PRINT@2  56 , "A  D 
AGGER  SHEATH  MADE  OF  SILVER";: GO 
T02  6 

91  REM 

92  GOT0146 

93  REM  V4 

94  GOT0146 

95  REM  V5 

96  IFH1=5THEN97ELSE98 

97  IFB=21ANDD=14ANDRW=0THENC(14) 
=66 : RW=1 : PRINT@256 , "A  LARGE ,  DIAM 
OND  BROACH" ; : GOT02  6 

98  REM 

99  GOT0146 


1 

my 

fib 

100  REM  V6 

101  IFH1=4THEN102ELSE105 

102  IFB=10ANDD=11ANDRN=0THENPRIN 
T@256 , "ROUGH  WOOD-HAS  A  HINGED  L 
ID"; :D(12)=53:GOT0295 

103  IFB=2 1ANDD=12ANDRN=0THENPRIN 
T@256, "SOMETHING  IS  WRONG-BUT  WH 
AT?" ; :GOT026 

104  IFB=9ANDD=12ANDRN=0THENPRINT 
@256,"THE  LID  IS  OPEN" ; : FORZ=lTO 
500: NEXT: PRINT"???! ! !"; :FORZ=lTO 
750 :NEXT: PRINT@288 , "THE  CHEST  SH 
IMMERED  AND  CHANGED  INTO  A  FLAGO 
N  OF  ALE  AND  SOME  BISQUITS!!"; 
:D(11)=0:D(12)=0:RN=1:C(13)=53:G 
OT02  6 


105  REM 

106  GOT0146 

107  REM  V7 

108  GOT0146 

109  REM  V8 

110  GOT0146 

111  REM  V9 

112  IFH1=9THEN113ELSE114 

113  IFB=2 1ANDD=8ANDC ( 12 ) =0ANDRM> 
0THENPRINT@256 , "I  FOUND  A  SMALL 
LOAF  OF  DARK" ; :PRINT@2 88, "BREAD 
AND  A  BOTTLE  OF  BRANDY" ;: C ( 12 ) =1 
26:RM=RM-l:GOT026 

114  REM 

115  GOT0146 

116  REM  V10 

117  IFH1=4THEN118ELSE119 

118  IFB=21ANDD=18ANDRY=0THENRY=1 
: PRINT@256 , "A  LARGE  RUBY";:C(7)= 
57 : X=RND ( 6 ) +RND ( 6 ) : IFX=7THENPRIN 
T@320,"A  SMALL  RED  SNAKE  BIT  MY 
FINGER" ; : S3=S3-RND (5) :GOT026ELSE 
GOT02  6 

119  REM 

120  GOT0146 

121  REM  Vll 

122  IFH1=10THEN123ELSE125 

123  IFB=10ANDD=17THENPRINT@256, " 
THE  IMAGE  OF  A  DRAGON  ON  THE  TOP 
m ; : GOTO 2  6 

124  IFB=9ANDD=17ANDRX=0THENX=RND 
(6)+RND(6) :IFX>10THENPRINT@2  56/ " 
YELLOW  GAS  ISSUED  FORTH, MY  LEGS 
FEEL  WEAK, THE  TOP  IS  OPEN";:S3=S 
3/5 : RX=1 : C ( 6 ) =14  2 : GOT02  6 : ELSEPRI 
NT@256,"THE  TOP  IS  OPEN" ; : C ( 6 ) =1 
42 :RX=l:GOT02  6 

125  REM 

126  GOT0146 

127  REM  V12 

128  GOT0146 

129  REM  V13 

130  IFH1=12THEN131ELSE133 

131  IFB=10ANDD=1THENPRINT@256, "W 
OODEN , VERY  SOLID" ; : GOT02  6 

132  IFB=9ANDD=1ANDAI=0THENAI=1:L 
2 (167)=10:E=1:PRINT@256, "THE  DOO 
R  IS  OPEN" ; :GOT026 

133  IFH1=13THEN134ELSE139 

134  IFB=10ANDD=2THENPRINT@256, "C 
OVERED  WITH  LOOSE  STRAW" ;: LI ( 181 
) =9 : D ( 13 ) =186 : GOT02  6 

13  5  IFB=21ANDD=2ANDAJ=0THENPRINT 
@256,"A  TRAP  DOOR  WITH  A  PULL-RI 
NG  IS  UNDER  THE  STRAW" ; : D (4 ) =186 
:AJ=l:D(7)=186:Ll(181)=9:GOT02  6 
136  IFB=2 1ANDD=4THENPRINT@ 2 5 6 , "T 
HERE  IS  A  SMALL  PIN  ON  THE  RING" 
; : :AL=l:D(5)=186:GOT026 
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137  IFAK=0ANDB=8ANDD=4THENIFAL=1 
THENPRINT@2  56 , "THE  TRAP  DOOR  IS 
OPEN" ; : AK=1 : GOT02  6 : ELSES3=S3 - (RN 
D (5) +2 ) : PRINT@2  56 , "OUCH!   THERE  W 
AS  A  POISONED  PIN     ON  THE  RING, I 

FEEL  WEAKER.   THE     TRAP  DOOR  IS 
OPEN"; :AK=l:D(5)=186:GOT026 

138  IFB=10ANDD=6ANDAK=1THENIFAM< 
SK+3  ANDC(11)=0  ORAM<SK  ANDC(ll) 
=186THENC (11) =186 : PRINT@256 , "I  S 
EE  A  FLASK  AND  A  SMALL  PIECE  OF 
DRIED  BEEF"; : GOT026ELSEPRINT@256 
, "EMPTY" ; :GOT026 

139  REM 
14/3  GOT0146 

141  REM  V14 

142  IFH1=6THEN143ELSE146 

143  IFB=8ANDD=19ANDRZ=0THENRZ=1: 
D(20)=89:PRINT@256, "A  GHOST  OF  A 

LONG-DEAD  PRISONER  APPEARED  IN 
THE  CELL" ; :GOT026 

144  IFB=10ANDD=20ANDD(20)=89THEN 
PRINT@256, "THERE  IS  SOMETHING  OF 

SUBSTANCE  IN  IT'S  GHOSTLY  HANDS 
"; :GOT026 

145  IFB=15ANDD(20)=89THENPRINT@2 
56, "A  MORTAL'S  VOICE  WAS  WHAT  WA 
S"; :PRINT§288, "NEEDED  TO  FREE  HI 
S  SPIRIT  FROM"  ; :  PRINT@320 ,  "THIS 
ACCURSED  PLACE"; : C ( 15) =89 : D (20) = 
0:PRINT@395, "THUD" ; :GOT02  6 

146  REM  CONDITIONS  NOT  FOUND 

147  IFAR<>0ANDB=10THEN148ELSE149 

148  F0RX=1T02  5:WW$=R1$(X) :WW=INS 
TR(1,A$,WW$) :IFWW>0ANDAR=X  THENP 
RINT@256,R2$  (X)  ;  : GOTO20 5ELSENEXT 

149  IFB=10THEN150ELSE156 

15)3  X=RND(5):ON  X  GOT0151 , 152  , 15 
3,154,155 

151  PRINT@256,"I  SEE  NOTHING  SPE 
CIAL" ; : GOT02  6 

152  PRINT @ 2 5 6, "LOOKS  NORMAL" ;: GO 
T02  6 

153  PRINT@256 , "IT  SEEMS  ORDINARY 
" ;  :GOT026 

154  PRINT@256 , "UNDISTINGUISHED" ; 
:GOT02  6 

155  PRINT@256, "APPEARS  COMMONPLA 
CE"; :GOT026 

156  IFB=15THENPRINT@256, "I  SAID 
THE  FOLLOWING: " ; : PRINT@288 , A$ ; :P 
RINT@320, "-BUT  ABSOLUTELY  NOTHIN 
G  HAPPENED" ; :GOT026 

157  IFB=21THEN158ELSE164 

158  X=RND(5):ON  X  GOT0159  , 160 , 16 
1,162,163 

159  PRINT@256,"I  SEARCHED, BUT  FO 
UND  NOTHING" ; : GOT02  6 

160  PRINT§256,  "LOOKS  NORMAL  AT  F 


IRST  GLANCE" ; :GOT02  6 

161  PRINT@256, "SEARCH  NEGATIVE"; 
:GOT026 

162  PRINT@256, "NOTHING  SPECIAL  F 
OUND"; :GOT02  6 

163  PRINT@256, "MAYBE  I  SHOULD  TR 
Y  AGAIN?" ; :GOT02  6 

164  IFAN=0THENX=RND(150)  :IFX=50T 
HENPRINT@256, "EVERYTHING  IS  FUZZ 
Y"  ;  :  FORY=1TO1500  :  NEXT :  SCREEN1 , 0  : 
F0RY=1T025 :  PLAY"Llpp ; 01 ; AP1J3B"  : N 
EXT:  L=122  :H=112  :  V=lj3 :  S3=2  3  :  SCREE 
NJ3 ,  j3  :  PRINT@256 ,  "THAT  EVIL  RUTH  I 
S  TOYING  WITH  ME" ; : D (8) =127 : AN=1 
:GOT0295 

165  X=RND(15) :PRINT@256,FA$(X) ; : 
GOT02  6 

166  GOT02  6 

167  REM 

168  RP=1:IFRF=1THENAZ=0:AY=J3:GOT 
0197: REM  SUBROUTINES  BASED  ON  LO 
CATION+LOCATION  VALUE 

169  IFAU=lTHEN2j35ELSER6=,0:AR=j3:R 
5=0 :  RG=J3 :  AY=j3 :  AX=0 

17j3  IFRV=1THENG0T02  6 

171  SK=KS:FORZ=17TO20:IFC(Z)=1OR 
C(Z)=2THENSK=SK+1 

172  NEXTZ 

173  IFL=107ORL=120ORL=121ORL=12  2 
0RL=135THEN2  6 

174  IFAD>RQ+16THEN175ELSEIFAD<RQ 
THENRQ=AD : G0T02  6ELSEGOT02  6 

175  X=RND(SK) :Y=RND(10) :IFX+Y>9T 
HEN176ELSE26 

176  AZ=p:AY=0:RE=0:AS=0:AQ=Ll(L) 

177  RQ=AD 

178  IFL=167THENAR=2  3 :GOT0185 

179  IFAQ=50RAQ=6THENAR=25:GOT018 
5 

180  IFAQ=10RAQ=20RAQ=160RAQ=17TH 
ENAR=RND (10) :GOT0185 

181  IFAQ=3THENAR=ll:GOT0185 

182  IFAQ=2  60RAQ=290RAQ=120RAQ=19 
THENAR=RND ( 10 ) +10 : GOT0185 

183  IFAQ=270RAQ=2  3THENAR=22:GOTO 
185 

184  AR=RND (21) 

185  IFAS>10THENGOTO2 6ELSEIFR (AR) 
=1THENAR=AR-1 : AS=AS+1 : IFAR<1THEN 
AR=22 

186  IFR(AR)=1THEN185 

187  AU=1:RI=0 

188  REM  SURPRISE 

189  R4=RND(8) : IFR4>5THENR4=0 : GOT 
O205ELSER4=1 

190  IFL2 (L) <5THENR4=0 : GOTO205 

191  X=RND(4) :0N  X  GOT0192 , 193 , 19 
4,195 

192  IFN=1THENR5=1:GOTO205 
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193  IFS=1THENR5=2 :GOTO205 

194  IFE=1THENR5=3:GOTO205 

195  IFW=1THENR5=4:GOTO205 

196  GOT0192 

197  REM  COMBAT+ROUTINE  RUNNING  R 
ETURN  LINE 

198  RP=1:RF=0:RH=1 

199  IFA$="N"ANDR5=1THENR4=0 : GOTO 
204 

200  IFA$="S"ANDR5=2THENR4=0 : GOTO 
204 

201  IFA$="E"ANDR5=3THENR4=0 : GOTO 
204 

202  IFA$="W"ANDR5=4THENR4=0 : GOTO 
204 

203  R(AR)=0:AU=0:R2 (AR)=R2 (AR)+R 
ND(4) :GOT026 

204  IFC ( 1) =1THENA$=" ! "ELSEIFC (2  ) 
=1THENA$="="ELSEA$="  " 

205  RP=1:AY=0:AZ=0:PRINT@352, "A 

" ;R1$ (AR) ; : IFR4=0THENPRINT"  ATTA 
CKING"; :AU=l:RI=RI+l:GOTO208 

206  PRINT@384, "IS  TO  THE  ";DI$(R 
5) ; :R6=L:R4=l:RF=l:GOT026 

207  IFA$="!"THENX=RND(8)+RND(8)+ 
RND ( 8 ) +RND ( 8 ) +RND ( 8 ) +RND ( 8 ) : IFX= 
6THENPRINT@256 , "MY  SWORD  SUDDENL 

Y  FADED  AND  IS  NO  LONGER  IN  MY 
HAND! ! " ; :C(l)=12  6:HA=HA-l:A$="" 

208  IFA$=" ! "THENAV=INT ( RND ( 4 ) + ( S 
K/3) ) :AU=1:ELSEIFA$="="THENAV=IN 
T(RND(2)+(SK/4) ) :AU=1 

209  IFA$=" ! "0RA$="="THENRA=1ELSE 
RA=0 

210  IFRH=1THENRH=0:AX=15:GOTO215 

211  AW=RND(6)+RND(6) :AX=RND(6)+R 
ND(6)+(S3*.l) :AX=INT(AX) 

212  IFAW<R3 (AR) +RND (R2 (AR) ) +RND ( 
2)THENS3=INT(S3-RND(R3 (AR) ) ) :AY= 
1 

213  IFS3=<0THENR(AR)=l:AU=0:FORX 
=119  3T01215 : POKEX, 208 : NEXT : GOT03 
35 

214  X=RND(6)+RND(6)+RND(6)+RND(6 
) : IFX=24THENPRINT@416 , "I  SLIPPED 
!  "  :  PRINT@448  ,  "THE  "Rl$  (AR)  11  ADVA 
NCES ! " ; : FORX=119  3T01215 : POKEX, 20 
8 : NEXT : AU=0 : R ( AR) =0 : RF=0 : S3=-2 : G 
OT0335 

215  IFRA=1THENIFAX> (R3 (AR) *2 ) -IT 
HENX=RND(100) :IFX<100-SK  THENR2 ( 
AR) =R2 (AR) -AV: AZ=1 

216  RG=RG+l:IFRG=<2THEN218 

217  X=RND(6)+RND(6)+RND(6)+RND(6 
) :IFX=4THENPRINT@416, "THE  "Rl$ (A 
R) "  FELL" ; :PRINT@448, "I  MADE  EAS 

Y  WORK  OF  IT"; :R(AR) =1 : AU=0 :RF=0 
:GOT02  6 

218  IFRT=<>1THENX=RND(6)+RND(8) : 


IFX=2THENPRINT@352 , "THE  " ;R1$ (AR 
);"  RETREATED"; : PRINT© 3 8 4,  "IT  IS 
NO  LONGER  IN  SIGHT" ;: R (AR) =0 :AU 
=0 : R2 ( AR) =R2 (AR) +RND ( 3 ) : RP=1 : GOT 
026 

219  IFR2 (AR)=<0THENGOSUB227:PRIN 
T@352,"THE  "R1$(AR);"  IS  DEFEATE 
D" ; : PRINT@384 , "I  AM  THE  VICTOR!! 
! " ; : PLAY"T20"+Y1$ : R ( AR) =1 : AU=0 : P 
RINT@416 , "THE  BODY  FADED  AND  DIS 
APPEARED" ; : IFRT=1THENRU=1 : GOT02  6 
ELSEGOT026 

220  IFAY=1ANDAZ=1THENX=RND (4 ) : PR 
INT@448,HT$(X) ; :RP=l:GOT026 

221  IFAY=1THENX=RND(4) :PRINT@448 
,HT$(X+4) ; :RP=l:GOT026 

222  IFAZ=1THENX=RND(4) :PRINT@448 
,HU$(X) ; :RP=l:GOT02  6 

223  IFRA=0ANDA$=" "ORRA=0ANDRI<>1 
ANDC  ( 1 )  OIANDC  ( 2  )  <>1THENPRINT@ 4 1 
6, "IT  MISSED-OH!  HOW  I  WISH  I  HA 
D  AWEAPON  IN  MY  GRASP" ;: RP=1 : GOT 
026 

224  IFRA=0THENPRINT@416, "IT  MISS 
ED! " ; :RP=l:GOT02  6 

225  X=RND(4) : PRINTG448 , HU$ (X+4) ; 
:RP=l:GOT026 

226  RP=l:GOT026 

227  REM  DAMAGE 

228  S1=INT(S3) : IFS1>22THENS1=22 

229  IFS1=S2  THENRETURNELSES 2 =S 1 

230  IFSK5THENCC=191:CE=0:IFCD=0 
THENSOUND200, 3:CD=1 

231  IFSK9  AND  Sl>4  THENCC=159:C 
D=0 : IFCE=0THENSOUND100 , 3 : CE=1 

232  IFS1>8THENCC=175:CE=0 

233  IFS3<-1THENG0T0335 

234  F0RX=1193T01193+S1: POKEX, CC: 
NEXT 

235  IFS1=22THENRETURN 

236  F0RX=1194+S1  T01215 : POKEX, 20 
8 : NEXT : RETURN 

237  DATA  , , , T703L4G, L2C, L4B, A, L2 
G,L4A,B,C,E,E,F,D,L102C, , , ,03L4G 
,L2C,L4B,A,L2G,L4A,B,C,E,E,F,D,L 
102C, , , , ,03L4G,E,02C,03E,G,L2C,L 
4A,B,C,B,G,A,F#,L2G,L4A,B,L2C,L4 
B,A,L2G,L4A,B,C,E,E,F,D,02L1C 

238  DATA  1067,158,1068,156,1069, 
156 , 1071, 149 , 1072 , 154 , 1074 , 158 , 1 
075, 156, 1076, 157, 1218, 190, 1219, 1 
88,1220,189,12  2  2,182,122  3,188,12 
24,185, 122  6, 187, 1228, 181, 1230, 19 
0, 12  31, 188, 1232, 178,1234, 182, 12  3 
5, 188, 1236, 185, 12  38, 186, 1242, 190 
,1243,188,1244,188 

239  DATA  1099,155,1100,147,1101, 
147, 1103, 149, 1104, 154, 1106, 155, 1 
107, 147, 1108, 151, 1250, 187, 1251,1 
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79,12  52,183,1254,186,1256,181,12 
58, 186, 12  59, 186, 12 60, 181,12  62, 18 
6,12  64,181,12  66,18  6,1268,181,127 
0, 186,1274, 187, 1275, 179 

240  DATA  1133,149,1135,149,1136, 
154,1138,154,1139,153,1282,186,1 
283, 185, 1286, 190, 1287, 188, 1288, 1 
89, 1290, 186, 1291, 181, 1292, 181, 12 
94,186,1296,181,1298,186,1300,18 
1,1302,186,1306,186 

241  DATA  1163,147,1164,147,1165, 
151,1167,149,1168,154,1170,154,1 
172, 153, 1314, 186, 1316, 185, 1318, 1 
86, 1320, 181, 1322, 186, 1324, 189, 13 
26,187,1327,179,1328,184,1330,18 
5,1331,179,13  32,182,13  34,187,133 
5,179,1336,179,1338,186 

242  DATA  1378,142,1410,139,1442, 
138,1474,138,1379,140,1380,141,1 
412,135,1411,131,1443,137,1476,1 
37 

243  DATA  1384,140,1383,140,1382, 
142,1414,139,1446,138,1478,139,1 
479,131,1480,131,1415,131 

244  DATA  1386,140,1387,142,1388, 
140, 1419, 138, 1451, 138, 1483, 13  8 

245  DATA  1390,138,1422,138,1454, 
138,1486,139,1487,131,1488,135,1 
456,133,1424,133,1392,13  3 

246  DATA  1394,142,1426,139,1458, 
138, 1490, 138, 1395, 140, 1396, 141, 1 
428,135,1427,131,1459,137,1492,1 
37 


247  DATA  1398,139,1430,138,1462, 
138, 1494, 138, 1431, 138, 1463,133,1 
496,141,1464,133,1432,133,1400,1 
33 

248  DATA  1404,140,1403,140,1402, 
142,1434,139,1435,131,1436,131,1 
4  68,133,1500,135,1499,131,1498,1 
31 

249  DATA  WHITE  WOLF ,4,2, WHITE  AP 
E , 7 , 3 , LION , 5 , 2 , MUMMY ,6,3, HARPY , 6 
,3, BLACK  PANTHER, 5, 2, GNOME, 4, 2, G 
I ANT  TARANTELLA, 9, 5, HUGE  COBRA, 4 
, 2 , SCORPION ,4,2, SKELETON ,2,1, WHI 
TE  DRAGON, 6, 3 , BROWN  BEAR,7,3,BRO 
WN  APE,5,2,HALFLING,2,1 

250  DATA  HELLHOUND, 8, 4, GIANT  SHR 
EW , 4 , 2 , DWARF ,3,1, HARPY ,4,2, GIANT 

WEASEL, 6, 3, BLACK  BEAR , 6 , 3 , HUGE 
GRAY  RAT, 4, 4, TROLL, 8, 4, BLACK  DRA 
GON,8,4,RED  DRAGON, 11, 6 

251  DATA  RED  EYES-SHARP  TEETH, 7' 
TALL-VERY  LONG  ARMS , GLEAMING  TE 

ETH+CLAWS , LOOKS  LIKE  AN  ACCIDENT 
VICTIM-     EXCEPT  FOR  THE  SWORD  I 

N  HIS  HAND, A  BIRD  WITH  A  WOMAN'S 
HEAD, YELLOW  EYES-WHITE  TEETH, AR 

MED  WITH  A  HEAVY  CLUB, DRIPPING  F 

ANGS -HAIRY  BODY 

252  DATA  8  FEET  LONG-10  INCHES  T 
HICK, I'D  RATHER  NOT, FUGITIVE  FRO 
M  A  DOCTOR'S  OFFICE-BUT  HAS  A  NA 
STY  LOOKING  SWORD, PUFFS  OF  SMOKE 

FROM  HIS  NOSTRILS, WALKING  ON  HI 
ND  LEGS-9  FEET  TALL, 5'   TALL  AND 
ABOUT  AS  WIDE-STRONG, A  BLADE  IN 
EACH  HAND 

253  DATA  FIRE  RED  EYES -HUGE  JAWS 
+TEETH, SMALL  BLACK  EYES-LARGE  TE 
ETH, A  CLUB  AND  DAGGER  IN  HAND, WO 
MAN'S  HEAD  ON  A  BIRD'S  BODY, MORE 

TEETH  COULD  NOT  FIT  IN  IT ' SMOUT 
H,PUT  A  SADDLE  ON  IT  AND  YOU  COU 
LDRIDE  IT, VICIOUS  TEETH , LEATHER 
ARMOR-HUGE  CLUB 

254  DATA  LOOKING  FOR  A  MEAL  RATH 
ER  THAN  ANEW  FRIEND, I  WOULD  RATH 
ER  LOOK  AT  RUTH 

255  DATA  NONE  ,N,S, 

E,W,N  S,N  E,N  W,S  E,S 
W,E       W,N       S       E,N       S  W,N 

E       W,S       E       W,N  SEW 

256  DATA  UNLOCK, THROW, DRINK, CLOS 
E , VIEW , STAB , PUSH , PULL , OPEN , LOOK , 
LOCK , LIST , GIVE , DROP , SAY , PUT , HIT , 
EAT , DIG , GET , SEARCH 

257  DATA  SWORD, DAGGER, SACK, ROPE , 
SHEATH , AX , RUBY , CROWN , NECKLACE , BU 
CKLE , FLASK&  BEEF , BREADS BRANDY , ALE 
&BISQUITS, BROACH, GOLD  BAR, JERKY & 
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WINE, GOLD  KEY, SILVER  KEY, BRASS  K 
EY, IRON  KEY 

258  DATA  DOOR, FLOOR, WALL, RING, PI 
N, DOWN, TRAP  DOOR, BOAT , GATE , KEYHO 
LES , CHEST, LID, STRAW, POOL, BASIN, N 
I CHE, BRONZE  COFFER, PILE  OF  BONES 
, CHAIN, GHOST 

259  DATA  10,10,10,10,5,5,5,33,16 
,16,1,1,4,15 

260  DATA  10,10,10,10,5,5,5,19,16 
,4,4,1,4,4 

261  DATA  10,10,10,10,5,5,5,19,1, 
4,4,25,26,26 

262  DATA  24,32,20,20,17,30,29,19 
,1,12,19,19,29,26 

263  DATA  32,32,29,14,28,14,29,19 
,2,33,19,8,29,3 

264  DATA  6,6,6,34,6,34,29,26,26, 
29,19,19,29,3 

2  65  DATA  6,6,6,6,6,2,4,4,29,29,2 
9,19,29,3 

266  DATA  6,35,34,26,12,2,4,4,13, 
12,12,26,29,3 

267  DATA  12,6,6,26,29,29,29,13,1 
1,13,29,26,26,12 

268  DATA  6,6,6,6,6,6,4,4,13,26,3 
6,26,2,36 

269  DATA  29,6,25,5,5,29,4,4,29,2 
6,37,2,2,1 

270  DATA  29,6,29,5,5,38,2,2,26,3 
9,16,2,1,27 

271  DATA  4,4,29,5,5,5,1,40,4,4,1 
,1,31,27 

272  DATA  4,4,26,5,5,5,1,30,4,4,3 
0,27,27,23 

273  DATA  8,11,11,6,8,11,6,3,8,5, 
5,6,8,6 

274  DATA  14,15,15,13,14,15,15,13 
,10,8,6,9,13,7 

275  DATA  9,15,15,13,9,12,7,10,10 
,9,15,1,9,6 

276  DATA  3,10,9,12,1,2,6,10,9,1, 
14,6,8,7 

277  DATA  9,7,8,11,5,1,13,10,8,1, 
10  ,  4 , 14  , 1 

278  DATA  8,5,7,4,10,3,9,13,10,8, 
12,6,14,1 

279  DATA  10,8,5,5,7,10,8,11,13,1 
4,6,10,14,1 

280  DATA  9,11,1,8,1,10,9,7,4,4,4 
,14,12,1 

281  DATA  3,9,6,9,5,15,11,1,15,2, 
5,13,8,1 

282  DATA  14,11,12,5,1,10,14,6,10 
,8,1,10,14,1 

283  DATA  10,10,2,11,11,13,9,7,14 
,13,3,14,15,6 

284  DATA  10,9,6,14,13,4,8,5,13,4 
,10,10,4,10 


285  DATA  14,6,10,14,15,6,10,3,14 
,6,14,13,4,10 

286  DATA  9,7,9,12,12,7,9,7,9,12, 
7  9  5  7 

2 8 7  DATA  DIRT-LINED  TUNNEL, WOOD- 
LINED  TUNNEL, SMALL-STONE  CELL, SM 
ALL  CAVERN, IMMENSE  CAVERN, MORTIS 
ED  STONE  PASSAGE, SMALL  CHAMBER, G 
REAT  CHAMBER, SMALL  ROOM , ENORMOUS 

ROOM 

288  DATA  CENTER  OF  LAKE  IN  BOAT, 
ROCK  STREWN  CHAMBER, SHORE  OF  VAS 
T  LAKE, EDGE  OF  POOL  OF  WATER, NEA 
R  SULFUROUS  BASIN, CONFINING  DIRT 

SHAFT, BROAD  CORRIDOR, CRAMPED  CU 
BICLE,WIDE  STONE  HALLWAY , SPAC I OU 
S  ALCOVE 

289  DATA  CUBICLE, DAMP  CRYPT, FOUL 
-SMELLING  VAULT, EXIT, SMALL  CAVIT 
Y  OFF  CAVERN , NARROW  STONE  PASSAG 
E, SLIME-COVERED  SEWER, IN  POOL,RO 
UGH  STONE  PASSAGE, BRICK  HALLWAY 

290  DATA  EMPTY  ROOM, CARPETED  HAL 
LWAY, CUL-DE-SAC, DEAD  END, LARGE  R 
OOM,TINY  CAVE, SEWER, FILTHY  DEN, G 
ROTTO, EMPTY  CRYPT 

291  DATA  134,223,142,4,9,167,128 
,140,4,32,3  8,249,142,4,38,167,12 
8,140,4,64,38,249,142,4,135,167, 
128,140,4,160,38,249,142,4,70,16 
7, 128, 140,4, 128, 38, 249, 134, 207, 1 

4  2,4,224, 167, 128,140,5,224,38,24 
9,57 

292  DATA  1510,19,1511,9,1512,18, 
1513,255, 1514, 18, 1515, 1, 1516, 14, 
1517,4, 1518, 15, 1519, 12,1520, 6, 15 
21,255,1522,18,1523,5,1524,20,15 
25,21, 152  6, 18, 1527, 14, 1528, 19 

2  93  DATA  I  MET  WITH  ILL  SUCCESS, 
THAT  WAS  A  WILD  GOOSE  CHASE, I  BO 
TCHED  IT  UP- FAILURE, THE  IDEA  WAS 
TRUE-BUT  THE  OUTCOME  FIZZ 

LED, THE  LABOR  WAS  WASTED, A  DEFFI 
CIENCY  OF  ACCOMPLISHMENTS  BREAK 
DOWN  OF  COMMUNICATION, SUCCESS  WA 

5  NOT  MEANT  TO  BE 

294  DATA  A  FLASH  IN  THE  PAN-THEN 
DARKNESS , FRUITION  IS  LEFT  WANTI 

NG, A  TRIUMPH  OF  FAILURE, SOME  THI 
NGS  ARE  NOT  MEANT  TO  BE, AT  THE  P 
RESENT  TIME-NOT  POSSIBLE, NOT  PRA 
CTICABLE,I  DON'T  BELIEVE  IT  IS  F 
EASIBLE 

295  REM  ADJUST  POSITION 

296  L=H+V:IFL=107ORL=120ORL=122O 
RL=1 3  5THENGOSUB4 0  6 : GOSUB4 12 

297  IFL=61ANDA$="W"THENPRINT@256 
,"I  FELT  DIZZY  FOR  A  MOMENT";: PR 
INT0320, "???!! !   WHERE  IS  THE  PAS 
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SAGE  I" ; : PRINT© 3 52 , "JUST  CAME  TH 
ROUGH  ???• 1 i";:L=47:V=5:H=42:RV= 
1 

298  N=0:S=0:E=»0:W=0 

299  IFL1  (L)  =10THENIFRU=0ANDRT=0A 
NDAU=0THENRT=1 :  Rl$  ( 1 )  =" ZOMBIE"  :  R 
2 (1) =11:R3 (1) =7 :R2$ (X) =" BLANK  EY 
ES, DOUBLE  EDGED  SWORD  INONE  HAND 

AND  A  MACE  IN  THE  OTHER11 :  AU=1 :  R 
4=0:R(1)=0:AR=1 

300  L=H+V:PRINT@9,L$(L1(L) ) ; 

301  PRINT@43,0$(L2(L)) ; 

302  IFL=121THEND(8)=12  6 

303  IFL=43THEN62 

304  IFL2 (L)=0THEN168 

305  ON  L2(L)  GOTO306,307,308,309 
,310,311,312,313,314,315,316,317 
,318,319,320 

306  N=l:GOT0168 

307  S=l:GOT0168 

308  E=l:GOT0168 

309  W=l:GOT0168 

310  N=l:S=l:GOT0168 

311  N=l:E«l:GOT0168 

312  N=l:W=l:GOT0168 

313  S=l:E=l:GOT0168 

314  S=l:W«l:GOT0168 

315  E=l:W»l:GOT0168 

316  N-l:S«l:E«l:GOT0168 

317  N=l:S=l:W=l:GOT0168 

318  N=l:E=l:W=l:GOT0168 

319  S=l:E=l:W«l:GOT0168 

320  N=l:S=l:E=l:W=l:GOT0168 

321  REM  LOOK  SACK 

322  L1=256:L2=0:L3=287:L4=0 

323  IFC(3) <>1THENPRINT@256 , "I  DO 
N • T  HAVE  THE  SACK" ; : GOTO 2  6 

324  FORX=1TO20:IFC(X)=2THEN325EL 
SENEXT:  IFL4=0THENPRINT@256 ,  "AS  E 
MPTY  AS  RUTH'S  HEART" ; : GOT02  6ELS 
EGOT026 

325  IFX>20THENRETURNELSEL2=LEN(C 
$(X)) 

326  IFL1+L2>L3  THENL3=L3+32 : L1=L 
3-31 

327  PRINT@L1,C$(X) ; : L4=L4+1 : L1=L 
1+1+L2 

328  NEXT:GOT026 

329  REM  WEAPON  CHECK 

330  IFAU=0THENPRINT@256 ,  "THERE  I 
S  NOTHING  HERE  TO  FIGHT" ; : GOT02  6 

331  IFA$=" ! "ANDC (1) <>1THENPRINT@ 
384, "UNFORTUNATELY, I  DO  NOT  HAVE 

MY" ; :PRINT@416, "TRUSTWORTHY  SWO 
RD  AT  HAND"; :RA=0:A$="":IFAU=1TH 
ENGOT02 1 1ELSE2  6 

332  IFA$="="ANDC(2)<>1THENPRINT@ 
384, "SINCE  MY  DAGGER  SEEMS  TO  BE 

ELSEWHERE ,  I  CANNOT  OBEY"  ; :  RA=0 : 


A$=" " : IFAU=1THENG0T02 11ELSE2  6 

333  GOT0168 

334  REM  MAP 

335  REM  DEATH 

336  AH=AH+1:FORX=1TO2000:NEXT:X= 
USR(0)  :AG=0:PRINT@256,  "SIR  RANDO 
LF  HAS  EXPIRED"; :PLAY"T203L4AL2F 
L4AFP250FO2DCO3FFFFAAL8CL2CP4L4D 
CL2AL8CL4FP250FO2DCFFFGO3AAGL2 . F 
ii 

337  X=USR(0) :PRINT@288, "HERMAN, S 
IR  RANDOLF'S  FRIEND, IS  AWIZARD. 
HE  HAS  BEEN  ABLE  TO  WORKA  SPELL, 
THE  RESULT  OF  WHICH  WILLSOON  BE 
SEEN" ; 

338  FORX=1TO4000:NEXT:S3=23:X=US 
R(j3) 

3  39  IFRT=1ANDRU=0THENRT=0:R(1)=0 

340  GOT02  6 

341  REM  PLACE  KEYS 

342  X=RND( -TIMER) 

343  F0RZ=1T04 

344  A=RND(14) :B=RND(182) 

345  IFA<5  AND  B<70  THENGOT0344 

346  C=A+B:IFC=1210RC=1230RC=610R 
C=14ORC=100THEN344 

347  IFAA=1THEN353 

348  IFC(17)=C  ORC(18)=C  OR  C(19) 
=C  THEN344 

349  C(Z+16)=C+5 

350  NEXTZ 

351  REM  PLACE  FOODS DRINK 

352  Y=INT(5+(SK/2) ) :FORX=0TOY:AA 
=l:GOT0344: 

353  F(X)=C+5 

354  NEXT :AA=0: RETURN 

355  REM  NEARBY  ALARM 

356  F0RY=1T04:X=Y+16 

357  IFC(X)=20RC(X)=1THENNEXT:RET 
URN 

358  LL=L+5:IFC(X)=LL  OR  C(X)=LL- 
15  OR  C(X)=LL-14  OR  C(X)=LL-13  0 
R  C(X)=LL-1  OR  C(X)=LL  OR  C(X)=L 
L+l  OR  C(X)=LL+13  OR  C(X)=LL+14 
OR  C(X)=LL+15  THEN  360 

359  NEXTY: RETURN 

360  POKE1084, 42: RETURN 

361  REM  I  SEE 

362  Ll=70:L2=0:L3=95:L4=0:LL=L+5 
:FORX=1TO20:IFC(X)=LL  THEN3  63ELS 
ENEXT:GOT03  65 

363  L2=LEN(C$(X) ) :IFL2+L1>L3  THE 
NL3=L3+32 : Ll=96 : IFL3=159THENPRIN 
T@ 4 4 8, "OVERFLOW  OF  ITEMS  IN  SIGH 
T"; : RETURN 

364  PRINT@L1,C$(X) ; : L1=L2+1+L1 : N 
EXT 

365  FORX=1TO20:IFD(X)=LL  THEN3  66 
ELSENEXT:GOT0368 
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366  L2=LEN(D$(X) ) :IFL2+L1>L3  THE 
NL3=L3+32 : Ll=96 : IFL3=159THENPRIN 
T@ 4 4 8, "OVERFLOW  OF  ITEMS  IN  SIGH 
T" ; : RETURN 

3  67  PRINT@L1,D$(X) ; : L1=L2+1+L1 : N 
EXT 

3  68  FORX=0TOKS:IFF(X)=LL  THEN3  69 

ELSENEXT : RETURN 

3  69  POKE1086, 37: NEXT: RETURN 

3  70  REM  I  HAVE 

371  L1=135:L2=0:L3=0:L4=0:FORX=1 
TO20 : IFC (X) =1THEN3  7  2  ELSENEXT : RET 
URN 

372  L2=LEN(C$(X) ) :L4=L1+L2+1:IFL 
4>159THEN374ELSEPRINT@L1,C$ (X) ; : 
L3=L3+1 : IFL3=3THENRETURN 

373  L1=L1+L2+1: NEXT: RETURN 

374  PRINT@416, "OVERFLOW  OF  ITEMS 
IN  HAND" ; : RETURN 

375  REM  DROP  ITEM 

376  IFC(C)=lTHENC(C)=L+5  ELSEPRI 
NT@256,"I  DON'T  HAVE  IT" ;:GOT026 

377  IFC<>3THENHA=HA-l:GOT026 

378  FORX=1TO20:IFC(X)=2THENC(X)= 
3 

379  NEXT:GOT026 

380  REM  GET 

381  IFDO0THEN165 

382  IFC (C) =1THENPRINT@256 , "I  ALR 
EADY  HAVE  IT";:GOT02  6 

383  IFHA>1  ANDC<>3THENPRINT@256, 
"MY  HANDS  ARE  FULL" ;: GOTO 2 6 

384  IFC(C)=L+5THENC(C)=1:HA=HA+1 
: IFC=110RC=30RC (C) =2THEN385ELSE2 


6 

385  IFC=11THENAM=AM+1:Z=RND(100) 
:IFZ>90THENPRINT@256, "A  LARGE  BL 
ACK  SPIDER  BIT  MY  HAND" ; : S3=S3-R 
ND(SK+3) :GOT02  6ELSEGOT026 

386  IFC=3  THENHA=HA-1:FORX=1TO20 
: IFC (X) =3THENC (X) =2 : NEXT : GOT02  6 : 
ELSENEXT :GOT02 6 

387  IFC(C)=2THENC(C)=1:HA=HA+1:K 
C=KC-l:GOT026 

388  PRINT@256,"I  CAN'T  GET  IT";: 
GOT026 

389  REM  PUT  IN  SACK 

390  IFC ( 3 ) <>1THENPRINT@256 , "I  DO 
N'T  HAVE  THE  SACK" ; : GOT026 

391  IFKC=>8THENPRINT@256 , "THE  SA 
CK  IS  FULL" ; :GOT02  6 

392  IFC(C)=1THENIFC=3THENPRINT@2 
56, "THAT  DOESN'T  MAKE  SENSE";: GO 
T026 : ELSEC (C) =2 : KC=KC+1 : HA=HA-1 : 
GOT026 

393  PRINT@256,"I  CAN'T  PUT  IT  IN 
THE  SACK" ; :GOT026 

394  REM  EAT&DRINK 

395  IFC(16)=1THENAC=AC+1:IFAC=2T 
HENC ( 16 ) =0 : HA=HA-1 : GOTO40 1ELSEPR 
INT@288, "THERE  IS  SOME  LEFT" ; : GO 
TO401 

396  IFC (11) =1THENC(11) =0 :HA=HA-1 
:GOTO401 

397  IFC ( 13 ) =1THENHA=HA-1 : C ( 13 ) =0 
:RO=RO-l:IF  RO>0THENC(13)=53:GOT 
O401ELSEGOTO401 

398  IFC ( 12 ) =1THENC ( 12 ) =0 : HA=HA-1 
:GOTO401 

399  FORX=0TOSK:IFF(X)=L+5  THEN40 
0ELSENEXT:PRINT@256, "NOTHING  HER 
E  TO  EAT  OR  DRINK" ;: IFAU=1THEN16 
8ELSE26 

400  F(X)=0 

401  X=RND(100) +RND(50) : IFX>10AND 
X<16THENS3=10:PRINT@256, "RUTH  MU 
ST  HAVE  PLACED  A  SPELL  ONTHAT  FO 
OD-IT  LEFT  ME  UNFULFILLED" ; : IFAU 
=1THEN168ELSE26 

402  IFS3<4THENPRINT@2  56, "THANKS, 
I  really  NEEDED  THAT" ; : S3=23 : IFA 
U=1THEN168ELSE26 

403  IFS3<10THENPRINT@256 , "VERY  R 
EFRESHING" ; :S3=2  3 : IFAU=1THEN168E 
LSE26 

404  IFS3<15THENPRINT@256, "TASTED 
GOOD" ; :S3=2  3:IFAU=1THEN168ELSE2 

6 

405  PRINT@2  56,"I  REALLY  WASN'T  H 
UNGRY" ; : S3=2  3 : IFAU=1THEN168ELSE2 
6 

406  REM  ADJUST  BOAT  POSITION 

407  IFL=107ANDA$="W"THEND(8)=112 
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: RETURN 

408  IFL=120ANDA$="N"THEND(8)=125 
: RETURN 

409  IFL=122ANDA$="SIITHEND(8)=127 
: RETURN 

410  IFL=135ANDA$="E"THEND(8)=140 

411  RETURN 

412  REM  ADJUST  MOVES  IF  BOAT  PRE 
SENT 

413  L2 (107)=4:L2 (120)=1:L2 (122)= 
2:L2 (135)=3 

414  IFD(8)=112THENL2 (107)=10:RET 
URN 

415  IFD(8)=125THENL2 (120)=5:RETU 
RN 

416  IFD(8)=127THENL2 (122)=5:RETU 
RN 

417  L2  (135)  =10 : RETURN 

418  REM  ADJUST  HAND  AND  SACK  VAL 
UE 

419  FORX=17TO20:IFC(X)=1THENHA-H 
A-l : NEXTELSENEXT 

420  FORX=17TO20:IFC(X)=2THENKC=K 
C-l : NEXTELSENEXT 

421  FORX=17TO20:C(X)=0:NEXT 

422  PRINT@320, "THE  KEYS  BURST  IN 
TO  FLAME  AND"; : PRINT© 3  52, "DISAPP 
EARED" ; : RETURN 

423  REM  TREASURE  VALUE 

424  TT=0:IFC(5)=1ORC(5)=2THENTT= 
TT+150 

425  IFC(6)=lORC(6)=2THENTT=TT+20 

426  IFC(7)=lORC(7)=2THENTT=TT+50 

All  IFC(8)=lORC(8)=2THENTT=TT+30 
0 

428  IFC(9)=lORC(9)=2THENTT=TT+20 

429  IFC(10)=1ORC(10)=2THENTT=TT+ 

43j3  IFC(14)=10RC(14)=2THENTT=TT+ 
3000 

431  IFC(15)=10RC(15)=2THENTT=TT+ 

1000 

432  PRINT@257 , "VALUE  OF  TREASURE 
FOUND=" ;TT; : PRINT@2 89 , "MAXIMUM 

TREASURE  VALUE=7  2  50 " ; 

433  RETURN 

434  REM  SAVE  GAME 

435  PRINT@256 , "POSITION  TAPE, PRE 
SS  RE CORD+ PLAY . WHEN  READY, PRESS 
ENTER" ; 

436  A$=INKEY$:IFA$=""THEN4  3  6 

437  OPEN"0",#-l,"DATA" 

438  PRINT#-1,LL,S3,R4,R5,R6,SK,K 
C , HA , AA , AB , AC , AD , AE , AF , AG , AH , AI , 
AJ , AK , AL , AM , AN , AO , AP , AQ , AR , AS , AT 
,AU,AV,AW,AX,AY,AZ 


439  PRINT#-1 , RA, RB, RC , RD, RE , RF, R 
G , RH , RI , RJ , RK , RL , RM , RN , RO , RP , RQ , 
RR,RS,RT,RU,RV,RW,RX,RY,RZ,A,B,C 
,D,E,F,G,H,I,J,K,L,M,N,0,P,Q,R,S 
,T,U,V,W,X,Y,Z 

440  FORX=0TO25:PRINT#-1,R2 (X) ,R3 
(X) ,R(X) :NEXT 

441  FORX=0TO196:PRINT#-1,L1(X) ,L 
2 (X) :NEXT 

442  FORX=0TO12 :PRINT#-1,F(X) :NEX 
T 

443  FORX=0TO20:PRINT#-1,C(X) :NEX 
T 

444  FORX=0TO21:PRINT#-1,D(X) :NEX 
T 

445  CLOSE#-l 

446  PRINT@448 , "THE  DATA  HAS  BEEN 
SAVED" ; 

447  FORX=1TO2000:NEXT:X=USR(0) :G 
OT026 

448  REM  ENTER  OLD  GAME 

449  PRINT@256 , "POSITION  TAPE, PRE 
SS  PLAY.  WHEN  READY, PRESS 
ENTER" ; 

450  A$=INKEY$:IFA$=""THEN450 

451  OPEN" I ", #-1, "DATA" 

452  INPUT#-1,LL,S3,R4,R5,R6,SK,K 
C , HA , AA , AB , AC , AD , AE , AF , AG , AH , AI , 
AJ , AK , AL , AM , AN , AO , AP , AQ , AR , AS , AT 
,AU,AV,AW,AX,AY,AZ 

453  INPUT#-1,RA,RB,RC,RD,RE,RF,R 
G,  RH,  RI ,  RJ , RK,  RL,  RM,  RN,  RO , RP,  RQ , 
RR,RS,RT,RU,RV,RW,RX,RY,RZ,A,B,C 
,D,E,F,G,H,I,J,K,L,M,N,0,P,Q,R,S 
,T,U,V,W,X,Y,Z 

454  FORX=0TO25:INPUT#-1,R2 (X) ,R3 
(X) ,R(X) :NEXT 

455  FORX=0TO196:INPUT#-1,L1(X) ,L 
2 (X) : NEXT 

456  FORX=0TO12:INPUT#-1,F(X) :NEX 
T 

457  FORX=0TO20:INPUT#-1,C(X) :NEX 
T 

458  FORX=0TO21:INPUT#-1,D(X) :NEX 
T 

459  CLOSE#-l 

460  PRINT@448 , "THE  DATA  HAS  BEEN 
INPUT" ; 

461  FORX=1TO2000:NEXT:X=USR(0) :G 
OT02  6 

4  62  REM  HELP 

463  PLAY"04 ;T3 ; L4C03B04C03L2 . GEL 
4D#CDL2 . AAL4GBAAGFFEDL2 . EE" 

464  X=USR(0) 

465  PRINT@256, "JUST  A  MOMENT, I'M 
DECIDING  IF" ; :PRINT@288, "YOUR  P 

RESENT  SITUATION  IS  DIRE";: PRINT 
@320, "ENOUGH  TO  WARRANT  ANY  HELP 
"; :FORY=1TO2000:NEXT  
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466  X=USR(0) 

4  67  IFRP=0ANDAU=1THENPRINT@352 ,  " 
I'D  TEND  TO  THE  BATTLE  FIRST"; :F 
ORY=1TO2000  :  NEXT :  X=USR  ( 0 )  :  GOT02  6 

468  IFL=100THENPRINT@352, "EVERY 
LOCK  NEEDS  A  KEY" ; : IFSK<4THENGOT 
026ELSEPRINT@384 , "HOWEVER, A  KEY 
MAY  NOT  EXIST  &  INTHAT  CASE, A  LI 
TTLE  VIOLENCE  MAY  BE  THE  KEY" ; : G 
OT02  6 

469  IFS3<6THENPRINT@352, "I  WOULD 
SUGGEST  YOU  FIRST  FIND     SOME  FO 

OD  AND  DRINK" ; :GOT026 

470  IFC(l) <>1THENPRINT@352, "WITH 
OUT  YOUR  SWORD, YOU  ARE  SUNK";: GO 
T026 

471  Y=RND(8):ON  Y  GOT0472 , 473 , 47 
4,475,476,477,478,479 

472  PRINT@352,"I  DON'T  FEEL  YOU 
REALLY  NEED  ANY";:GOT02  6 

473  IFFH=0THENFH=1:PRINT@352, "TH 
ERE  IS  FOOD  HIDDEN  IN  A  ROOM-  OP 
EN  THE  DOOR  AND  GO  IN-AFTER  TH 
AT, YOU  ARE  ON  YOUR  OWN";:GOT02  6 


474  IFFG=0THENFG=1 : PRINT@352 , "A 
BOAT  MAY  GIVE  MORE  HELP  THAN  FI 
RST  THOUGHT" ; : GOT026 

475  PRINTS 3 52, "PERHAPS  AT  A  LATE 
R  TIME" ; :GOT026 

476  IFFF=0THENFF=1:PRINT@352 , "IF 
YOU  WALK  AWAY  FROM  DANGER, YOUMA 

Y  BE  WEAKER  AND  IT  STRONGER  TH 
E  NEXT  TIME  YOU  MEET" ; : GOT026 

477  IFFE=0THENFE=1:PRINT@352,  "TH 
ERE  ARE  MANY  DANGERS  TO  OVER-  CO 
ME, BUT, THE  LARGEST  IS  HUNGER"; :G 
OT026 

478  PRINT© 3 52 , "AFTER  DUE  CONSIDE 
RATION" ; : FORY=lTO 1000 : NEXT : X=USR 
(0) :PRINT§3  66, "NO! " ; :GOT02  6 

479  IFFD=0THENFD=1 : PRINT@352 , "A 
MAP  WOULD  BE  NICE , BUT , NONE  IS  AV 
AILABLE.    PERHAPS, YOU  SHOULD  CO 
NSIDER  DRAWING  ONE  YOURSELF? ";: G 
OT026 

480  PRINT @ 3 5 2, "SEARCH  AND  LOOK  A 
RE  TWO  very  IM-PORTANT  ACTIONS  T 
0  USE"  ;  :GOT026  szs 


Lunar  Escape 


  Program  by  Steve  Skrzyniarz 

It  is  the  year  201 1.  The  visions  of  private  travel 
to  other  planets  in  the  solar  system  have  finally 

 '  been  realized.  You  are  among  the  first  to  receive 

a  private  space  pilot's  license.  Ever  since 
America  landed  the  first  men  on  the  moon  in 
1969,  you've  had  a  burning  ambition  to  be 
among  the  first  private  citizens  to  walk  on  the 
lunar  surface. 

So  you  saved  your  money  for  years  and 
realized  some  big  profits  from  some  risky 
investments,  enough  to  make  it  possible  for 
you  to  acquire  your  own  spaceship  —  a  luxury 
model  Independence  Shuttle  TX-7207  with  all 
the  modern-day  conveniences.  "Moon  or  bust!" 
reads  the  fin  sticker  on  your  ship.  You've 
packed  enough  food  to  last  for  a  couple  of 
weeks,  the  planned  duration  of  your  trip. 

Just  prior  to  takeoff,  you  receive  a  message 
from  the  solar  police  asking  if  you  can  deliver 
a  dangerous  prisoner  to  another  planet  after 
your  visit.  They  know  it's  an  inconvenience  and 
they're  to  sorry  to  have  to  ask,  but  the  prisoner 
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is  scheduled  to  go  on  trial  soon.  If  he  is  not  tried,  he  will  be  freed.  And 
we  wouldn't  want  that,  would  we?  They  even  provide  an  escort  for  the  prisoner 
so  that  you  will  not  have  to  bother  with  him.  You  reluctantly  agree,  trusting 
in  the  security  measures  of  your  ship. 

The  prisoner  is  soon  forgotten  as  you  and  fellow  passengers  marvel  at  the 
spectacular  sights  of  the  solar  system  visible  through  the  ship's  portholes. 
Between  turns  at  the  control  panel,  you  are  able  to  relax  for  the  most  part 
because  the  sentry  robots  prepare  and  serve  the  food,  and  even  relieve  you 
from  the  piloting  duties. 

You  are  in  the  middle  of  a  sound  sleep  one  evening  (according  to  your 
super  modern  CoCo  wristwatch)  with  the  ship  approaching  the  far  side  of 
the  moon  when  it  happens.  The  ship  begins  vibrating  violently.  The  red  lights 
and  the  warning  buzzers  throughout  the  shuttle  signal  impending  disaster. 
The  sentry  robots  are  rolling  about  uncontrollably,  seemingly  panic  stricken. 
Objects  are  flying  through  the  air. 

Making  your  way  to  the  control  room,  you  react  quickly.  Pushing  all  the 
right  buttons,  you  are  able  to  activate  the  thrusters  enough  to  keep  the  ship 
from  hitting  the  lunar  surface  at  full  speed.  The  ship  bounces  around  a  few 
times  before  it  finally  comes  to  a  complete  stop. 

When  you  regain  consciousness,  you  press  a  hand  to  your  head  to  check 
the  extent  of  cuts  you  suffered  during  the  crash.  There  is  no  sign  of  life 
on  the  ship.  The  prisoner  is  not  in  the  cell,  but  you  rationalize  that  he  was 
probably  thrown  clear  of  the  ship.  The  robots  appear  to  have  been  spared, 
except  that  they  are  making  some  strange  sounding  beeps  on  occasion. 

You  seek  out  Sam,  the  master  robot,  to  see  if  it  can  be  of  any  assistance. 
As  you  are  examining  the  robot's  controls,  however,  Sam  suddenly  grabs 
you  and  hurls  you  out  of  the  ship. 

As  you  pick  yourself  up,  you  hear  laughter  coming  from  the  ship.  The 
prisoner  obviously  is  alive  and  well,  and  in  control  of  the  robots.  You  realize 
that  your  work  is  cut  out  for  you  if  you  are  to  regain  control  of  the  ship, 
get  it  in  working  order,  deliver  the  prisoner  and  return  to  earth. 


(Steve  Skrzyniarz  is  a  student  at  Keithley  Junior  High  School  in  Tacoma, 
Wash.  He  has  served  as  a  system  operator  for  the  Color  Computer  SIG 
of  the  Tacoma  Technical  Bulletin  Board.  He  enjoys  writing  Adventures 
and  Simulations.) 


124 


LUNAR  32K  ECB 


10  POKE282,l 
20  CLS0 
30  CLEAR1000 
40  PMODE0 
50  PC LEAR 1 

60  GOSUB2  310 : CLS : PRINT@199 , "ONE 
MOMENT  PLEASE ..." 

70  DIM  A$(137) ,A(137) ,B(137) ,C(1 
37) ,D(137) ,V$(23) ,N$(39) ,NA$(39) 
,LO(39) 

80  CH=4 :MR=1:AI=7  50 

90  FOR  G=l  TO  137:READ  A$(G),A(G 

) ,B(G) ,C(G) ,D(G) : NEXT 

100  FOR  G=l  TO  2 3 : READ  V$(G):NEX 

T 

110  FOR  G=l  TO  3 9 : READ  N$(G),NA$ 
(G) ,LO(G) : NEXT 
120  G=5 
130  CLS 

140  IFFP=0  THEN  FP=1 : PRINT@229  ,  " 
LUNAR  ESCAPE  ADVENTURE" : PRINT@ 2 6 
6 , "VERS ION  2.4": PRINTS 2  95," COPYR 
IGHT  (C)  1983 " : PRINT@326 , "BY  STE 
VE  SKRZYNIARZ" 

150  IF  G>47  AND  L0(21)<>-1  THEN 
PRINT@0, "YOU  ARE  LOST  ON  THE  MOO 
N": PRINT" YOU  CAN  GO:";:GOTO  160 
ELSEPRINT@0, "YOU  ARE  ";A$(G);:PR 
INT: PRINT "YOU  CAN  GO:"; 
160  SC=SC+1 

170  IFG=6ANDID=1THENPRINT"N  S";: 
GOTO220ELSEIF  G=6THENPRINT"S" ; :G 
OTO2  20ELSEIF  G=7ANDID=0ANDOD=0TH 
EN220ELSEIF  G=7ANDID=1ANDOD=0THE 
NPRINT"S" ; :GOTO220  ELSE  IF  G=7  A 
ND  ID=0  AND  OD=l  THEN  PRINT"N  »; 
:GOTO220  ELSE  IF  G=7  AND  ID=1  AN 
D  0D=1THENPRINT"N  S";:GOTO220 
180  IF  A(G)>0  THEN  PRINT"N  "; 
190  IF  B(G)>0  THEN  PRINT"S  "; 
200  IF  C(G)>0  THEN  PRINT "E  "; 
210  IF  D(G)>0  THEN  PRINT"W  "; 
220  PRINT: PRINT "YOU  SEE:"; 
2  30  IF  G=16  THEN  FORYX=3  3  TO  39: 
IF  LO(YX)=16  THEN  PRINT "BROKEN  E 
NGINE":PRINT"MISC.    ENGINE  PIECES 
":GOTO2  50  ELSE  NEXT 
240  AA=0 : FOR  X=l  TO  39: IF  LO(X)= 
G  THEN  PRINTN$ (X) : AA=1 : NEXTELSE 
NEXT: IF  AA=0  THEN  PRINT "NOTHING" 
250  PRINTSTRING$ (32, 172) ; 
260  IFLO(20)=-1ANDLO(31)=-3ANDCH 
>0THEN270ELSE310 

270  IF  G<47THENPRINTSTRING$ (32,2 
07) ; : PRINT "THE  METAL  DETECTOR'S 
RED  LIGHT     IS  BLINKING    (THE  FLOO 


R  MUST  BE     SETTING  IT  OFF)." : PRI 

NTSTRING$(32,207) ; :GOTO310 

280  IF  GO55ANDGO47ANDGO80ANDG 

<>70ANDG<>  12  5ANDGO 1 2  4  ANDG<>8  4TH 

EN310 

290  IFG=55ANDLO(33)=0THEN300ELSE 
IFG=47ANDLO(34)=0THEN300ELSEIFG= 
80ANDLO(35)=0THEN300ELSEIFG=70AN 
DLO (36) =0THEN300ELSEIFG=12  5ANDLO 
(37)=0THEN300ELSEIFG=124ANDLO(38 
) =0THEN300ELSEIFG=84ANDLO (39) =0T 
HEN300ELSE310 

300  PRINTSTRING$(32,207) ;: PRINT" 
THE  METAL  DETECTOR'S  RED  LIGHT 
IS  BLINKING — THERE  MUST  BE  SOME 
METAL  DOWN  THERE .": PRINTSTRING$ ( 
32,207) ; :GOTO310 

310   IF  SO5000  AND  LO(16)=-2  AND 
AI=0THEN  PRINT"I'M  AFRAID  YOU  D 

IE  OF  LACK  OF       OXYGEN —  THE  SHI 

P  RAN  OUT,   AND     SO  DID  YOUR  AIR 

TANKS  ":GOTO  1660 

320  IF  LO(16)=-2  THEN  AI=AI-1:IF 
LO  (16) =-2  AND  LO(2)=-2  AND  LO (1 

)=-2  THEN  NT=1  ELSE  NT=0 

330  IF  SO5000  AND  NT=0THEN  PRIN 

T"YOU  DIE  FROM  LACK  OF  OXYGEN... 
NONE  IN  THE  SHIP,   AND  YOU  DIDN 

'THAVE  A  PROPERLY  WORKING  SPACE 
SUIT. " :GOTO1660 

340  IF  NT=1  AND  AI=0  THEN  PRINT" 

YOU  DIE  FROM  LACK  OF  OXYGEN. 

YOUR  AIR  TANKS  HAVE  RUN  OUT.": GO 

TO  1660 

350  IF  G=3  AND  LO(13)<>-3  THEN  P 
RINTSTRING$(32,207) ; : PRINT "THE  S 
PEAKER  SAYS: 'INSERT  PROPER  IDENT 
IFICATION ' " : PRINTSTRING$ (32,207) 

360  POKE148,254 :V1$="" :VE$="" :NO 
$="" :N1$="" :PRINT@480, ; :INPUT"CO 
MMAND" ;CO$ 

370  V1$=LEFT$ (CO$, 3) : FOR  X=1T0  L 
EN(CO$):IF  MID$ (CO$,X, 1)="  "THEN 
Nl$=MID$(CO$,X+l,3)  ELSE  NEXT: I 
F  G=3  AND  LO(13)<>-3  THEN  420 
380  IF  G<>11  THEN  410  ELSE  IF  LO 
(22) =-1  AND  LO(31)=-4AND  CH>0  AN 
D  LO(ll)=ll  AND  V1$="KIL"  AND  Nl 
$="PRI"  OR  LO(22)=-l  AND  LO(31)= 
-4  AND  CH>0  AND  LO(ll)=ll  AND  VI 
$="SHO"  AND  N1$="PRI"  THEN390  EL 
SE  IF  LO(ll)=ll  THEN  400  ELSE  41 

390  PRINT"ZZAP!  HE'S  DEAD!":LO(l 
1)=0:LO(29)=11:LO(12)=11:CH=CH-1 
: PRINT"HE  DROPS  SOMETHING. ": GOTO 
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150 

400  PRINT "THE  PRISONER  HAD  A  WRE 
NCH  WHICH  MADE  YOU  -WRENCH-  AS  H 
E  KNOCKED  YOU  OVER  THE  HEAD  WITH 

IT!   YOU     ARE  DEAD.": GOTO  1660 
410  IF  G=3  AND  LO(13)=-l  THEN  42 
0ELSE  IF  G=3  AND  LO(13)=-3  THEN 
440  ELSE  IF  G=3  THEN  PRINT "THE  S 
PEAKER  ASKS  FOR  AN  ID  CARD. YOU  H 
AVE  NONE,  AND  THE  GUARD  IS  NOTIF 
IED.    IN  MOMENTS,   YOU  ARE  HURLE 
D  FROM  THE  SHIP.   YOU  ARE  DEAD. 
":GOTO  1660ELSE  440 
420  IF  Vl$o"INS"  AND  Nl$o"ID" 
THEN  PRINT "THE  SENTRY  REMOVES  YO 
U  FROM  THE  SHIP.   YOU  DIE  OF  LACK 

OF  OXYGEN. "; :GOTO  1660  ELSE  INP 
UT"IN  WHAT";IW$:IF  LEFT$ (IW$ , 3) < 
>"SLO"  THEN  PRINT 11  THE  MACHINE  SU 
MMONS  THE  SENTRY..  IN  MOMENTS,  Y 
OU  DIE!":GOTO  1660 
430  PRINT"OK,  IT'S  IN  THE  MACHIN 
E.  THE  CAMERA  WITHDRAWS  AND  T 
HE  SPEAKERIS  SILENT.  THEN  IT  SPE 
AKS.  'YOU  MAY  PASS ' . " : LO ( 13 ) =-3 : 
LO(3)=0:GOTO  150 

440  IF  CO$=""  THEN  PRINT"HOW  ABO 
UT  ENTERING  SOMETHING?" : GOTO  150 
450  IF  CO$="N"  AND  A(G)=0  THEN  4 
70  ELSE  IF  CO$="S"  AND  B(G)=0  TH 
EN  470  ELSE  IF  CO$="E"  AND  C(G)= 
0  THEN  470  ELSE  IF  CO$="W"  AND  D 
(G)=0  THEN  470 

460  IF  CO$="N"  THEN  GOSUB1550:GO 
TO  150ELSEIF  CO$="S"  THEN  GOSUB1 
560:GOTO150  ELSE  IFCO$="E"  THEN 
GOSUB1570:GOTO  150  ELSE  IF  CO$=" 
W"  THEN  GOSUB  1580:GOTO150  ELSE 
490 

470  PRINT"YOU  CAN'T  GO  THAT  WAY! 
":GOTO  150 
480  GOTO  510 

490  FOR  X=l  TO  LEN(CO$):IF  MID$ ( 
CO$,X,l)="  "  THEN  500  ELSE  NEXT: 
VE$=LEFT$ (CO$ , X) : V1$=LEFT$ ( VE$ , 3 
) :GOTO  510 

500  FORX=lTO  LEN(CO$):IF  MID$(CO 
$,X,1)="  "  THEN  VE$=LEFT$(CO$,X) 
: NO$=RIGHT$ ( CO$ , LEN ( CO$ ) -LEN ( VE$ 
) ) :V1$=LEFT$(VE$,3) : N1$=LEFT$ (NO 
$,3)   ELSE  NEXT 

510  FOR  EW=1  TO  23: IF  V1$=V$(EW) 
THEN  520  ELSE  NEXT: PRINT "I  DON'T 
KNOW  HOW  TO  '";VE$"'":PRINT"SOM 
ETHING" : GOTO  150 

520  ON  EW  GOSUB  540,540,680,760, 
760,1000,1060,1060,1130,1220,129 
0,1300,1300,1380,1420,1460,1540, 


1590,1630, 1650, 1680, 1720, 1720 
530  GOTO  150 

540  IF  IN=6  THEN  PRINT"YOU  ARE  C 
ARRYING  TOO  MUCH": RETURN 
550  FOR  X=l  TO  39: IF  NA$(X)=N1$ 
THEN  560  ELSE  NEXT : PRINT "WHAT  IS 

A  ";NO$;"?": RETURN 
560  IF  LO(X)=-l  THEN  PRINT" YOU  A 
LREADY  HAVE  IT ! " : RETURN  ELSE  IF 
LO(X)=-2  THEN  PRINT"YOU  ARE  WEAR 
ING  IT ! " : RETURN 

570  IFN1$="ID"ANDL0(13)=-3ANDG=3 
THENPRINT"IT'S  STUCK  IN  THE  SLOT 
. " : RETURN 

580  IFN1$="DIS"ANDL0(18)=-3AND  G 
=5THENPRINT"IT'S  STUCK  IN  THE  DR 
IVE . " : RETURN 

590  IFN1$="MEA"ANDL0(24)=-3ANDG= 
45THENPRINT"OK" : IN=IN+1 : LO (24) =- 
1 : RETURN 

600  IFNl$="BAT"ANDLO(31)=-3ANDLO 
( 20 ) =-lTHENPRINT"OK" : LO ( 3 1 ) =-1 : I 
N=IN+1: RETURN 

610  IFNl$="BAT"ANDLO(31)=-4ANDLO 
(22 ) =-lTHENPRINT"OK" : LO ( 3 1) =-1 : I 
N=IN+1: RETURN 

620  IF  LO(X)OG  THEN  PRINT"IT'S 
NOT  AROUND" : RETURN 
630  IF  X=3  THEN  650  ELSE  IF  X=4 
THEN  650  ELSE  IF  X=5  THEN  650  EL 
SE  IF  X=8  THEN  650  ELSE  IF  X=9  T 
HEN  650  ELSE  IFX=10  THEN  650  ELS 
E  IF  X=14  THEN  650  ELSE  IF  X=17 
THEN  650  ELSE  IF  X=19  THEN  650  E 
LSE  IF  X=25  THEN  650  ELSE  IF  X=2 
6  THEN  650 

640  IF  X=27  THEN  650  ELSE  IF  X=2 
8  THEN  650  ELSE  IF  X=30  THEN  650 
ELSE  660 

650  PRINT" YOU  TRY  TO  GET  ONE!!": 
RETURN 

660  IF  X=6  OR  X=7  THEN  PRINT"IT' 
S  NAILED  DOWN !": RETURN 
670  PRINT"OK,  GOT  IT! " : IN=IN+1 : L 
0(X)=-1: RETURN 

680  IFNl$o"ID"  AND  Nl$o"DIS"AN 
DNl$o"MEA"  AND  Nl$<>" BAT"THENPR 
INT" I  CAN'T  INSERT  THAT !": RETURN 
690  F0RX=13T031:IFN1$=NA$(X)THEN 
700ELSENEXT 

700  IFLO(X) <>-lTHENPRINT"I  DON'T 
HAVE  THAT. " : RETURNELSEIFN1$="BA 
T"ANDLO(X)=-4THENPRINT"IT'S  ALRE 
ADY  IN  THE  GUN.": RETURN  ELSEIFLO 
(X)=-3THENPRINT"IT'S  ALREADY  IN 
SOMETHING. ": RETURN 
710  IFN1$="ID"THENPRINT"I  CAN'T 
INSERT  IT  IN  THAT !": RETURN 
720  IFNl$="DIS"THENINPUT"INTO  WH 
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AT"  ;IW$:IF  IW$o"DRI"ANDIW$o"DR 
I VE 11 THENPRINT " I  CAN'T  INSERT  IT 
INTO  THAT !": RETURN  ELSE  PRINT"OK 
" : LO ( 18 ) =-3 : IN=IN-1 : RETURN 
730  IFN1$O"MEA"THEN740ELSEINPUT 
"INTO  WHAT"  ;  IW$  :  IFIW$o"OVE"ANDI 
W$o"OVEN"THENPRINT"I  CAN'T  INSE 
RT  IT  INTO  THAT !": RETURN  ELSEPRI 
NT "OK" : LO ( 24 ) =-3 : IN=IN-1 : IFMR=1T 
HENMR=0  :  RETURN  ELSE  RETURN 
740  INPUT" INTO  WHAT" ; IW$ : IFIW$<> 
" GUN"ANDIW$<>"DET"AND  IW$o"DETE 
CTOR"THENPRINT"I  CAN'T  INSERT  IT 

INTO  THAT !": RETURN 
75)3  IF  IW$="GUN"THENLO(31)=-4:PR 
INT"OK":IN=IN-l: RETURN  ELSELO(31 
) =-3 : PRINT"OK" : IN=IN-1 : RETURN 
760  IF  Vl$="LOO"  AND  Nl$=""  OR  V 
1$="EXA"  AND  Nl$=""  THEN  CLS : RET 
URN  ELSE  FORXX=l  TO  39:IFNA$(XX) 
=N1$  THEN  770  ELSE  NEXT : PRINT"WH 
AT  IS  THAT?" : RETURN 
770  IFNl$="ROB"ANDG=40RNl$="ROB" 
ANDG=12THEN820ELSEIF  LO(XX)<>G  A 
ND  L0(XX)O-lANDL0(XX)o-2ANDL0( 
XX)o-3ANDLO(XX)<>-4  THEN  PRINT" 
I  DON'T  SEE  IT  HERE .": RETURN  ELS 
E  IF  Nl$="DOO"  THEN  INPUT"WHICH 
ONE";WO$ELSE  WO$=" " : GOTO800 
7  80  IFWO$<>" INNER" ANDWO$<> "OUTER 
"ANDWO$o"INN"ANDWO$o"OUT"THENP 
RINT"THAT ' S  NOT  A  DOOR . " : RETURNE 
LSE  IFWO$o"OUTER"ANDWO$o"OUT"T 
HEN  790  ELSE  IF  G=6THEN  PRINT"I 
CAN'T  SEE  IT. " :RETURNELSEIFOD=l 
THENPRINT" IT  IS  OPEN .": RETURN  EL 
SE  PRINT" IT  IS  CLOSED. " :RETUR 
790  IF  Nl$O"D00"  AND  WO$o"INN" 

AND  WO  $  <> " I NNER" THEN  800  ELSE  I 
F  ID=0  THEN  PRINT"IT  IS  CLOSED." 
: RETURN  ELSE  PRINT"IT  IS  OPEN.": 
RETURN 

800  IF  N1$="BAT"  ANDLO (31) =-4 AND 
L0(22)O-lANDL0(22)<>G  ORNl$="BA 
T"ANDLO(31)  =-3  ANDLO  ( 20)  O-IANDL 
O(20)<>G  THENPRINT" IT ' S  NOT  AROU 
ND": RETURN  ELSEIF  N1$="MEA" ANDLO 

(24) =-3  AND  G<>45THENPRINT"IT'S 
NOT  AROUND . " : RETURN 
810  IFN1$="DIS"ANDL0(18)=-3ANDG< 
>5THENPRINT"IT'S  NOT  AROUND.": RE 
TURNELSEIFN1$=" ID" ANDLO ( 13 ) =-3AN 
DG<>3THENPRINT"IT'S  NOT  AROUND." 

: RETURN 

820  IFN1$="SUI"THENPRINT"IT  SMEL 
LS  MUSTY,  BUT  IS  USABLE .": RETURN 
ELSE  IF  N1$="HEL" THENPRINT" IT  L 
OOKS  BRAND  NEW . " : RETURN  ELSEIF  N 
l$="ROB"  ANDG=4ANDLO (26) =4THENPR 


INT"IT'S  SMOKING. ": RETURN  ELSEIF 
Nl$="ROB"  ANDG=12ANDLO(27) =12THE 
NPRINT"IT'S  SMOKING .": RETURN 
830  IFNl$="ROB"THENPRINT"IT  LOOK 
S  BIG  AND  MEAN. ": RETURN  ELSEIF  N 
l$="COM"  THEN  PRINT"IT'S  A  COLOR 

COMPUTER ! " : RETURN 
840  IF  Nl$o"DRI"  THEN  850  ELSE 
IF  LO(18)<>-3  THEN  PRINT"IT'S  EM 
PTY.": RETURN  ELSE  PRINT"IT'S  GOT 

A  DISK  IN  IT.": RETURN 
850  IF  N1$="ID"  THEN  PRINT"IT'S 
A  SECURITY  I.D.   CARD .": RETURN 
860  IF  N1$="TAN"  THEN  PRINT"IT'S 

PRETTY  RUSTY,   BUT  I  CAN  MAKE 

OUT  THE  LETTERS    ' C02 1 .   IT  HAS 
750  MOVES  OF  AIR  LEFT .": RETURN 
870  IF  Nl$="CON"  THEN  PRINT"IT'S 

A  TANK  MARKED   'O'.   IT  HAS":PRIN 
TAI; "MOVES  OF  AIR  LEFT .": RETURN 
880  IF  N1$="ENG"  AND  LO(28)=16  T 
HEN  PRINT" IT  LOOKS  PRETTY  GOOD." 
: RETURN  ELSE  IF  N1$="ENG"  THEN  P 
RINT"IT'S  BLOWN  TO  BITS!   IT  LOOK 
S         LIKE  SOMEONE  SHOULD  'MAKE' 
ANOTHER   1  ENGINE ' . " : RETURN 
890  IF  N1$="DIS"  THEN  PRINT"IT'S 

MARKED :  ' TAKE  OFF  PROGRAM ' . " ; : R 
ETURN 

900  IF  N1$="BUT"  THEN  PRINT"IT  S 
AYS : ' PUSH  TO  BLAST  OFF . " : RETURN 
910  IF  Nl$o"DET"  THEN  920  ELSE 
PRINT" IT  IS  SMALL  WITH  A  RED  LIG 
HT  ON  THE  TOP.":IF  LO(31)=-3  THE 
N  PRINT" IT  HAS  A  BATTERY  IN  IT." 
: RETURN  ELSE  PRINT" IT  HAS  NO  POW 
ER  SOURCE .": RETURN 
920  IF  N1$="MAP"  THEN  PRINT"IT  A 
PPEARS  TO  BE  A  MAP  OF  THE  LUNA 
R  SURFACE .": RETURN 

930  IF  N 1 $ <> " GUN " THEN  940  ELSEIF 
LO(31) <>-4THENPRINT"IT  HAS  NO  PO 
WER  SOURCE. " :RETURNELSE  IF  LO(31 
)=-4  THEN  PRINT" IT  HAS  A  BATTERY 

IN  IT.":IFCH=1THENPRINT"IT  HAS 
1  CHARGE  LEFT .": RETURN  ELSEIFLO ( 
31)=-4THENPRINT"IT  HAS" ;CH;"CHAR 
GES  LEFT .": RETURN 
940  IF  Nl$o"MEA"  THEN  950  ELSE 
IF  MR=1  THEN  PRINT"IT'S  RAW.": RE 
TURN  ELSE  PRINT"IT'S  WELL-DONE." 
: RETURN 

950  IF  Nl$o"OVE"  THEN  960  ELSE 
IF  LO(24)=-3  THEN  PRINT " THERE • S 
SOME  MEAT  IN  IT.": RETURN  ELSE  PR 
INT "IT ' S  EMPTY . " : RETURN 
960  IF  N1$="BAT"  AND  CH=0THEN  PR 
INT"IT'S  DEAD .": RETURN  ELSE  IFN1 
$=" BAT"ANDCH=1THENPRINT"IT  HAS  1 
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CHARGE  LEFT .": RETURN  ELSEIFN1$= 
ii BAT it THENPRINT "IT  HAS "  ;  CH ;  " CHARG 
ES  LEFT.11: RETURN 

970  IF  N1$="MAN"  THEN  PRINT"HE  L 
OOKS  QUITE  DEAD." :  IF  LO(13)=0  TH 
EN  PRINT"HEY,  YOU  FOUND  SOMETHIN 
G! ":LO( 13) =11: RETURN  ELSE  RETURN 
980  FOR  XX=33  TO  39: IF  N1$=NA$(X 
X)  THEN  PRINT" IT  LOOKS  LIKE  IT  C 
OULD  BE  USED     TO  BUILD  PART  OF  A 

SPACESHIP" : RETURN  ELSE  NEXT 
990  PRINT"YOU  SEE  NOTHING  TOO  UN 
USUAL. . " : RETURN 

1000  IF  N1$<>"SUI"  AND  N1$<>"TAN 
"  AND  Nl$O"C0N"  AND  N1$<>"HEL" 
THEN  PRINT "YOU  TRY  TO  WEAR  ONE!" 
: RETURNELSEIN=IN-1 

1010  IF  N1$<>"SUI"  THEN  1020  ELS 
E  IF  L0(l)<>-1  THEN  1050  ELSE  LO 
(1) =-2 :PRINT"OK" : RETURN 
1020  IF  Nl$o"TAN"  THEN  1030  ELS 
E  IF  L0(15)<>-1  THEN  1050  ELSE  L 
0(15) =-2 : PRINT"OK" : PRINT"OOOOH! 
I  CAN ' T  BREATHE !!  I  AM  SUFFOCA 
TING!!   GASP!   I'M  DEAD ! " : GOTO  166 

1030  IF  Nl$O"C0N"  THEN  1040  ELS 
E  IF  L0(16)<>-1  THEN  1050  ELSE  L 
0  ( 16) =-2 : PRINT"OK" : WA=1 : RETURN 
1040  IF  L0(2)<>-1  THEN  1050  ELSE 

L0(2) =-2 : PRINT " OK" : RETURN 
1050  PRINT"I'M  NOT  CARRYING  IT." 
: RETURN 

1060  IF  N1$=""THEN  PRINTVE$;"  WH 
AT?" : RETURN  ELSEF0RVY=1T03  9 : IFNA 
$(VY)=N1$THEN  1070  ELSE  NEXT:PRI 
NT"WHAT 1 S  THAT? ": RETURN  ELSE  IFL 
0(VY)=-1THENPRINT"Y0U  ARE  CARRY I 
NG  THAT ! 11 :  RETURN  ELSE  IF  LO(VY)  = 
-2THENPRINT"Y0U  ARE  WEARING  THAT 
! " : RETURN 

1070  IFG=12ANDLO(14)=G  THEN1080E 
LSEIFLO(VY) <>G  THENPRINT " THAT ' S 
NOT  AROUND" : RETURN 
1080  IF  LO(22) <>-lTHENPRINT"YOU 
DON'T  HAVE  A  GUN" : RETURNELSEIFLO 
(31) <>-4THENPRINT"THERE ' S  NO  BAT 
TERY  IN  THE  GUN" : RETURNELSEIFCH= 
0  THENPRINT "THE  BATTERY  IS  DEAD. 
" : RETURN 

1090  IF  Nl$O"R0B"  THEN  1100ELSE 
IF  N1$="R0B"AND  G=12ANDL0 ( 14 ) =G 
THENVY=14 : GOTO1110ELSEIF  G=4  AND 
L0(5)=G  THEN  VY=5 : GOTO1110 
1100  IF  CH=0  THEN  PRINT" I  PULL  T 
HE  TRIGGER. .AND. . NOTHINGHAPPENS . 

IT  MUST  HAVE  A  DEAD  BATTERY 
OR  SOMETHING !": RETURN  ELSE  PRINT 
"ZZAP!   NOTHING  SPECIAL  HAPPENS, 


BUT  THE  THING  YOU  SHOT  IS  A 
LITTLE  BURNED . " : CH=CH-1 : RETURN 

1110  PRINT "BOOM! !    IN  A  BRILLIANT 
FLASH  OF     LIGHT,   THE  ROBOT  EXPL 

ODES.    YOU     JUST  BARELY  MAKE  IT  0 

UT  OF  THE     WAY  FROM  SOME  FLYING 

SHRAPNEL.  .  . 11 ;  :  CH=CH-1 

1120  IF  G=4  THEN  LO (5) =0 : LO (26) = 

4: RETURN  ELSE  LO ( 14 ) =0 : LO ( 27 ) =12 

: RETURN 

1130  IF  Nl$O"D00"  THEN  PRINT"YO 
U  CAN'T  OPEN  THAT ! 11 : RETURN 
1140  IF  G<>6  AND  G<>7  THEN  PRINT 
"I  DON'T  SEE  ANY  HERE": RETURN 
1150  INPUT"WHICH  DOOR";WD$ 
1160  IF  WD$<>"INN"  AND  WD$O"0UT 
"  AND  WD$O"0UTER"  AND  WD$o"INN 
ER"  THEN  PRINT "THAT ' S  NOT  A  DOOR 


1170  IF  WD$="INN"  OR  WD$="INNER" 
THEN  1190  ELSE  IF  G<>7  THEN  PRI 
NT "THAT ' S  NOT  HERE": RETURN  ELSE 
IF  0D=1  THEN  PRINT" IT'S  ALREADY 
OPEN": RETURN  ELSE  IF  ID=0AND  NT= 
1  THEN  PRINT"THE  DOOR  OPENS" :0D= 
1 : RETURN 

1180  IF  ID=1  THEN  PRINT"YOU  SUCK 
ALL  THE  AIR  FROM  THE  SHIP.  YO 
U  ARE  KILLED  BY  THE  HUGEBLAST  OF 
AIR.":GOTO1660  ELSE  PRINT"THE  D 
OOR  OPENS  AND  YOU  ARE  SUCKE 
D  OUT  INTO  SPACE.  YOU  DID  NOT  H 
AVE  A  PROPER  SPACESUIT . " : GOT0166 

1190  IF  ID=1  THEN  PRINT"IT'S  ALR 
EADY  OPEN": RETURN  ELSE  IF  OD=0  T 
HEN  PRINT "THE  DOOR  OPENS" : ID=1 : R 
ETURN 

1200  IF  0D=1  THEN  PRINT"YOU  SUCK 
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ALL  THE  AIR  FROM  THE  SHIP.  YO 
U  ARE  HURLED  INTO  THE  DARKNESS 
,  AND  ARE  CRUSHED  BY  AN  UNIDENIF 
IABLE  OBJECT  FLYING  OUT  FROM  THE 

SHIP. " :GOTO1660 
1210  PRINT "THE  DOOR  OPENS  AND  YO 
U  INSTANTLYDIE  OF  LACK  OF  OXYGEN 

OR  ARE         FROZEN  TO  DEATH.  YOU 
DON'T  QUITEHAVE  TIME  TO  DECIDE. 
NEXT  TIME,   MAKE  SURE  YOU  HAVE  A 
SUIT  THAT     IS  COMPLETE i " : GOTO  16 
60 

122)25  IF  Nl$O"D00"  THEN  PRINT"I 

CAN'T  CLOSE  THAT": RETURN 

12 30  IF  G<>6  AND  G<>7  THEN  PRINT 

"THERE'S  NO  DOORS  HERE": RETURN 

1240  INPUT"WHICH  DOOR";WD$ 

1250  IF  WD$o"INN"  AND  WD$o"INN 

ER"  AND  WD$o"OUT"  AND  WD$O"0UT 

ER"  THEN  PRINT "THAT ' S  NOT  A  DOOR 

" : RETURN  ELSE  IF  WD$="OUT"  OR  WD 

$="OUTER"  THEN  1270 

1260  IF  ID=0  THEN  PRINT"IT  IS  CL 

OSED": RETURN  ELSE  PRINT "THE  INNE 

R  DOOR  IS  NOW  CLOSED" : ID=0:RETUR 

N 

1270  IF  G<>7  THEN  PRINT"I  CAN'T 
SEE  THE  OUTER  DOOR  FROM  HERE": RE 
TURN 

1280  IF  OD=0  THEN  PRINT"IT  IS  CL 
OSED": RETURN  ELSE  PRINT"THE  OUTE 
R  DOOR  IS  NOW  CLOSED" :OD=0:RETUR 
N 

1290  PRINT"ARE  YOU  SURE  YOU  WANT 
TO  QUIT" ; :INPUTQU$:IF  QU$="Y"  0 
R  QU$="YES"  THEN  1660  ELSE  RETUR 
N 

1300  IF  Nl$o"ENG"  THEN  PRINT"YO 
U  DON'T  HAVE  THE  KNOW-HOW. ": RETU 
RN 

1310  IF  G<>16  THEN  PRINT "YOU  CAN 
•T  BUILD  IT  HERE !": RETURN 
13  20  PRINT"CHECKLIST: 
HAVE?" 

1330  FOR  YX=33  TO  39 : PRINTN$ ( YX) 

;STRING$(27-LEN(N$(YX)  )  ,  ••  ")  ; 

1340  IF  LO(YX)=16  THEN  PRINT "YES 

11 :  NEXT  ELSE  PRINT"NO"  :  NEXT :  PRINT 

"(DROP  PARTS  ON  FLOOR)" 

1350  FOR  YX=33  TO  39: IF  LO(YX)<> 

16  THEN  PRINT" YOU  DON'T  HAVE  EVE 

RYTHING . " : RETURNELSE  NEXT 

1360  IF  L0(12)<>-1  THEN  PRINT" YO 

U  NEED  A  WRENCH  OR  SOMETHING . 11 :  R 

ETURN 

1370  PRINT"YOU  QUICKLY  BUILD  A  N 
ICE  ENGINE. "; :LO( 17 )=-5:LO( 28) =1 
6:FORYX=33  TO  39 : LO ( YX) =0 : NEXT : R 
ETURN 


1380  IF  G<>17  THEN  PRINT "THERE ' S 
NOTHING  HERE  TO  PUSH .": RETURN  E 

LSE  IF  Nl$o"BUT"  THEN  PRINT"YOU 
CAN'T  PUSH  THAT !": RETURN 

1390  IF  LO(18)<>-3  THEN  PRINT"YO 

U  PUSH  IT,   BUT  NOTHING  SPECIALHA 

PPENS . " : RETURN 

1400  IF  LO(28)<>16  THEN  PRINT"CL 
ICK.  YOU  HERE  A  DISK  DRIVE  RU 
NNING,  BUT  NOTHING  ELSE .": RETURN 
1410  GOSUB  2090 

1420  IF  N1$<>"MEA"  THEN  PRINT"MI 
ND  TELLING  ME  HOW?": RETURN 
1430  IF  L0(24)<>-1  THEN  PRINT"YO 
U  DON'T  HAVE  IT": RETURN 
1440  IF  MR=1  THEN  PRINT "UGH!  IT' 
S  RAW!!   OH,   THE  WORMS!      I  THINK 
I'M  DYING!!    (GASP!)    I       THINK- I' 
M  (CHOKE!)   DEAD. . . " : GOTO  1660 
1450  PRINT "NOT  BAD.   NOT  GOOD,  BU 
T  NOT  BAD.    I  PREFER  IT  A  LITTLE 
MORE  PINK     IN  THE  MIDDLE,  THOUGH 
. " : LO ( 2  4 ) =0 : IN=IN-1 : RETURN 
1460  IF  L0(32)<>-1  THEN  PRINT"I 
DON'T  HAVE  A  SHOVEL. ": RETURN 
1470  IF  G<47  THEN  PRINT"UGH!    I  H 
IT  METAL   (THE  FLOOR) .": RETURN 
1480  IF  G=47  OR  G=55  OR  G=70  OR 
G=80  OR  G=84  OR  G=124  ORG=125THE 
N  1500 

1490  PRINT "NOTHING  HERE.  JUST  MO 
ON  ROCKS .": RETURN 

1500  IF  G=47ANDLO(34)=0THENPRINT 
"AHHA! " : LO (34) =G : RETURNELSEIF  G= 
55ANDLO (33) =0THENPRINT"AHHA ! " : LO 
(33) =G: RETURNELSEIF  G=70ANDLO(36 
) =0THENPRINT"AHHA ! " : LO ( 3  6 ) =G : RET 
URNELSEIF  G=80ANDLO (35) =0THENPRI 
NT" AHHA ! " : LO ( 3 5 ) =G : RETURNELSEIFG 
=84ANDLO ( 39 ) =0THEN1510ELSE1520 
1510  PRINT" AHHA! " : LO ( 39 )=G: RETUR 
N 

1520  IF  G=124ANDLO(38)=0THENPRIN 
T"AHHA! " :LO( 38) =G: RETURN  ELSEIFG 
=125AND  LO ( 3 7 ) =0THENPRINT"AHHA ! " 
:LO(37)=G:RETURN 

1530  PRINT "NOTHING  HERE .": RETURN 
1540  IF  N1$="N"  OR  Nl$="NOR"  THE 
N  1550  ELSE  IF  N1$="S"  OR  N1$="S 
OU"  THEN  1560  ELSE  IF  N1$="E"  OR 

N1$="EAS"  THEN  1570  ELSE  IF  Nl$ 
="W"  OR  N1$="WES"  THEN  1580  ELSE 

PRINT"HUH???'» : RETURN 
1550  IF  A(G)=0  THEN  PRINT"I  CAN' 
T  GO  THAT  WAY ! " : RETURN  ELSE  IF  G 
=6  AND  ID=0  THEN  PRINT "THE  INNER 

DOOR  IS  CLOSED. ": RETURN  ELSE  IF 

G=7  AND  OD=0  THEN  PRINT "THE  OUT 
ER  DOOR  IS  CLOSED.-"  : RETURN  ELSE 
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IF  A(G)>0  THEN  G=A(G) : RETURN 
1560  IF  B(G)=0  THEN  PRINT"I  CAN' 
T  GO  THAT  WAY !": RETURN  ELSEIF  G= 
12  AND  LO(14)=12  THEN  PRINT"THE 
ROBOT  WON'T  LET  ME.": RETURN  ELSE 

IF  G=7  AND  ID=0  THEN  PRINT "THE 
INNER  DOOR  IS  CLOSED. " :RETURNELS 
E  IF  B(G)>0  THEN  G=B (G) : RETURN 
1570  IF  C(G)=0  THEN  PRINT" I  CAN' 
T  GO  THAT  WAY ! " : RETURN  ELSE  G=C ( 
G) : RETURN 

1580  IF  D(G)=0  THEN  PRINT"I  CAN' 
T  GO  THAT  WAY ! " : RETURN  ELSE  IF  G 
=4  AND  LO (5) =4  THEN  PRINT "THE  RO 
BOT  WON'T  LET  ME.": RETURN  ELSE  I 
F  G=12  AND  LO(14) =12  THEN  PRINT" 
THE  ROBOT  WON'T  LET  ME.": RETURN 
ELSE  G=D(G) : RETURN 
1590  FORX=l  TO  39:  IF  NA$(X)=N1$ 
THEN  1600  ELSE  NEXT :  PRINT  "WHAT  I 
S  A  ";NO$;"?": RETURN 
1600  IF  LO(X)<>-2  THEN  PRINT" YOU 
•RE  NOT  WEARING  IT": RETURN  ELSE 
IF  G>46  THEN  PRINT" YOU  ARE  ON  TH 
E  LUNAR  SURFACE.       AS  YOU  REMOVE 
THE  ";N$(X) :PRINT"YOU  DIE  INSTA 
NTLY  OF  LACK  OF  AIR!i";:GOTO 
1660 

1610  IF  Nl$="CON"  THEN  LO(16)=-l 
: WA=0 : PRINT "OK" : RETURN 
1620  LO (X) =-1 : PRINT "OK" : RETURN 
1630  PRINT "ALL  I  CAN  TELL  YOU  IS 
THAT  YOUR  SHIP  HAS  CRASHED  ON  T 
HE  MOON,  AND  IS  NOT  RUNNING  FO 
R  SOME  REASON.   YOU  MUST  FIGU 

RE  OUT  THE  PROBLEM,  REPLACE  WHAT 
EVER  NEEDS  REPLACING,  AND  TAKE  0 
FF.  ONE  PIECE  OF  ADVICE  THOUG 
H,  DON'T  "; 

1640  PRINT "RUN  AROUND  ON  THE  MOO 
N  WITHOUT     A  SPACESUIT! ": RETURN 
1650  PRINT"IF  YOU  TOOK  OFF  NOW, 
YOUR  SCORE  WOULD  BE" ; 5000-SC : PRI 
NT "BUT  FOR  NOW,   IT  IS  ZERO.":RET 
URN 

1660  IFTD=0THENSC=5000 
1670  PRINT: PRINT "YOUR  SCORE  WAS: 
" ; 5000-SC : INPUT" PLAY  AGAIN" ; A$ : I 
FA$="Y"THEN  RUN  ELSE  IF  A$="N"TH 
EN  END  ELSE 16 60 
1680  PRINT"YOU  ARE  CARRYING:" 
1690  FOR  VY=1T039 : I FLO (VY) =-1  OR 
LO(VY)=-2THEN1700  ELSE  NEXT: PRI 
NT"NOTHING! " : RETURN 
1700  FOR  Z=l  TO  39:IF  LO(Z)=-l  T 
HEN  PRINTN$ (Z) :NEXTELSE  IF  LO(Z) 
=-2  THEN  PRINTN$(Z) ;" (I  AM  WEARI 
NG) " : NEXTELSE  NEXT 
1710  RETURN 


1720  FOR  X=l  TO  39: IF  NA$(X)=N1$ 

THEN  1730  ELSE  NEXT : PRINT"WHAT 
IS  A  ";NO$;"?": RETURN 
1730  IF  L0(X)<>-1  AND  LO(X)<>-2 
THEN  PRINT" YOU  DON'T  HAVE  IT!":R 
ETURN 

1740  LO (X) =G: PRINT" DROPPED" : IN=I 
N-l: RETURN 

1750  DATA134, 128, 142,4,0, 183, 1,2 

54,173,159,160,0,246,1,89,193,24 

7,38,1,57,191,2,9,142,0,0,48,1,1 

40,8,0,38,249,190,2,9,142,4,0,18 

2,1,254,48,1,167,132,140,4,31,38 

,244,48,13  6,32,167,132,140,5,255 

,38,246,48,31,167,132,140,5,224, 

38,247,48, 13  6, 224, 167, 132, 140 

1760  DATA  4,0,39,2,32,244,183,4, 

0, 129,255, 38,4, 134, 128, 32, 168,76 

,32,165 

1770  DATA  IN  THE  SUIT  LOCKERS , 2 , 
0,0,0, AT  A  BEND  IN  THE  CO 
RRIDOR,0, 1, 3,0, AT  AN  I.D.  TERMIN 
AL, 0,0, 4, 2, AT  A  SENTRY  POST, 0,0, 
5, 3, IN  THE  CONTROL  ROOM, 6 , 9 , 8 , 4 , 
AT  THE  INNER  AIRLOCK, 7 , 5 , 0 , 0 , IN 
THE  OUTER  AIRLOCK, 96 , 6 , 0 , 0 , IN  TH 
E  MAIN  HALLWAY, 0,0, 20, 5 
1780  DATA  IN  A  N/S  CORRIDOR, 5 , 10 
,0,0, AT  A  'T'  INTERSECTIONS,  12, 
11,0, IN  THE  JAIL, 0,0, 0,10, AT  A  S 
ENTRY  POST, 10, 13, 0,14, IN  THE  AIR 
LOCKERS, 12, 0,0,0, IN  A  E/W  HALLW 
AY, 0,0, 12 , 15, AT  A  'T'  INTERSECTI 
ON, 16, 17, 14,0, IN  THE  ENGINE  ROOM 
,0,15,0,0 

1790  DATA  IN  THE  COMPUTER  STORAG 
E  ROOM, 15, 0,0,0, ON  CREW  BARRACKS 
BLOCK   'A' ,23, 19, 24, 36, ON 
CREW  BARRACKS  BLOCK  'A', 

18, 20, 25, 37, ON  CREW  BARRACKS 

BLOCK   'C ,19, 21,26, 8, ON  CREW 
BARRACKS  BLOCK  'C',20,22 

,27,37 

1800  DATA  ON  CREW  BARRACKS 

BLOCK   'E' ,21,23,28,21 
1810  DATA  ON  CREW  BARRACKS 

BLOCK   'E' ,22, 18, 29, 41, ON  CREW 
BARRACKS  BLOCK   'A', 29, 24, 

30, 19, ON  CREW  BARRACKS  BL 
OCK  'A' ,24, 26, 31, 19, ON  CREW  BARR 
ACKS  BLOCK   ' C ' , 25 , 27 , 32 , 2 

0,ON  CREW  BARRACKS  BLOCK 
'C ,26,28,33,21 
1820  DATA  ON  CREW  BARRACKS 

BLOCK   'E' ,27,29,34,22 
1830  DATA  ON  CREW  BARRACKS 

BLOCK   'E' ,28, 24,35, 23, ON  CREW 
BARRACKS  BLOCK  'B',35,31, 

3  6, 2 4, ON  CREW  BARRACKS  BL 
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OCK  'B' ,30,32 ,37 ,25, ON  CREW  BARR 
ACKS  BLOCK   ' D • , 31, 33 , 38 , 2 

6, ON  CREW  BARRACKS  BLOCK 
'D' ,32,34,39,27 
1840  DATA  ON  CREW  BARRACKS 

BLOCK   'F' ,33, 35, 40, 28 
1850  DATA  ON  CREW  BARRACKS 

BLOCK   'F' ,34, 30, 41, 29, ON  CREW 
BARRACKS  BLOCK   'B' ,41,37, 

18, 30, ON  CREW  BARRACKS  BL 
OCK  'B' ,36, 38, 19, 31, ON  CREW  BARR 
ACKS  BLOCK   1 D ' , 37 , 39 , 46 , 3 

2, ON  CREW  BARRACKS  BLOCK 
'D' ,38,40,21,32 
1860  DATA  ON  CREW  BARRACKS 

BLOCK   'F' ,39,41,42,34 
1870  DATA  ON  CREW  BARRACKS 

BLOCK  'F1 ,40, 36, 23, 25, AT  A  'T' 
INTERSECTION, 0,43 ,44, 40, IN  THE 
ARSENAL, 42, 0,0,0, IN  THE  MESS  HAL 
L, 0,0, 45, 42, AT  THE  KITCHEN ,0,0,0 
,44, IN  THE  ENERGY  STORAGE  ROOM 
,0,0,0,38 

1880  DATAWEST  OF  BLANCANUS , 0 , 4 8 , 
51,0, WEST  OF  BLANCANUS, 47, 49,0,0 
,WEST  OF  BLANCANUS, 48, 50, 0,0, SOU 
THWEST  OF  BLANCANUS, 49, 0,54,0, WE 
ST  OF  BLANCANUS, 0,0, 57, 47, WEST  0 
F  BLANCANUS, 0,53, 58,0, WEST  OF  BL 
ANCANUS, 52, 0,59,0, SOUTHWEST  OF  B 
LANCANUS , 0 , 0 , 60 , 50 
1890  DATA  NORTHWEST  OF  BLANCANUS 
,0,0, 63 ,0, NORTHWEST  OF  BLANCANUS 
,0,0, 65,0, AT  THE  WESTERN  RIM 

OF  BLANCANUS, 0,0, 67, 51, AT  THE 
WESTERN  RIM  OF  BLANCANUS, 0, 

0,68, 52, SOUTHWEST  OF  BLANCANUS, 0 
,60, 0,5 3, SOUTHWEST  OF  BLANCANUS, 
59,0,0,54 

1900  DATA  SOUTHWEST  OF  BLANCANUS 
,0,62,71,0 

1910  DATA  SOUTHWEST  OF  BLANCANUS 
,61, 0,72,0, NORTH  OF  BLANCANUS, 0, 
64,0, 55, NORTH  OF  BLANCANUS , 6 3 , 6 5 
,78,0, NORTH  OF  BLANCANUS , 64 , 66 , 0 
,5 6, NORTH  OF  CENTRAL  BLAN 
CANUS, 65, 67, 0,0, AT  THE  CENTER  OF 

CRATER  BLANCANUS, 66, 68, 79, 57 
1920  DATA  AT  THE  CENTER  OF  CRATE 
R  BLANCANUS, 67, 69 
1930  DATA  0,58, SOUTH  OF  CENTRAL 

BLANCANUS, 68, 70, 0,0, AT  TH 
E  SOUTHERN  RIM  OF  BLANCANUS, 

69, 71, 0,0, SOUTH  OF  BLANCANUS , 70 , 
0,0, 61, SOUTH  OF  BLANCANUS , 0 , 7 3 , 8 
3, 62, SOUTH  OF  BLANCANUS , 72 ,0 , 0 , 0 
, NORTHWEST  OF  CLAVIUS , 0 , 75 , 85 , 0 
1940  DATA  WEST  OF  CLAVIUS , 74 , 76 , 


1950  DATA  WEST  OF  CLAVIUS , 75 , 77 , 
0,0, WEST  OF  CLAVIUS, 76,0, 86,0, NO 
RTH  OF  BLANCANUS, 0,0, 89, 64, AT  TH 
E  NORTHEASTERN  RIM  OF  BLANCANUS, 
0,0, 9 1,67, SOUTH  OF  CENTRAL 

BLANCANUS, 0,0, 0,93, AT  THE  SOUT 
HERN  RIM  OF  BLANCANUS , 0 , 8 2 , 9 

4,0 

1960  DATA  SOUTH  OF  BLANCANUS , 8 1 , 
83,0,0 

1970  DATA  SOUTH  OF  BLANCANUS , 8 2 , 
0,96, 7 2, NORTHWEST  OF  CLAVIUS, 0,8 
5, 9 7,0, NORTHWEST  OF  CLAVIUS, 84,0 
,0,7 4, SOUTHWEST  OF  CLAVIUS , 0 , 87 , 
0,7 7, SOUTHWEST  OF  CLAVIUS , 86 , 88 , 
0,0, SOUTHWEST  OF  CLAVIUS , 87 , 89 , 9 
8 , 0 , NORTHEAST  OF  BLANCANUS , 8 8 , 0 , 
0,78 

1980  DATA  NORTHEAST  OF  BLANCANUS 
,0,91, 99,0, AT  THE  EASTERN  RIM  OF 
BLANCANUS, 90, 92, 0,79, AT  THE  E 
ASTERN  RIM  OF  BLANCANUS , 9 1 , 9 3 , 
0,0, AT  THE  SOUTHEASTERN  RIM  OF  B 
LANCANUS, 92, 0,101, 80, SOUTHEAST  0 
F  BLAN CANUS, 0,9 5, 10 2,81, SOUTHEAS 
T  OF  BLANCANUS, 94, 96,0,0 
1990  DATA  NORTH  OF  CRASH  SITE, 95 
,7, 104, 8 3, NORTHWEST  OF  CLAVIUS, 0 
,0,106, 8 4, SOUTHWEST  OF  CLAVIUS, 0 
,0,109, 8 8, NORTHEAST  OF  BLANCANUS 
,0,100,0, 90, EAST  OF  BLANCANUS, 99 
,0,111,0, EAST  OF  BLANCANUS, 0, 102 
,0,9 3, SOUTHEAST  OF  BLANCANUS , 101 
,0 , 114 , 94 

2000  DATA  SOUTHEAST  OF  BLANCANUS 
,0,104, 115,0, SOUTHWEST  OF  GRUEMB 
ERGER, 103 ,0,0, 9 6, NORTH  OF  CLAVIU 
S,0, 106, 116,0, NORTH  OF  CLAVIUS, 1 
05,0,0, 9 7, NORTH  OF  CENTRAL  CLAVI 
US, 0, 108, 119,0, AT  CENTRAL  CLAVIU 
S, 107,0,0,0, SOUTH  OF  CLAVIUS, 0,1 
10,0,98 

2010  DATA  SOUTH  OF  CLAVIUS , 109 , 0 
, 120,0, NORTHWEST  OF  GRUEMBERGER, 
0, 112,0, 100, NORTHWEST  OF  GRUEMBE 
RGER, 111, 113, 0,0, WEST  OF  GRUEMBE 
RGER, 112,0, 121,0, WEST  OF  GRUEMBE 
RGER,0, 115, 122, 102, SOUTHWEST  OF 
GRUEMBERGER, 114,0,0, 10 3, NORTH  OF 

CLAVIUS , 0 , 117 , 12 3 , 105 
2020  DATA  NORTH  OF  CLAVIUS , 116 , 1 
18, 0,0, AT  THE  NORTHERN  RIM  0 
F  CLAVIUS, 117, 119, 0,0, NORTHEAST 
OF  CENTRAL  CLAVIUS , 118 , 0 ,0 , 10 
7, SOUTH  OF  CLAVIUS,0,0,124,110,A 
T  GRUEMBERGER • S  WESTERN  R 

IM,0,0,125,113,AT  GRUEMBERGER • S 

WESTERN  RIM,0,0,12  6,11 
2030  DATA  NORTH  OF  CLAVIUS , 0 , 0 , 1 
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27 ,116, SOUTH  OF  CLAVIUS , 0 , 0 , 132 , 
120,  NORTH  OF  CENTRAL  GRUE 
MBERGER,0, 126,0,121, AT  CENTRAL  G 
RUEMBERGER  ,125,0,0,122,  NORTHEAST 

OF  CLAVIUS,0,128,0,123,NORTHEAS 
T  OF  CLAVIUS ,127,129,0,0, NORTHEA 
ST  OF  CLAVIUS,  128, 130,0,0 
2040  DATA  EAST  OF  CLAVIUS , 129 , 0 , 
133,0, SOUTHEAST  OF  CLAVIUS ,0 , 132 
,137,0, SOUTHEAST  OF  CLAVIUS, 131, 
0,0, 124, EAST  OF  CLAVIUS ,0 , 134 , 0 , 
130, EAST  OF  CLAVIUS, 133, 135,0,0, 
EAST  OF  CLAVIUS, 134, 13 6, 0,0, EAST 

OF  CLAVIUS, 135, 13 7,0,0, SOUTHEAS 
T  OF  CLAVIUS, 136,0,0, 131 
2050  DATA  GET, TAK, INS , LOO , EXA, WE 
A,SHO,KIL,OPE,CLO,QUI,MAK,BUI,PU 
S, EAT, DIG, GO  , UNW, HEL, SCO , INV, DR 
0,PUT 


2060  DATA  SPACESUIT , SUI , 1 , SPACE 
HELMET, HEL, 1 , SURVAILENCE  CAMERA, 
CAM, 3 , SPEAKER, SPE, 3 , LARGE  ROBOT, 
ROB, 4, COMPUTER, COM, 5, DISK  DRIVE, 
DRI , 5 , INNER  DOOR, DOO , 6 , OUTER  DOO 
R,DOO,7,INNER  DOOR, DOO, 7 , PRISONE 
R,PRI, 11, WRENCH, WRE,0, ID  CARD, ID 
,0, LARGE  ROBOT, ROB, 12 
2070  DATARUSTY  TANK , TAN , 1 3 , NEW  C 
ONTAINER , CON ,13, BROKEN  ENGINE , EN 
G, 16, COMPUTER  DISK, DIS , 17 , RED  BU 
TTON, BUT, 17, METAL  DETECTOR, DET , 2 
8, OLD  MAP, MAP, 36, LASER  GUN, GUN, 4 
3, BROKEN  TRAYS , TRA ,44, MEAT , MEA , 4 
5, MICRO-WAVE  OVEN , OVE , 4 5 , BROKEN 
ROBOT, ROB, 0, BROKEN  ROBOT, ROB, 0 
2080  DATA  NEW  ENGINE , ENG,0 , DEAD 
MAN, MAN, 0, SLOT, SLO, 3, BATTERY  PAC 
K, BAT, 46, SHOVEL, SHO, 108, NUCLEAR 
POWER  SYSTEM, POW,0, COOLING  SYSTE 
M,SYS,0,MISCELLANIOUS  WIRES, WIR, 
0, COOLING  FILTER, FIL,0, SOLAR  MOD 


ULATOR, MOD, 0, CONNECTING  BOLT , BOL 

,0, ENGINE  PARTS, PAR, 0 

2090  TD=1:CLS: PRINT" YOU  PUSH  THE 

BUTTON. . . " 
2100  FOR  X=1TO1500: NEXT: PRINT: PR 
INT: PRINT"  (CLICK)" 
2110  FORX=1TO1500:NEXT 
2120  PRINT: PRINT: PRINT "I  HEAR  A 
DISK  DRIVE  RUNNING!" 
2130  FORX=1TO1500:NEXT 
2140  PRINT: PRINT: PRINT"  ( 
WHIRRR)  11 

2150  FORX=1TO1500:NEXT 

2160  PRINT: PRINT: PRINT "A  SPEAKER 

ANNOUNCES :    • TAKEOFF  COUNTDOWN 

PROCEDURE  PROCEDING • ! " 
2170  CD=49 

2180  SOUND  245, 1:PRINT@480, "COUN 
TDOWN  AT:", 'CD; 

2190  FORX=1TO100:NEXT:CD=CD-1:IF 

CD=-1  THEN  2200  ELSE  2180 
2200  CLS0 : PRINT" BLASTOFF! !!!" ; 
2210  PRINT@96 , "CONGRADULATIONS , 
YOU  HAVE" 

2220  PRINT@ 12 8, "COMPLETED  THE  LU 
NAR  ESCAPE" 

2230  PRINT@160, "ADVENTURE.  THE  S 
HIP  HAS" 

2240  PRINT@192, "SUCESSFULLY  MADE 
IT  BACK" 

2250  PRINT@224, "TO  EARTH.  YOU  HA 
VE  BEEN" 

2260  PRINT@256, "PROMOTED  TO  COMM 
ANDER  OF" 

2270  PRINT@288,"A  DERELICT  FLEET 

OF  MOTH-" 
2280  PRINT@320, "BALLED  SHIPS.  YO 
U  HAVE" 

2290  PRINT@352 , "REASON  TO  BE  PRO 
UD." 

2300  PRINT@416, ; :GOTO1660 

2310  FOR  G=l  TO  96 : READX: POKE53  4 

+G,X:NEXT 

2320  CLS0:PRINT@133, "lunar"+CHR$ 
( 128 ) +"escape"+CHR$ ( 128 ) +"advent 
ure" ; : PRINT@199 , "copyright"+CHR$ 
(128)+CHR$(128)+"c"+CHR$ (128) +CH 
R$(128) ; :POKE1024+209,40:POKE  10 
24+211, 41: POKE1024+213 , 49 : POKE10 
24+214 , 57 : POKE1024+215 , 56 : POKE10 
24+216,51 

2330  PRINT8263, "by"+CHR$ (128) +"s 
teve"+CHR$ (128) +"skrzyniarz" ; : PR 
INT@453 , "press"+CHR$ (12  8) +CHR$ (1 
28) +"space"+CHR$ (128) +CHR$ (128)  + 
"to"+CHR$(128)+"start" ; :POKE1024 
+448+11, 60 :POKE1024+448+17, 62 
2340  EXEC535 
2350  RETURN 
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THE  CRYPT  OF 
FIDDNAR 

  Program  by  Gregory  Clark 

All  your  life  you've  felt  it  was  your  destiny  to 
be  rich.  Thus  far,  however,  the  messengers  have 
I  not  informed  you  that  that  long-lost  relative 
has  left  you  everything.  So,  you  decide  if  you're 
going  to  be  wealthy  before  you're  too  old  to 
appreciate  the  money,  you're  going  to  have  to 
take  matters  into  your  own  hands. 

You  learn  of  a  place  in  the  North  where  the 
remains  of  a  mighty  warrior  are  secretly 
interred  in  the  ruins  of  an  old  castle.  There 
is  treasure  galore  if  you  can  survive  the  perils 
that  are  inherent  in  such  situations. 

Packing  all  your  weapons  and  other  equip- 
ment, you  begin  your  journey.  Just  short  of 
the  ruins,  you  set  up  camp.  Exhausted  from 
the  long  trip,  you  settle  in  for  a  sound  sleep. 

You're  in  for  a  rude  awakening  the  next  day, 
discovering  to  your  dismay  that  you  have  had 
visitors  during  the  previous  evening.  Everything 
you  brought  with  you  has  been  stolen  except 
for  a  bag  of  gold  coins  which  you  had  wisely 
hidden  some  distance  from  the  camp.  You 
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never  expected  it  to  be  easy,  did  you? 

After  walking  for  about  five  miles,  you  happen  onto  a  rundown  trading 
post  with  a  hand-painted  sign  over  the  door,  indicating  that  you  have  made 
it  to  "Kragnor's."  Half  expecting  the  store  to  be  out  of  business,  you  enter. 
You  are  greeted  by  Kragnor  himself,  a  suspicious-looking  character  who  smiles 
as  if  he  already  knows  you.  Included  in  the  store's  inventory  of  approximately 
100  items  are  several  tools  and  weapons  that  look  very  familiar. 

You're  in  no  position  to  challenge  Kragnor  at  the  present  so  you  keep 
your  suspicions  to  yourself,  looking  only  for  the  things  you  need.  Be  careful, 
because  he  maintains  that  some  of  the  items  are  magical.  What  he  doesn't 
say,  however,  is  whether  the  magic  is  good  or  evil. 

Directly  across  the  valley  lies  the  "deserted"  castle  for  which  you  have  been 
searching.  When  you  arrive  you  see  a  small  sign  with  convenient  directions 
on  how  to  return  to  Kragnor's  store  for  more  supplies.  It  also  notes  that 
Kragnor  will  purchase  any  treasures  you  uncover  (doesn't  Kragnor  have  a 
big  heart?). 

Just  inside  the  entrance  to  the  castle  is  a  room  where  you  are  given  the 
method  of  disposing  of  any  unwanted  items.  If  you  need  another  weapon, 
it  is  unacceptable  to  simply  drop  the  one  you  have  and  leave  it  behind  because 
Kragnor  will  refuse  to  sell  you  another  one. 

The  objective  of  this  Adventure  is  to  collect  all  20  objects  in  the  castle 
and  return  to  Kragnor's.  You  can  wander  through  the  castle  at  will  to  obtain 
them. 

Loading  -  -  First,  CLDRD  "KRAGNOR"  and  RUN.  When  you  receive  a  cue, 
insert  a  work  tape  to  save  the  data  that  is  created  from  the  KRAGNOR 
listing.  Put  the  worktape  aside  and  type  P0KE25 , 6 :  P0KE26 , 1 :  NEW.  Next,  CLOflD 
"FLODNAR"  and  RUN.  When  prompted,  position  the  data  tape  to  be  loaded 
into  the  computer. 

Note  that  you  will  need  to  switch  back  and  forth  between  the  Kragnor 
and  Flodnar  programs  to  solve  the  Adventure.  This  means  that,  yes,  you 
will  be  loading  both  tapes  at  various  intervals  in  the  game.  Flodnar  is  the 
castle  and  Kragnor  is  the  trading  post.  You  will  find  appropriate  program 
prompts  to  be  very  helpful. 

(Gregory  Clark,  a  Nynex  technician  in  Syracuse  N.Y.,  writes  Adventure 
games  as  a  hobby.  He 's  also  a  science  fiction  buff. ) 
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r-  KRAGNOR 


32K  ECB 


1  REM   'KRAGNOR'   BY  GREG  CLARK/ 12 

2  MALE  AVE/SYRACUSE/NY/13  219/FOR 
ANY  QUESTIONS  OR  INFORMATION  RE 

GARDING   'KRAGNOR'    OR   'FLODNAR'  E 
ITHER  CALL  M-F  6P-9P/S+S   1P-8P  E 
ASTERN/315/487/8406  OR  SEND  SASE 
FOR  REPLY 

2  REM  COPIES  MAY  BE  FOUND  ON  RAI 
NBOW  ON  TAPE/CONTACT  THE  RAINBOW 

MAGAZINE  FOR  ORDERING  INFORMATI 
ON 

3  CLS2 :PRINT@167, "ADJUST  VOLUME 
NOW" ; : PRINT@327 , "TONES  NOW  SOUND 
ING"  ; 

4  FORX=lTO  1,0,0 STEP3  :  SOUNDX ,  2  :  NEXT 

5  DRAWS4C1" 

6  CLS:PMODE4,1:SCREEN0,1:PCLS 

7  LINE(16,120)-(100,172)  ,PSET,B: 
LINE ( 2  6  , 14  8 )  -  ( 3  8  , 170 )  , PSET , B : LIN 
E(  46, 148) -(58,  160)  , PSET, B: LINE (7 
4,148)  -(86,  160)  ,  PSET,  B:  DRAW"  BM2J3 
, 124 ;D12BU6E6BG6F6BR4U12R6D6L6F6 
BR4U12R6D6L6R6D6BR4U12R6D2BD4L2R 
2D6L6BR10U12F2D2F2D4F2U12BR4R4D1 
2L4U12BR4 

8  DRAWBR4R6D6L6U6D12U6F6BU12BR2 
F2D4BD6BR2R6U6L6U6R6" : LINE (28 , 15 
0)- (36,160) ,PSET,B:DRAW"BM3  6,162 
;D2" :DRAW"BM0, 174R110E5U10E7U5E4 
R2E4E4U2E4R6U6E2U2H2U2H2U2E4 

9  DRAWBM0,  188R134E4U6E8U10R4E6R 
2F4L2E4U2E2H4U10E6U10H4U6E2 

10  DRAW"BM0,4R2F4R10F12D2R4D6F8R 
24D4F20D10F8R8F2R4F6R8F3D2F10R4F 
6R28F6R4F10D2F6D6F10R10F4R6F8D6F 
6R4F6R4 

11  A$="E8R4E4R4E8R4E4R4E6R2 

12  DRAWBM126,  92R4"+A$ :  DRAWBM13 
0 , 96"+A$+"U4E2U2H2R6U2H2R4R2U2E2 
U2E2 

13  DRAW"BM94 , 78E4R2E6R8E6R4E2R2E 
8R4E6U8E4U6E4R4E6U4E6U4E4 

14  DRAW"BM182,44R36U28H4G4D10L4U 
18H4L4G4D18L4U10H4G4D28 

15  LINE(188,44)-(192,34) ,PSET,B: 
LINE (184, 16) -(188,20) , PSET, B: LIN 
E  (212, 16) -(216, 20)  , PSET , B : LINE ( 1 
98, 10) -(202, 14) , PSET, B: LINE (198, 
18) -(202,22) , PSET, B: DRAW" BM200, 2 
D2 " : LINE ( 18  4 , 2  6 ) - ( 188 , 30 )  , PSET , B 
: LINE (200, 34) -(204,38) ,PSET,B 

16  LINE(208,34)-(212,38) ,PSET,B: 
DRAW"BM36 , 92ND6NE4U2E2U2E2U2H2H2 
" :DRAW"BM3  6, 92H6U2H2L2H2" : DRAW'B 
M36,  92U2H2U2E4U4H4U2"  :  DRAWBM44  , 
104D2L2R4L2D4BE6U2D2L2R4L2D4BF4U 


2D2L2R4L2D4BE12U2D2L2R4L2D4BH8U2 
D2L2R4L2D4" 

17  DRAWBM66, 15F2E2F2E2BF20F2E2F 
2E2" :DRAW"BM240,40U2D2L2R4L2D2BR 
6U4D2L2R4BR2R2U2D2R2L2D2BH12U2D2 
L2R4L2D2BU8BE4U2D2L2R4L2D2 

18  DRAW"BM80, 120U6E2R4G2D6BU8E2U 
2E2U2E4U2BF20"  :  DRAWNU4NH2NE2BR8 
0BD46"  :  DRAWNU6NE4NH4 

19  SCREEN1,1 

20  GOSUB275:DRAW"BM234,24U2L2R4L 
2U2" :GOSUB275:DRAW"BH10U2D4U2R2L 
4"  :GOSUB275 :  DRAWBR10BD2U2D4U2L2 
R4"  :  GOSUB275  :  DRAWBR8BU2U4D2L2R4 
"  :  GOSUB275  :  DRAWBG20BD8D4U2L2R4  " 
:  GOSUB275  :  DRAWBU12D4U2L2R4"  :  GOS 
UB275:DRAW"BF8U4D2L2R4" 

21  G0SUB275:DRAW"BM54,84C1U1E1R1 
F1D1G1D2BD2D1" : FORX=1TO500 : NEXT : 
DRAWBM54  ,  84C0U1E1R1F1D1G1D2BD2D 
1 " : V=V+ 1 : PLAY " 0  3  C " : I FV<  5THEN2 1 

22  FORX=1TO5000:NEXT 
2  3   PRINT@0, "" :CLS6 

24  PRINT@268, "kragnor" ; :A$="T603 
L4GL2EL4EEDEL2 . FL2EL4EL2DL4DDCDL 
2 . EL2CL4GL2EL4EEDEL2FL4GL2AL4AGA 
GL2FL4DL2 . C" : B$="L4EGGGL2AL4AL2 . 
GP2L4GEEEL2FL4FL2 . EP2L4" : PLAYA$+ 
"P2" : CLS7 : PRINT© 10 7 , "OUR  MOTTO" ; 
: PRINT@258 , "honesty  is  fairly  im 
port ant" ; 

25  PLAYA$+"P2":PLAYB$:CLS2:PRINT 
@ 13 4, "COMPLAINT  DEPARTMENT" ; : PRI 
NT@ 3 5 6, "LOCATED  AT  REAR  OF  STORE 
M; :PLAYA$+"02" 

26  DIM  A2$ (100) ,A1$ (100) ,A2 (100) 
, A3 (100) ,W(100) ,UD(49) ,D(50) , L$ ( 
38) ,L2(49) ,C(50) ,T(50) ,T$(50) 

27  FORX=1TO100:READA2$ (X) ,A1$ (X) 
,A2 (X) ,A3 (X) : NEXT 

28  FORX=31TO50 : READT (X) :NEXT 

29  FORX=31TO50:READT$(X) :NEXT 

30  CLS8 : PRINT@37 , "YOU  ARE  ABOUT 
TO  ENTER" ; : PRINT§100 , "KRAGNOR&HA 
TCHLINGS  STORE" ; :PRINT@161, "IS  T 
HIS  YOUR  FIRST  VISIT  OR  ARE";: PR 
INT@225,"YOU  RETURNING  FOR  MORE 
SUPPLIES" ; :PRINT@290, "ENTER  (F) I 
RST  OR   (R) ETURNING" ; 

31  L$=INKEY$ : IFL$=" "THEN3 1 

32  IFL$="F"THENGP=110 : LL=12 : JP=1 
: CLS7 : GOT03  3ELSEIFL$="R"THENCLS7 
:G0T0166ELSES0UND1, l:GOT031 

33  L$ (6)=" FLOODED  ROOM" : L$ ( 16 ) =" 
HALL  BLOCKED  BY  FLAME" : L$ ( 38 ) ="H 
ALL  BLOCKED  BY  DRAGON" 

34  CLS6 : PRINT @ 70, "WHAT  SKILL  LEV 
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EL  DO" ; : PRINT@129 , "DO  YOU  WISH  T 
0  USE  IN  THE  GAME?" ; : PRINT@299 , " 
1=EASIEST" ; : PRINT@3  63 , "9=HARDEST 
ti  . 

35  P$=INKEY$:IFP$=""THEN35 

36  SK=VAL(P$) :CLS7:IFSK<10R  SK>9 
THENSOUND1 , 1 : GOT03  4 

37  S3=23:S5=SK/20 

38  Z=0  :  TC=0  :  CLS3  :  PRINT@38  ,  "KRAGN 
OR&HATCHLING'S"  ;  :  PRINT @ 70  ,  "GENER 
AL  MERCHANDISE" ; : PRINT @ 161 , "EVER 
YTHING  FOR  THE  ADVENTURER" ; : PRIN 
T@226,"IF  YOU  DON'T  SEE  IT  HERE- 
—  "  ;  :  PRINT@294  ,  "IT  ISN'T  AVAILAB- 
LE" ; : PRINTS 3 57 , "CASH  OR  TREASURE 

ONLY" ; 

39  SOUND180 ,  2  :  PRINT@420 ,  "YOUR  CR 
EDIT  IS  WORTHLESS" ; :FORY=1TO1000 
:NEXT:SOUND80,2:PRINT@425,  "  LIFE 

"  ; :  FORX=1TO1000 :  NEXT :  Z=Z+1 :  IFZ> 
2THEN40ELSE39 

4J3  KC=0:CLS2:PRINT@42,"DO  YOU  WI 
SH  TO"; :PRINT@97,"(S)ELL  TREASUR 
E"; :PRINT@193, " (P)URCHASE  MERCHA 
NDISE" ; : PRINT@289 , " (G) 0  ADVENTUR 
ING" ; :PRINT@385, " (E)NTER  COMPLAI 
NT"  ; 

41  FORY=1TO250 : A$=INKEY$  :  IFA$="" 
THENNEXTELSE4  4 

42  PLAY"L100ACD"  :  PRINT@457  ,  "ente 
r  choice"; : FORY=1TO250 : A$=INKEY$ 
: IFA$=" "THENNEXTELSE44 

43  PRINT@457, "ENTER  CHOICE" ; : PLA 
Y"L100DCA" :GOT041 

44  IFA$="S"THEN61ELSEIFA$="P"THE 
N106ELSEIFA$="G"THEN46ELSEIFA$=" 
E"THEN276ELSES0UND1 , 5 : GOT041 

45  GOT045 

46  REM  GO  ADVENTURING 

47  REM  ENTER  TAPE 

48  CLS : PRINT@256 , "POSITION  TAPE, 
PRESS  RECORD+PLAY . WHEN  READY, PRE 
SS  <ENTER>" : PRINT@417 , "PRESS  <R> 

IF  YOU  HAVE  ERRED  ANDDON'T  WISH 
TO  GO  ADVENTURING  YET"; 

49  L$=INKEY$ : IFL$=" "THEN49 : ELSEI 
FL$="R"THEN40 

50  CLS6:PRINT@267, "SAVING  DATA"; 

51  OPEN"0",#-l,"DATA" 

52  PRINT # - 1 , MA , MB , MC , MD , ME , MF , MG 
, MH , MI , MJ , MK , ML , MM , MN , MO , MP , MQ , M 
R,MS,MT,UP,DO,L,LL,V,H,SK,CK, JA, 
JB, JC, JD, JE, JF, JG, JH, JI, JJ, JK, JL 
, JM, JN, JO, JP, JQ, JR, JS,W1$,S3,S5, 
KN,HA,QA,QB,GP,E,W,N,S,CO,KC,Nl, 
JT, JU, JV, JW 

53  PRINT#-1,C$(1) ,C$(2) 

54  F0RX=1T049:PRINT#-1,L2 (X) ,UD( 
X) : NEXT 


55  FORX=1TO100:PRINT#-1,W(X) :NEX 
T 

56  PRINT#-1,L$ (6) ,L$ (16) ,L$ (38) 

57  FORX=1TO50:PRINT#-1,D(X) ,C(X) 
:  NEXT 

58  CLOSE#-l 

59  CLS : PRINT@9  6 , "THE  DATA  TAPE  H 


AS  BEEN  MADE.  NOWTURN  COMPUTER  0 
FF, WAIT  1  MINUTE, TURN  COMPUTER  0 
N, TYPE  <POKE25,6:POKE26,l:NEW><E 
NTER> , CLOAD ' THE  CRYPT  OF  FLODNA 
R'  AND  FOLLOW  THEDIRECTIONS  AS  G 
IVEN" 

60  FORX=lTO 100000: NEXT: GOTO 40 

61  REM  SELL  SECTION 

62  CLS : PRINT@3  4 , "WE  PURCHASE  TRE 

ASURE  ONLY  " : PRINT@129 , "MY  HAT 

CHLINGS  HAVE  ALREADY  GONETHROUGH 

ALL  OF  YOUR  BELONGINGS,  THEY  HA 
VE  GIVEN  ME  A  LIST.   WHEN  YOU  SEE 

AN  ITEM  THAT  YOU  WISH  TOBE  OVER 
-PAID  FOR, PRESS  <S>.  IF  IT  IS  N 
OT  FOR  SALE, DON'T  WASTE" 

63  PRINT "MY  TIME-PRESS  <P>.  WHEN 
YOU  HAVECOMPLETED  STEALING  ME  B 

LIND   (FORI  AM  FAR  TOO  HONEST  TO 
BE  A  RICHMERCHANT)    PRESS  <R> 

KRAGNO 

R":J=30 

64  IFWL=0THENFORI=1TO25000:NEXT: 
GOTO70ELSEFORI=1TO1000 : NEXT : GOTO 
70 

65  A$=INKEY$ : IFA$=" "THEN65ELSEIF 
A$="S"THEN66ELSEIFA$="P"THEN70EL 
SEIFA$="R"THEN40ELSESOUND1 , 10 : GO 
T065 
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66  REM  SELL  ITEM 

67  KC=1:GP=GP+T(J) :C(J)=3 

68  IFJ=37THENW(58)=0:A2$(58)=CHR 
$ (79) +CHR$ (82) +CHR$ (65) +"NG"+CHR 
$(69)+"  "+CHR$(83)+"APP"+CHR$(72 
)  +CHR$  (73)  +"RE"  :  Al$  (58)  ="»--»N 
EW  ITEM« — «":A2  (58)=975:A3  (58) 
=1 

69  GOTO70 

70  WL=1:J=J+1:IFJ>50THENJ=31 

71  IFTC>100ANDKC=0THENCLS6:  PRINT 
@225,"YOU  OBVIOUSLY  ARE  NOT  SERI 
OUS" ; : PRINT@289 , "I  HAVE  OTHER  TH 

INGS  TO  DO  " ; :FORI=1TO2000:NE 

XT : CT=CT+1 : IFCT<3THENGOT038ELSE7 
4 

72  IFTC>100ANDKC=1THENCLS2 : PRINT 
@ 2 60, "YOU  HAVE  NO  MORE  TREASURE" 
;  :FORY=1TO1500: NEXT: GOTO 40 

73  TC=TC+1:CLS3 :IFC(J)=1  ORC(J)= 
2THENPRINT@19  6,T$ (J) ; :PRINT@289, 
"MY  OFFER: " ; : PRINT@3  54 , T ( J) ; :PRI 
NT@458, "your  balance=" ;GP; :GOT06 
5ELSE70 

74  CLS0 : PRINT§194 , "YOUR  WORTHLES 
S  HIDE  HAS  BEEN" ; : PRINT@2  63 , "TOS 
SED  TO  THE  DOGS" ; : PRINT@3  3  9 , "KRA 
GNOR"  ;  :FORI=1TO2500:NEXT:SCREEN1 
,l:GOT0281 

75  REM  CHECK  FOR  UNACCEPTABLE  DU 
PLICATES 

76  IFX<80R(X>13AND  X<17) OR(X>22A 
ND  X<30)OR(X>3  3AND  X<37)  THENIFQA 
=lTHENlj34 

77  IFX=80R(X>9AND  X<14 ) OR (X>29AN 
D  X<34)THENIFQB=1THEN104 

78  IFX>84AND  X<88THENJM=JM+1 : : RE 
TURN 

79  I FX=76THENJR=JR+1: RETURN 

80  IFX=770R  X=7  8THENJQ=JQ+1:RETU 
RN 

81  IFX>90AND  X<98THENRETURN 

82  IFX=82THENRETURN 

83  IFX>1AND  X<8  THENFORY=2T07 : IF 
W(Y)  O0THEN104ELSENEXT : RETURN 

84  IFX>7AND  X<14THENFORY=8T013 : I 
FW(Y) O0THEN104ELSENEXT: RETURN 

85  IFX=1  ANDW(14)=1  ORX=14AND  W( 
1)=1  THEN104 

86  IF(X=150R  X=230R  X=24)AND(W(1 
5)=10R  W(23)=10R  W(24)=1)THEN104 

87  IF(X=170R  X=180R  X=190R  X=20) 
AND(W(17)=10R  W(18)=10R  W(19)=10 
R  W(20)=1)THEN104 

88  IFX>24AND  X<30THENFORY=2  5TO2  9 
: IFW ( Y) =1THEN104ELSENEXT : RETURN 

89  IFX>29ANDX<37THENFORY=30TO36: 
IFW ( Y) =1THEN104ELSENEXT :  RETURN 

90  IF(X=210R  X=220R  X=83)AND(W(2 


1)=10R  W(22)=10R  W(83)=1)THEN104 

91  IFX>36AND  X<42THENFORY=37T041 
: IFW ( Y) =1THEN104ELSENEXT : RETURN 

92  IFX>41AND  X<48THENFORY=42T047 
: IFW (Y)=1THEN104ELSENEXT: RETURN 

93  IF(X=480R  X=49 ) AND (W ( 48 ) =10R 
W(49)=1)THEN104 

94  IF(X=580R  X=50OR  X=510R  X=52) 
AND(W(58)=10R  W(50)=1OR  W(51)=10 
R  W(52)=1)THEN104 

95  IF(X=560R  X=57 ) AND (W ( 56) =10R 
W(57)=1)THEN104 

96  IFX>58AND  X<63THENFORY=59T062 
:  IFW  ( Y)  =1THEN104ELSENEXT :  RETURN 

97  IF(X=640R  X=650R  X=66)AND(W(6 
4)=10R  W(65)=10R  W(66)=1)THEN104 

98  IF(X=680R  X=69 ) AND (W ( 68 ) =10R 
W(69)=1)THEN104 

99  IF(X=720R  X=73 ) AND (W ( 72 ) =10R 
W(73)=1)THEN104 

100  IF(X=740R  X=75)AND(W(74)=10R 
W(75)=1)THEN104 

101  IF(X=880R  X=89)AND(W(88)=10R 
W(89)=1)THEN104 

102  IF(X=90AND  W(90) =1) OR(X=80AN 
D  W(80)=1)OR(X=81AND  W(81)=l)OR( 
X=63AND  W(63)=l)OR(X=55AND  W(55) 
=l)OR(X=54AND  W(54) =1) OR(X=53AND 

W(53)=1)THEN105 

103  RETURN 

104  PRINT@448,"  ONLY  ONE  OF  THI 
S  TYPE  OF  ITEM" :PRINT@485, "PER  C 
USTOMER, PLEASE" ; : SOUND 1 , 10 : IL=1 : 
RETURN 

105  PRINT§448,"  ONLY  ONE  OF 
THIS  ITEM" :PRINT@485, "PER  CUSTOM 
ER, PLEASE" ; : SOUND1 , 10 : IL=1 : RETUR 
N 

106  REM  PURCHASE 

107  CLS 6: PRINT §3 8, "MERCHANDISE  C 
ATALOG" ; :PRINT§289, "USE  UP  AND  D 
OWN  ARROW  KEYS  TO" ; : PRINT§3 60 , "V 
IEW  MERCHANDISE" ; : PRINT§4  51 , "PRE 
SS  <P>  TO  PURCHASE  ITEM" ; : PRINT@ 
419, "PRESS  <E>  TO  EXIT  CATALOG"; 
:PRINT@483, "PRESS  <I>  TO  VIEW  PU 
RCHASES" ; 

108  PRINT@130, "ALL  MERCHANDISE  D 
EFINATELY" ; : PRINT@162 , "GUARANTEE 
D  TO  BE  ALMOST  AS" ; : PRINT@202 , "D 
ESCRIBED" ; : PRINT@227 , "NO  RETURNS 

UNLESS  NOTED" ; : X=100 

109  A$=INKEY$ : IFA$=" "THEN109ELSE 
IFA$="P"THEN118ELSEIFA$="E"THEN4 
0ELSEIFA$=CHR$(10)THEN110ELSEIFA 
$=»AiiTHEN11j3ELSEIFA$="I"THEN116E 
LSESOUND1 , 10 : GOTO109 

110  I FA$= "  A 11  THENX=X- 1 : 1 FX<  1THENX 
=  100 
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111  IFA$=CHR$ (10)THENX=X+1:IFX>1 
00THENX=1 

112  CLS6:PRINT@32, "item"; : PRINT© 
64,A2$(X) ; :PRINT@128, "descriptio 
n"; :PRINT©160,A1$(X)  ;  :PRINT@224, 
"price  in  gold  pieces" ;: PRINT@25 
6, A2 (X) ; :PRINT©320, "quantity  in 
stock"; :PRINT@472, "page";X; 

113  IFA3 (X) <1THENPRINT@352 , "NONE 
"; :ELSEPRINT©352,A3 (X) ; 

114  PRINT@416, "your  balance";: PR 
INT@448,GP;  :SOUND100,3 

115  GOTO109 

116  CLS : PRINT© 3 4 , "YOUR  PURCHASES 
TO  THIS  POINT: ": PRINT :F0RI=1T01 

00:IFW(I)  >0THENFORI1=1TOW(I)  :  PRI 
NT A 2 $ (I) : PRINTA1 $ (I) : PRINT : FORI 2 
=1TO1000 : NEXTI2 : NEXTI1 : F0RP=1T01 
000:NEXTP 

117  NEXTI: PRINT: PRINT "AATHAT'S  A 
LLA  A  "  :  FORI= 1TO  10 0 0  :  NEXT :  GOTO  1 10 

118  G1=A2  (X)  :G2=GP-G1:IFG2<0THEN 
PRINT© 1, "HONEST  MEN  DO  NOT  TRY  T 
0  CHEAT" ; : CH=CH+1 : SOUND30 , 1 : IFCH 
>2THENCLS0  :  FORY=1TO1000  :  NEXT :  PRI 
NT@2  24,"YOUR  DEAD  BODY  HAS  BEEN 
DUMPED"; :PRINT@289, "IN  THE  ALLEY 

BEHIND  MY  SHOP" ; : PRINT© 3 69 , "KRA 
GNOR"  ;  :  FORY=1TO3000  :  NEXT 

119  IFCH>2THENSCREEN1 , 1 : GOT0281 

120  IFG2<0THENSOUND28, 1: GOTO 109 

121  IFA3 (X) <1THEN  SOUND1 , 10 : GOTO 
109 

122  GOSUB75:IFIL=1THENSOUND80,4: 
GOT0124 

123  GOSUB179 

124  IFIL=1THENIL=0:FORUU=1TO500: 
NEXT:GOT0112 

125  A3 (X)=A3 (X) -1 : GP=GP-G1 : W (X) = 
W(X)+1 

126  IFX=820R  X>92  ANDX<98  THEN13 

127  IFX=79  ORX=91  ORX=92THEN144 

128  IFX=98THEN145 

129  GOTO110 

130  PRINT©128, "":PRINT@160, "":PR 
INT@192, " " 

131  D=RND(10) :D(D)=D(D)+l:IFD(D) 
>1THEN131 

132  ON  D  GOT0133,134,135,136,137 
,138,139,140,141,142 

133  PRINT© 12 8, "THE  KING  IS  GOING 
TO  RETIRE" ; :GOT014  3 

134  PRINT©128, "THE  NEW  SILVER  DA 
GGER  IS  REALLY  ENCHANTED" ;: GOTOl 
43 

135  PRINT@128 , "THERE  IS  A  CAFETE 
RIA  ON  THE  TOP  LEVEL  OF  THE  RUIN 
S" ; :GOT014  3 


136  PRINT© 12 8, "YOUR  CHANCES  ARE 
BEST  IF  YOU  GO  IN  PEACE" ;: GOTO 14 
3 

137  PRINT© 12 8, "THE  DRAGON  LIKES 
TO  BE  PETTED" ; :GOT0143 

138  PRINT© 12 8 , "MY  PRICES  ARE  TOO 
LOW"; :GOT0143 

139  PRINT© 12 8, "DON'T  SWIM  IN  THE 
POOL!"; :GOT0143 

140  PRINT© 12 8, "THERE  ARE  GUIDED 
TOURS  OF  THE       RUINS -2 5  GP  A  TIC 
KET-WANT  ONE?" ; : GOTO 14 3 

141  PRINT© 12 8, "NONE  OF  THE  SPIDE 
RS  IN  THE  RUINSWILL  BITE";: GOTOl 
43 

142  PRINT© 12 8 , "I  WILL  HOLD  YOUR 
TREASURE  HERE     FOR  FREE  UNTIL  YO 
U  RETURN" ; : GOTO 14 3 


143  PLAY "L 100 DACBGEDAF" : FORM=lTO 
2 000 : NEXT : GOTO 1 10 

144  PRINT©160, "" :PRINT@192, "" : PR 
INT© 12 8, "HERE  IT  IS-NY , NJ&DELAWA 
RE" : FORZ=1TO1000 : NEXT: PRINTQ192 , 
"REMEMBER-NO  REFUNDS ! " : F0RZ=1T02 
000: NEXT :GOTO110 

145  PRINT@160, "SAY  ' HAWAYA • " : FOR 
Z=1TO4000 : NEXT : GOTO110 

146  GOT0146 

147  DATA  MACE , USED-SEEMS  SOLID, 2 
5,1, SWORD, NEW-TWO  HANDED, 100 , 1 , S 
WORD, USED-TWO  HANDED-SERVICABLE , 
7 4, 2, SWORD, USED-TWO  HANDED-SEEN 
BETTER  DAYS ,38,1, SWORD , NEW-SHORT 
,79,1, SWORD, USED-SHORT-SLIGHTLY 


BENT ,27,1, SWORD , NORMAL-NEW ,84,3, 
DAGGER , NEW-NORMAL ,36,4 
148  DATA  MEN-AT-ARMS , STRONG-RELI 
ABLE ,  2  3  0  , 0 

14  9  DATA  DAGGER, NEW-S I LVER-ON  GO 
OD  AUTHORITY-MAYBE  ENCHANTED, 75 , 
1, DAGGER, USED-NORMAL-ONLY  USED  0 
N  SUNDAYS, 25,1, DAGGER, USED-SILVE 
R-UNKNOWN  BACKGROUND ,53,1, DAGGER 
, USED-NORMAL-LITTLE  RUST, 14,1, MA 
CE , NEW ,33,1, CLUB , NEW-HEADBUSTER 
MODEL, 42, 2 

150  DATA  SWORD, ENCHANTED-ONE  OF 
A  KIND, 2 8 9, 0, HOLY  WATER, VIAL-FRE 
SH  FROM  THE  TEMPLE , 120 , 1 , HOLY  WA 
TER, VIAL-OLD  STOCK, 65 , 94 , HOLY  SY 
MBOL, BAD  FEELING  ABOUT  THIS  ITEM 
,7  3,1, HOLY  SYMBOL, CASH&CARRY, 96, 
1, POWDER, ORANGE  COLOR-USE? , 29 , 2 , 
POWDER, RED  COLOR-USE? ,30,1 

151  DATA  CLUB, NEW** SALE  ITEM**,1 
7,2,CLUB,USED-FAIRLY  CLEAN, 12,1, 
SPEAR, USED-SLIGHT  WARP-IRON  HEAD 
,53,1, SPEAR, USED-GOOD  SHAPE-BRON 
ZE  HEAD, 60, 1, SPEAR, NEW** SALE  ITE 
M**, 43, 3, SPEAR, USED-SILVER  HEAD+ 
GOLD  INLAY, 200, 1, SPEAR, USED-AS  I 
S, 10,1, HAND  AX,NEW,39,4 

152  DATA  HAND  AX, USED-SILVER  PLA 
TE- (SOLID?) ,48,1, HAND  AX,USED-BE 
GINNERS  MODEL-HARDLY  WORN,31,l,H 
AND  AX, USED-SEEN  A  LOT  OF  ACTION 
,19,1, BATTLE  AX, NEW, 68 , 1 , BATTLE 
AX, USED-WORN  HANDLE , 52 , 1 , BATTLE 
AX, USED-MAY  BE  ENCHANTED , 55 , 1 

153  DATA  ARMOR-LEATHER, NEW** SALE 
ITEM*  * ,95,1, ARMOR-LEATHER , USED- 
NO  ROT, 7 4,1, ARMOR-CHAIN  MAIL, NEW 
-WILL  ALTER, 143,1, ARMOR-CHAIN  MA 
IL, USED-SMALL  HOLE  IN  CHEST, 110, 
1, ARMOR-PLATE, USED-AS  IS,95,1,SH 
IELD, LEATHER-NEW, 49,3, SHIELD, IRO 
N-NEW, 83 , 2 

154  DATA  SHIELD, IRON-USED-SLIGHT 
DENTS ,67,1, SHIELD, LEATHER-USED- 
NICE  COLOR, 22 , 1, SHIELD, UNIDENTIF 
IED  METAL-USED, 78,1, SHIELD, USED- 
AS  IS-LEATHER, 15,1, HORN, NEW, 21,0 
, SACK, USED-SMALL, 15 , 10 , SACK, NEW- 
SMALL,  20 , 10 , SACK, NEW-LARGE ,40,5, 
SACK, US ED- LARGE ,20,2 

155  DATA  UNICORN  HORN , POWDERED-R 
EAL  THING-HONEST, 55, 84, DRAGON'S 
TEARS, VIAL-NOT  SURE  ABOUT  THIS  I 
TEM,86,3,THIEVE'S  TOOLS , POUCH+TO 
OLS  COMPLETE, 62, 1, POLE, SOLID  ASH 
**REAL  BARGAIN** 12  FEET, 38 , 2 , POL 
E, WOOD-ONE  END  BROKEN-8  FEET, 23, 
1 


156  DATA  COW, JERSEY, 278,0, ROPE, N 
EW-50  FEET,25,4,ROPE,NEW-200  FEE 
T,220, l,ROPE,USED-48  FEET-LOOKS 
OK, 17, l,ROPE,USED-200  FEET-**REA 
L  BARGAIN**, 130, 1 , TINDER&FLINT, N 
EW , 17 , 6 , TORCH , NEW ,5,83, TORCH , USE 
D-LOW  USAGE, 4, 3 2, TORCH, NEW-NEW  M 
ODEL-LONG  LIFE, 9, 2 

157  DATA  SWORD, SOLID  GOLD-DIAMON 
D  STUDDED  HILT , 595 , 0 , ORANGE  LIQU 
ID, VIAL-USE?, 18, 4, BLUE  LIQUID, VI 
AL-USE?, 10, 6, BOOK, NO  KNOWN  LANGU 
AGE*RARE*,92,1 

158  DATA  GOLD  NUGGET , ! REAL ! ,1,0, 
HAMMER, NEW-TOOL  ONLY , 2 7 , 3 , HAMMER 
, USED-TOOL  ONLY, 14, 2, LANTERN, NEW 
,12  3,1, LANTERN, USED-WELL  USED, 57 
,1, WATER  BAG, FILLED, 15, 2 9, WINE  B 
AG, FILLED**FINE  YEAR** , 24 , 9 , WINE 

BAG, FILLED -ALSO  REMOVES  SPOTS+R 
UST,18,836 

159  DATA  MAP, THE  REAL  THING-VERY 
RARE, 105, 94, BOOTS, DESIGNER  STYL 

E-FLASHY-PAIR ,69,3, GLOVES , HEAVY 
LEATHER  STUDDED  PALM, 72 , 1 , HALF-T 
RUTHS, ***STOCK  UP  NOW***FAST  MOV 
ER***, 43, 2, COMPASS, 'BSA'  ON  REAR 
OF  CASE, 14  3 ,0, SNICKER'S  BAR, YUM 
MY ,2,0 

160  DATA  FOOD  RATIONS, HOME  COOKE 
D  QUALITY-ONE  DAY, 20 , 100 , FOOD  RA 
TIONS,BY  'FAST  FOOD  ABDUUL'-ONE 
DAY, 10, 2000, FOOD  RATIONS , GOURMET 
-ONE  DAY, 3 7, 5, MIRROR, POLISHED  ME 
TAL-THREE  INCH, 27 , 1, MIRROR, SI LVE 
RED  GLASS-FIVE  INCH, 72, 2 

161  DATA  DRAGON  GOODIES , RETURN  U 
N BURNED  FOR  REFUND, 2  2 , 4 , MAP, USED 
-SLIGHTLY  STAINED, 27,1, MAP, NEW- J 
UST  PRINTED  TODAY, 38, 83 

162  DATA  RUMOR, RECENT-GOOD  QUALI 
TY, 20, 2, RUMOR, OLD-STILL  FAIRLY  G 
OOD, 15, 3, TRUTH, TOP  QUALITY-ON  TH 
E  HONOR  OF  MY  NESTLINGS  LIVES , 4 
5,1, TRUTH, BETTER  THAN  A  RUMOR, 32 
, 1, TRUTH, ***BARGAIN***, 2  5, 1, MAGI 
C  SPELL, SLIGHTLY  USED-UNKNOWN  US 
AGE, 115, 1 

163  DATA  MAGIC  SPELL, **FANTASTIC 
BARGAIN* *STOPS  ANY     DRAGON  IN  I 

T'S>  TRACKS, 162 ,0, WAND, SCORCEROR' 
S-USED,93,0 

164  DATA  117,87,35,90,78,48,100, 
40  ,  2  8  ,  4  5  ,  100  ,  80  ,  20  , 10  ,  80  , 100  ,  20  , 
15,200,175 

165  DATA  GOLD  BRACELET, STAR  SAPP 
HIRE , EMERALD , RUBY , DIAMOND , TURQUO 
ISE, ORANGE  SAPPHIRE , TOPAZ , OPAL, J 
ADE  BRACELET, BLACK  PEARL, BLUE  SA 
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203  IFX=2  6THENJN=JN+.2 

204  IFX=2  7THENJN=JN+. 3 

205  IFX=2  8THENJN=JN+.5 

206  IFX=31THENJO=JO+2.5 

207  IFX=35THENJN=JN+.4 

208  IFX=3  6THENJN=JN-3 

209  IFX=37THENJN=JN+.2:JO=JO+.2 

210  IFX=38 THEN JN= JN+ . 1 : J0= J0+ . 1 

211  IFX=39THENJN=JN+1 . 5 : J0=J0+1 . 
5 

212  IFX=40THENJN=JN+1: J0=J0+.5 

213  IFX=41THENJN=JN+.7: J0=J0+.7 

214  IFX=43THENJN=JN+.5: JO=JO+ . 9 

215  IFX=44THENJN=JN+. 4 : JO=JO+. 8 

216  IFX=45THENJN=JN+.2:J0=J0+.5 

217  IFX=46THENJN=JN+.8: J0=J0+1.6 


PPHIRE , JADE  PENDANT, GOLD  CHAIN, S 
ILVER  BAR, PLATINUM  RING, IVORY  BR 
OOCH, BRONZE  IDOL, GOLD  CROWN, CRYS 
TAL  WAND 

166  REM  INPUT  TAPE 

167  CLS:PRINT@260, "POSITION  TAPE 
, PRESS  PLAY.  WHEN  READY, PR 
ESS  ENTER" 

168  L$=INKEY$:IFL$=""THEN168 

169  CLS 3 : PRINTS 2 6 6, "READING  DATA 
it  . 

170  OPEN"I", #-1, "DATA" 

171  INPUT#-1,MA,MB,MC,MD,ME,MF,M 
G , MH , MI , MJ , MK , ML , MM , MN , MO , MP , MQ , 
MR,MS,MT,UP,DO,L,LL,V,H,SK,CK, JA 
, JB , JC , JD , JE , JF , JG , JH , JI , JJ , JK , J 
L, JM, JN, JO, JP, JQ, JR, JS,W1$,S3,S5 
,KN,HA,QA,QB,GP,E,W,N,S,CO,KC,Nl 
, JT, JU, JV, JW 

172  INPUT#-1,C$ (1) ,C$ (2) 

173  F0RX=1T049:INPUT#-1,L2 (X) ,UD 
(X) : NEXT 

174  FORX=1TO100:INPUT#-1,W(X) :NE 
XT 

175  INPUT#-1,L$(6) ,L$(16) ,L$(38) 

176  FORX=1TO50:INPUT#-1,D(X) ,C(X 
) :NEXT 

177  CLOSE#-l 

178  CLS : PRINT@2  61 , "THE  DATA  HAS 
BEEN  INPUT" ; : FORZ=1TO3000 : NEXT : C 
LS4: PRINT© 2 30, "ONE  MOMENT , PLEASE 
" ; : GOSUB2  4  6 : GOT03  8 

179  REM  ADJUST  PURCHASE  A3 (    )  TO 
C(   )+ADJUST  OTHER  MISC  VALUES 

180  REM  ASSIGN  VALUE  TO  POLE 

181  IFX=56THENMM=1 

182  IFX=57THENMM=0 

183  REM  ASSIGN  SIZE  TO  PACK 

184  IFX=4  90R  X=50THENCK=4 : JE=0 : I 
FX=49THENJE=1 

185  IFX=510R  X=52THENCK=8 : JE=0 : I 
FX=52THENJE=1 

186  REM  ASSIGN  ROPE  VALUE 

187  IFX=590R  X=61THENML=0 

188  IFX=60THENML=1 

189  IFX=62THENML=2 

190  REM  WEAPON  ADDERS 

191  IFX=1THENJN=JN+. 1 

192  IFX=2THENJN=JN+. 5 
19  3  IFX=3THENJN=JN+.4 

194  IFX=4THENJN=JN+.4 

195  IFX=5THENJN=JN+. 3 

196  IFX=7THENJN=JN+.4 

197  IFX=10THENJO=JO+2 . 5 

198  IFX=12THENJO=JO+1.7 

199  IFX=14THENJN=JN+. 2 

200  IFX=15THENJN=JN+.8 

201  IFX=2  3THENJN=JN+. 1 

202  IFX=2  5THENJN=JN+. 1 


218  REM  ASSIGN  C$ (  ) 

219  IFX<70R(X>13AND  X<17)OR(X>22 
AND  X<30)OR(X>33AND  X<37)THENC$( 

1)  =A2$(X) :QA=l:C(l)=LL:RETURN 

220  IFX=80R(X>9AND  X<14 ) OR (X>29A 
ND  X<34)THENC$(2)=A2$(X) :QB=1:C( 

2 )  =LL: RETURN 

221  REM  MISC  ITEM  ASSIGNMENTS 

222  IFX>48AND  X<53THENC$ ( 3 ) =A2 $ ( 
X) : C (3 )=LL: RETURN 

223  IFX>58AND  X<63THENC (4) =LL:RE 
TURN 

224  IFX=55THENC( 5) =LL: RETURN 

225  IFX>36AND  X<4  2THENC (6) =LL:RE 
TURN 

226  IFX>41AND  X<4  8THENC (7 ) =LL: RE 
TURN 


227  IFX=560R  X=57THENC ( 8 ) =LL: RET 
URN 

228  IFX=53THENC(9)=LL:RETURN 

229  IFX=54THENC( 10 )=LL: RETURN 

230  IFX=63THENC(11)=LL:RETURN 

231  IFX>63AND  X<67THENC ( 12 ) =LL: R 
ETURN 

232  IFX=68THENC( 13 )=LL: RETURN 

233  IFX=69THENC( 14 )=LL: RETURN 

234  IFX=70THENC( 15) =LL: RETURN 

235  IFX=720R  X=7 3 THENC (16) =LL : RE 
TURN 

236  IFX=740R  X=75THENC (17) =LL:RE 
TURN 

237  IFX=76THENC (18) =LL: RETURN 

238  IFX=770R  X=78THENC ( 19 ) =LL: RE 
TURN 

239  IFX=790R  X=910R  X=92THENC(20 
)=LL: RETURN 

240  IFX=21THENC  (21)  =LL:  RETURN 

241  IFX>84AND  X<88THENC (22) =LL:R 
ETURN 

242  IFX=880R  X=89THENC (23 ) =LL: RE 
TURN 

243  IFX=90THENC (24 )=LL: RETURN 

244  IFX=98THENC(27)=LL:RETURN 

245  RETURN 

246  F0RX=1T027:IFC(X)=73THEN248 

247  NEXT: RETURN 

248  IFX=1THENFORY=1TO7:W(Y)=0:NE 
XT : FORY=14T016 : W ( Y) =0 : NEXT : FORY= 
23TO29:W(Y)=0:NEXT:FORY=34TO3  6:W 
(Y)=0:NEXT 

249  IFX=2THENW(8)=0:FORY=10TO13: 
W ( Y ) =0 : NEXT : FORY=30TO3  3 : W (Y) =0 : N 
EXT 

25)3  IFX=3THENFORY=49TO52:W(Y)=0: 
NEXT : CK=0 

251  IFX=4THENFORY=59TO62:W(Y)=0: 
NEXT:ML=0 

252  IFX=5THENW(55)=0 

253  IFX=6THENFORY=37TO41:W(Y)=0: 
NEXT 

254  IFX=7THENFORY=42TO47:W(Y)=0: 
NEXT 

255  IFX=8THENW(56)=0:W(57)=0 

256  IFX=9THENW(53)=0 

257  IFX=10THENW(54)=0 

258  IFX=11THENW(63)=0 

259  IFX=12THENFORY=64TO66:W(Y)=0 
•.NEXT 

260  IFX=13THENW(68)=0 

261  IFX=14THENW(69)=0 

262  IFX=15THENW(70)=0 

263  IFX=16THENW(72)=0:W(73)=0 

264  IFX=17THENW(74)=0:W(75)=0 

265  IFX=18THENW(76)=0 

266  IFX=19THENW(77)=0:W(78)=0 

267  IFX=20THENW(79)=0:W(91)=0:W( 


92)=0 

268  IFX=21THENW(21)=0 

269  IFX=22THENFORY=85TO87:W(Y)=0 
:  NEXT 

270  IFX=23THENW(88)=0:W(89)=0 

271  IFX=24THENW(90)=0 

272  IFX=26THENFORY=25TO29:W(Y)=0 
:NEXT 

273  IFX=27THENW(98)=0 

274  NEXT: RETURN 

275  FORZ=1TO500 :NEXTZ : PLAY"L20 ;0 
3; A": RETURN 

276  CLS3: PRINT© 13 4, "ENTER  YOUR  C 
OMPLAINT" ; :PRINT@198, "IN  25  WORD 
S  OR  LESS" ; : PRINT@256 , ; : LINEIN 
PUT" " ;CD$:IFCD$=" "THEN276 

277  FOR  X=1TO2000:NEXT:CLS6:PRIN 
T@270, "HUMM" ; : FORX=1TO2000 : NEXT : 
CLS4:PRINT@264,"SOME  MERIT  THERE 
"; :FORX=1TO2000:NEXT 

278  CLS5:PRINT@233,"I  MUST  CONFE 
R"  ; : PRINT@295 , "WITH  MY  HATCHLING 
S" ; :FORX=1TO4000:NEXT:R2=RND(12) 
+RND ( 12 ) +RND (12 ) +RND ( 12 ) +RND ( 12 ) 
: IFR2<2  6THENCLS7 : PRINT@23  3 , "YOU 
ARE  RIGHT-" ; : PRINT@29  3 , "YOU  HAVE 

BEEN  WRONGED" ; : FORX=1TO5000 : NEX 
T:CLS 

279  IFR2<26THENPRINT@231, "PLEASE 
ACCEPT" ; : R2=RND ( 300 ) +200 : PRINTR 

2; :PRINT@293, "GOLD  PIECES  AS  APO 
LOGY" ; : GP=GP+R2 : FORX=1TO4000 : NEX 
T:GOTO40 

280  F0RX=1T06:CLS (X) :SOUNDRND(20 
0) ,RND(5) :NEXT:CLS0:PRINT@133,"Y 
OU  ARE  TOO  BOTHERSOME" ; :PRINT@ 2 5 
8, "YOUR  CORPSE  HAS  BEEN  THROWN"; 
: PRINT© 3 90, "INTO  A  SHALLOW  GRAVE 
" ; : FORX=1TO4000 : NEXT : SCREEN1 , 1 

281  FORX=1TO2000:NEXT:SOUND1, 10: 
DRAW"BM54 , 84C1U8D2L2R4" : SOUND1, 1 
0 : FORX=1TO5000 : NEXT : PRINT" " : CLEA 
R: CLS : END 
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FLODNAR 


1  REM  THE  CRYPT  OF  FLODNAR/ YOU  M 
UST  FIRST  RUN  THE  PROGRAM  1 KRAGN 
OR'  BEFORE  ATTEMPTING  TO  RUN  THE 
• FLODNAR ' 

2  REM  BEFORE  RUNNING  'FLODNAR'  < 
POKE 2 5 , 6 : POKE 2 6,1: NEW> 

3  REM  'FLODNAR'  HAS  A  MACHINE  LA 
NGUAGE  PROGRAM  WITH  A  STARTING  A 
DRESS  OF  DECIMAL  32712 

4  CLEAR200, 32711 

5  DIM  W(100)  ,UD(49)  ,D(50)  ,0$(15) 
,L$(49) ,L2(49) ,A$(37) ,B$(37) ,C$( 
50)  ,D$(50)  ,B1(37)  ,B(50)  ,C(50)  :  FO 
RX=1T037:READA$(X) : NEXT 

6  DATA  T7O3L4G,O4L2C,P20,L4C,L2D 
,P20,L4D,E,G,E,L2C,O3L4G,O4L2C,P 
220,L4C,L2D,P20,L4D,L2.E,L2C,O3L 
4G,O4L2C,P20,L4C,L2D,P20,L4D,E,G 
,E,L2.C,L4A,P2,L2D,L4F,L2 .E,L2C 

7  REM  GOTO  13)8 

8  CLS0:PRINT@2  30, "the  crypt  of  f 
lodnar" ; : POKE1257 , 128 : POKE1263 , 1 
28:POKE1266, 128 : PRINT@401 , "by" ; : 
PRINT@434 , "greg" ; :PRINT@4  69 , "cla 
rk" ; :FORX=1TO4000:NEXT 

9  CLSY:FORX=70TO4  20STEP64:PRINT@ 
X,"THE  crypt  OF  f lodnar" ; :W=W+1 : 
PLAYA$ (W) : NEXT : Y=Y+1 : IFY>8THENY= 
ft 

10  FORX=422TO80STEP-64  :  PRINT@X,  " 
the  CRYPT  of  FLODNAR" ; :W=W+1 : PLA 
YA$(W) :NEXT:Y=Y+1:IFY>8THENY=0 

11  Z=Z+1:IFW=36THENPLAYA$(37) :W= 
0 

12  IFZOTHEN9 

13  FORX=1TO400:NEXT 

14  CLS:DEFUSR0=32712 :GOT03  95 

15  CLS7:FOR  X=1T055 : READCS : POKEX 
+32711, CS: NEXT 

16  F0RX=1T037:READB$ (X) :NEXT 

17  FORX=3TO50:READC$(X) :NEXT 

18  FORX=1TO50:READD$(X) :NEXT 

19  F0RX=1T037:READB1(X)  '.NEXT 

20  FORX=0TO15:READO$ (X) :NEXT 

21  F0RX=1T049 :READL$ (X) :NEXT 

22  IFJP=2THENF0RX=1T049:READX9:N 
EXTELSEF0RX=1T049 : READL2 (X) :NEXT 

23  IFJP=2THENF0RX=1T049:READX9:N 
EXTELSEF0RX=1T049:READUD(X) : NEXT 

24  IFL2(6)=1THENL$(6)="R00M  W/DA 
MP  FLOOR" 

25  IFL2  (16)  =10THENL$  (16)  ="HALL" 

26  IFL2 (38)=5THENL$ (38)="HALL" 

27  IFC$(l)=""THENC$(l)="MAJOR  WE 
APON" 

28  IFC$(2)=""THENC$(2)="MINOR  WE 


APON" 

29  REM  PERMENANT  VALUES 

30  IFJP<2THEND(30)=15:D(36)«19:D 
(35)=47:D(17)=24:D(15)=8:D(13)=3 
6:D(14)=37:D(12)=21:D(4)=35:N1=3 
0:D(34)=12:D(33)=20:D(29)=10:D(2 
7)=9:D(22)=16:D(19)=25:D(10)=45: 
D(9)=4  3:D(8)=42: V=7 : H=0 : L=7 : Hl=l 
:UP=1:DO=0:E=1:D(6)=18:D(37)=48: 
D(39)=7:D(40)=6:D(48)=27 

31  IFJP<>2THENS3=24: JI=36:C(33)= 
23:C(35)=41:C(37)=46:C(38)=10:C( 
39)=44:C(41)=45:C(43)=50:C(44)=8 
:C(45)=14:C(46)=25:C(47)=18:C(48 
)=37:D(50)=31:C(25)=34:C(29)=52 

32  JP=2 

3  3  CLS:PRINT@0,  ""  ; :  CLS8  :  X=USR(0) 
: PRINT@0 , "location" ; : POKE1032 , 58 
: PRINT@32 , "moves" ; : POKE1061 , 58 : P 
RINT@64,"i  see"; : POKE1089 , 32 : POK 
E1093,58:PRINT@196,"what  do  you 
wish  to  do"; : POKE1224 , 32 : POKE122 
7,32:POKE1231,32 

34  PRINT@486, "the  crypt  of  flodn 
ar" ; : POKE1513 , 128 : POKE1519 , 128 : P 
OKE1522,128 

35  POKE1236,32:POKE1239,32:POKEl 
242,32:  PRINT@160 ,  "vitality"  ; :  POK 
E1192,58 

36  S5=(SK/20) 

37  PRINT@128,"i  have" ; : POKE1153 , 
32  :  POKE1158  ,  58  :  POKE1216 ,  60  :  POKE1 
217,60:POKE1218,  60:POKE1219,  60  :P 
OKE1243,63:POKE1244,62:POKE1245, 
62 : POKE1246 , 62 : POKE1247 , 62 : GOSUB 
246 : IFL=7THENPRINT@58 , "U" ; 

38  D(4)=35:S3=S3-S5:GOSUB246:GOS 
UB4 14 : GOSUB3  2  9 : GOSUB3  3  6 

39  IFL=18AND  MQ=0AND  MR=0THENMQ= 
1:L$(25)="SAND  FILLED  ROOM":L2(2 
5)=4:L2 (32)=16:MR=1:PRINT@320, "W 
HAT  WAS  THAT! !??"; 

40  P$=" " : C=0 : B=0 : D=0 : IFCK>8THENC 
K=8 

41  IFC(45)=0THENC(45)=14 

42  IFJE=1ANDC(3)=1ANDJF=0THENR2= 
RND(12)+RND(12)+RND(12) :IFR2<40R 

R2>33THENPRINT@416 , "THE  " ;C$ (3) 
;"  BROKE"; : JF=1: FORZ=1TO50 : IFC (Z 
) =2THENC ( Z ) =L+5 : NEXT : S3=S3+S5 : GO 
T038ELSENEXT: S3=S3+S5 : GOT038 

43  IFC(3)<>1THEN47ELSER2=RND(8)+ 
RND(8)+RND(8)+RND(8)+RND(8) : IFR2 
<7  OR  R2>38THEN44ELSE48 

44  FORX=50TO1STEP-1:IFC(X)=2THEN 

4  5ELSENEXT : GOT04  8 

45  C(X)=4  6:F0RX=1T02  4:PLAYA$(X) : 
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NEXT: PRINTS 3 85, "A  WEASEL  WAS  IN 
MY  PACK-IT  RAN" ; : PRINT@429 , "AWAY 
!  ! » ; 

46  FORX=25T037:PLAYA$ (X) :NEXT 

47  IFL=31THENW=1 

48  PRINT@9,L$ (L) ; 

49  IFL2 (L)=16THENGOSUB414:GOT051 

50  PRINT@4  3  , 0$ (L2 (L) ) ; 

51  IFUP=1THENPRINT§58 , "U" ;ELSEIF 
D0=1THENPRINT@61 , "D" ; 

52  REM  A=0  :  B=0  :  C=0  :  D=0 

53  PLAY"T2L100;O4 ;E" : :PRINT@224, 
"" ; :LINEINPUT"" ;A$:A1$=A$ 

54  IFA$="L00K  BOOK" ANDC ( 15 ) =1THE 
NX=USR(0) :PRINT@256, "HOW  TO  WIN 
FRIENDS  AND  INFLUENCEDRAGONS" ; : G 
OT038 

55  IFA$="HELP"THENX=USR(0)  :G0T04 
34 

56  IFLEN(A$)  <1THENPLAY"L80 ; 02  ;AP 
10D"  :  FORX=1248T01279  :  POKEX, 207 :N 
EXT:GOT053 

57  X=USR(0) 

58  IFA$="EAT"OR  A$="DRINK"THEN44 
6 

59  IFL=38AND  N1>0AND  A$="PET  DRA 
GON"THENPRINT@256, "I  DON'T  THINK 

IT  LIKED  IT" ; : PRINT@288 , "IT  FLA 
SH  FRIED  MY  HAND! " ; : S3=S3- (S3/2) 
:GOT03  8 

60  IFLEN ( A$ ) =1THEN7 2 

61  F0RB=1T037:WW$=B$ (B) :WW=INSTR 

( 1 , A$ , WW$ ) : IFWW>0THENVW=LEN ( B$ ( B 

) ) :GOTO65ELSENEXT:B=0:PRINT@257, 

"I  DON'T  UNDERSTAND  WHAT  IT  IS"; 

:PRINT@294, "YOU  WANT  ME  TO  DO."; 

: PRINT@32  5 , "TRY  A  DIFFERENT  VERB 
ii  . 

62  ER=( (INT(32-LEN(A$) )/2)+351) : 
IFLEN (A$ ) >30THENER=3 52 

63  IFLEN (Al$) <30THENPRINT@ER, CHR 
$(159) ;A1$;CHR$ (159) ;ELSEA1$=LEF 
T$(A1$,30)  :PRINT@ER,CHR$ (159)  ;A1 
$;CHR$(159) ; 

64  GOT038 

65  F0RY=1T0VW:MID$(A$,WW,1)="  ": 
WW=WW+1 : NEXT : B=B1 (B) 

66  FORC=1TO50:WW$=C$ (C) :WW=INSTR 
(1,A$,WW$) :IFWW>0THENGOTO86ELSEN 
EXT:C=0:GOTO67 

67  FORD=1TO50 : WW$=D$ (D)  :WW=INSTR 
(1,A$,WW$) :IFWW>0THEN8  6ELSENEXT: 
D=0 

68  PRINT@2  57 , "AFTER  CONSIDERABLE 
SEARCHING, ";:PRINT@ 2 91, "I  CANNO 

T  FIND  THAT  OBJECT" ; : PRINT@327 , " 
TRY  ANOTHER  NOUN"; 

69  ER=( (INT(32-LEN(A$) )/2)+351) : 
IFLEN (A$) >30THENER=3 52 


70  IFLEN  (Al$)  <30THENPRINT@ER,  CHR 
$(175)  ;A1$;CHR$  (175)  ;ELSEA1$=LEF 
T$(A1$,30) :PRINT@ER,CHR$(175) ;A1 
$;CHR$(175) ; 

71  GOT038 

72  IFA$="U"ANDUP=1THENV=V-1:G0T0 
291 

73  IFL=24ANDMK=1THENC(4)=3  6 

74  IFA$="D"ANDD0=1THENV=V+1:G0T0 
291 

75  IFL=2ANDC(4)=1ANDM0=1THENPRIN 
T@256,"I  CAN'T  THE  ROPE  IS  STILL 

TIED" ; :GOT03  8 
7  6  IFA$="N"AND  N=1THENV=V-1 : GOTO 
291 

77  IFA$="S"ANDS=1THENV=V+1:G0T02 
91 

78  IFA$="E"ANDE=lTHENH=H+7 :G0T02 
91 

79  IFA$="W"ANDW=1THENH=H-7:G0T02 
91 

80  IFA$="A"THENB=1ANDC=3 :GOT0316 

81  REM 

82  IFA$="Q"ORA$="P"THEN324 

83  IFA$="&"THEN  S2=S2-99 :GOT033 

84  IFA$="R"AND(L=70R  L=15)THEN37 
3 

85  PLAY"DAD" :PRINT@256, "I  CAN'T 
OBEY"  ;  -.GOTO 3 8 

86  REM 

87  IFB=3THENGOT0341 

88  IFB=2THENGOT0347 

89  IFB=4THENP$="" :PRINT@224, "" ; : 
PLAY " DA" :LINEINPUT" WHERE?" ;P$:IF 
P$="SACK"THENX=USR(0) :GOT03  65ELS 
EX=USR(0) 

90  REM  SELECT  RESULTS  BY  LOCATIO 
N 

91  Hl=(H+7)/7 

92  ON  V  GOTO93,128,150,183,204,2 
16,226 

93  REM  VI 

94  IFH1=6ANDB=2 1ANDMG=0ANDC=8AND 
C  (8 ) =1THEN95ELSE97 

95  IFMM=1THENPRINT@256, "OK  I'M  D 
OWN" ; :D(8)=42 : L=37 : V=2 :H=35 : GOTO 
38ELSER2=RND(8) : IFR2<4THENPRINT@ 
256, "OOOMPH! !   THE  POLE  BROKE  AND 

I  FELL  DOWN  TO  THE  FLOOR  BELO 
W!  KRAGNOR  WILL  PAY  FOR  THIS!" 
; :MG=l:C$ (8)=" BROKEN  P0LE":G0T03 
8 

96  PRINT© 2 56," SHAKEY , BUT  I  MADE 
IT! !"; :D(8)=42:V=2:L=37:H=35:GOT 
038 

97  IFH1=6ANDB=1ANDD=8THENPRINT@2 
56, "JUST  AN  OPEN  TRAP  DOOR";: GOT 
038 

98  IFH1=3THEN99ELSE100 
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99  IFB=1ANDD=33THENPRINT@256 , "IT 
READS    1  FROM  HERE  YOU  MAY  GO  BAC 

K  TO         KRAGNOR'S  EMPORIUM  BY  IN 
PUTING     <R>  OR  GO  BACK  INTO  THE 
GAME  BY  INPUTING  <W> • " ; :GOT03  8 

100  IFH1=7THEN101ELSE105 

101  IFB=1ANDD=3  7THENPRINT@256, "A 
METAL  CABINET  WITH  ONE  DRAWER"; 

:D(38)=48:GOT038 

102  IFB=5ANDD=38ANDJS=0THEN103EL 
SE104 

103  JS=1:C(40)=48:R2=RND(18)+RND 
(18)+RND(18) : IFR2>40THENPRINT@25 
6 , "A  PURPLE  GAS  CAME  OUT !!!";: FO 
RZ=1TO2000:NEXT:PRINT@320, "I  FEE 
L  WEAKER! ! " ; : S3=S3-RND ( 5 ) +5 : GOTO 
38ELSEPRINT@256, "IT  IS  OPEN";: GO 
T038 

104  REM 


105  IFH1=1THEN106ELSE110 

106  IFB=1ANDD=40THENPRINT@256 , "I 
SEE  A  HIDDEN  LATCH" ; : D (41) =6 : GO 

T038 

107  IFB=1ANDD=4 1ANDD (41) =6THENPR 
INT@ 2 5 6, "SMALL, HOOK  SHAPED" ; : GOT 
038 

108  IFB=1ANDD=42ANDD (42 ) =6THENIF 
C ( 3 1 ) =0THENC ( 3 1 ) =6 : PRINT@2  5  6 , "WO 
W! !"; :GOT038ELSEPRINT@2  56, "NOTHI 
NG  ELSE" ; :GOT038 

109  IFB=5ANDD=41ANDD (42 ) =0THENR2 
=RND(20)+RND(20) : D (42 ) =6 : PRINT© 2 
56, "A  SMALL  PANEL  SLID  BACK , THER 
E  ISA  CUBBY  HOLE  BEHIND  IT" ; : IFR 
2<7THENPRINT@320, "A  BROWN  SPIDER 

WITH  RED  SPOTS  BIT  MY  HAND!!" 
; : S3=S3-RND ( 8 ) +4 : G0T03  8ELSEGOT03 
8 


110  IFH1=4THEN111ELSE126 

111  IFB=1THEN112ELSE119 

112  IFD(D)=27THEN113ELSE119 

113  IFD=48THENPRINT@256, "GOES  FR 
OM  ONE  WALL  TO  THE  OTHER, THERE  I 
S  A  PADLOCK  ON  A  HASP" ; : D ( 43 ) =27 
:D(44)=27:GOT038 

114  IFD=43THENPRINT@256, "VERY  HE 
AVY  W/KEYHOLE" ; :GOT038 

115  IFD=45THENIFC(28)=0THENC(28) 
=27 :PRINT@256, "THERE  IS  A  KEY  HA 
NGING  FROM  IT";:GOT038 

116  IFD=46THENPRINT@2 56, "THERE  A 
RE  TWELVE  LETTERS  ON  IT-  A  THROU 
GH  L";: GOTO 3 8 

117  IFD=47THEND(46)=27:PRINT@256 
, "THERE  IS  A  DIAL  ON  IT";:GOT038 

118  IFD=49THENPRINT@256 , "IT  IS  H 
AND-WRITTEN , THE  LETTERS  B+D+J" ; : 
GOTO 3 8 

119  REM 

120  IFB=8ANDD=4 6ANDJU=0THENPRINT 
@256,"TO  WHAT  LETTER" ;: INPUTMZ$ : 
IFMZ$="B"THENPRINT@288, "TO  WHAT 
LETTER" ; : INPUTMZ$ : IFMZ$="D"THENP 
RINT@320,"TO  WHAT  LETTER" ;: INPUT 
MZ$:IFMZ$="J"THENX=USR(0) : PRINT@ 
2  56, " 'CLICK' " ; :GOSUB412 :PRINT@2  5 
6, "IT  OPENED" ; :JU=1 

121  IFB=8ANDD=46ANDJU=0THENX=USR 
(0) :PRINT@256, "THAT  IS  NOT  CORRE 
CT" ;: GOTO 3 8 

122  IFB=8ANDD=46ANDJU=1THENC(32) 
=27:C(34)=27:D(46)=99:GOT038 

123  IFB=5ANDD=43ANDJT=0ANDC(28)= 
1THENJT=1:D(48)=99:D(43)=99:D(44 
) =99 : D (45) =99 : PRINT@2  56 , "IT  SLID 

BACK  IN  THE  WALL, NOW  I  SEE  A  B 
RASS  DOOR  INLET  TO  THE  FLOOR"; 
:D(47)=27:GOT038 

124  I FB= 1ANDD=  5THENPRINT @  2  5  6 , " I 
SEE  SOMETHING  WRITTEN" ;: D ( 49 ) =27 
:GOT038 

125  IFB=1ANDD=1THENPRINT@256, "A 
SMALL  HOOK"; : D (45) =27 : GOT038 

126  REM 

127  GOT02  35 

128  REM  V2 

129  IFH1=6ANDB=1ANDD=8THENPRINT@ 
256, "IT  IS  IN  THE  CEILING, THE  CE 
ILINGIS  ABOUT  8  FEET  HIGH" ; : IFMD 
=0THENPRINT@320, "THE  TRAP  DOOR  I 
S  CLOSED" ; :GOTO38ELSEPRINT@320, " 
THE  TRAP  DOOR  IS  OPEN" ; : GOT038 

130  IFH1=6ANDB=19ANDD=8THEN13 1EL 
SE133 

131  PRINT§224, "WITH  WHAT" ;: INPUT 
A$ : X=USR (0 )  : IFA$=C$ ( 8 ) THEN13  2ELS 
E133 
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132  IFMD=1THENPRINT@256 , "IT  IS  A 
LREADY  OPEN"; : GOTO3  8ELSEIFMD=0TH 
ENPRINT@256, "IT  IS  NOW  OPEN";:MD 
=l:GOT038 

13  3  I FH 1= 6 ANDMG=0 ANDMD= 1ANDC ( 8 )  = 
1ANDB=21ANDC=8THEN134ELSE136 

134  IFMM=1THENPRINT@256,"0K,I'M 
UP" ; :D(8)=41:L=36:H=35:V=l:GOT02 
91:ELSER2=RND(10) : IFR2<4THENPRIN 
T@256, "OOOMPH! !  THE  POLE  BROKE  A 
ND  I  FELL  BACK  ON  THE  FLOOR!  K 
RAGNOR  WILL  PAY  FOR  THIS!";:MG=1 
: C$ (8) =" BROKEN  POLE":GOT038 

135  PRINT@256 , "SHAKEY, BUT  I  MADE 
IT! !"; :V=l:H=35:L=36:D(8)=41:GO 

T038 

136  IFH1=5THEN137ELSE143 

137  IFB=5ANDD=4THENIFMB=0THENPRI 
NT@256, "LOCKED-I  CAN'T" ; :GOT038E 
LSEIFMB=1THENPRINT@256 , "IT ' S  OPE 
N  ALREADY" ; : GOTO 3 8 

138  IF  B=1ANDD=4THENPRINT@256 , "T 
HERE  ARE  THREE  LEVERS, THEY  CAN  B 
E  MOVED  UP  AND  DOWN" ; : D ( 11) =35 : G 
OT038 

139  IFB=1ANDD=11THENPRINT@2  56 , "T 
HEY  EACH  MAY  BE  PLACED  IN  FOUR  P 
OSITIONS-A,B,C,D.  ORIGINAL  POS-I 
TIONS  ARE  #1-B  #2-D  #3-C";:GOT03 
8 

140  IFB=2  2ANDD=11ANDMB=0THEN141E 
LSE143 

141  SOUND100, 1:CO=0:PRINT@2  56,  "P 
LACE#1  WHERE (A,  B,  C,  D) " ; : INPUTA7$ 
: X=USR (0 ) : SOUND 100 , 1 : PRINT@2  56 , " 
PLACE #2  WHERE (A,  B,  C,  D)  "  ;  : INPUTA8 
$:X=USR(0)  :SOUND100, 1:PRINT@256, 
"PLACE #3  WHERE  (A,  B,  C,  D)  "  ;  :  INPUTA 
9$:GOSUB436 

142  X=USR(0) : IFCO=3THENPRINT§256 
, " • CLICK 1 " ; : L2 ( 30 ) =4 : PRINT§3  2 0 , " 
THE  DOOR  SWUNG  INWARD" ;: MB=1 : W=l 
: GOT038ELSEPRINT@2  56 , CO ; "LEVER ( S 
)   ARE  CORRECTLY  PLACED" ; : GOTO 3 8 

143  IFH1=3THEN144ELSE145 

144  IFB=1ANDD=12ANDD(12)=21THENP 
RINT@256, "THEY  COME  OUT  OF  THE  F 
LOOR , FROM  ONE  WALL  TO  THE  OTHER, 
AND  GO  TO  THE  CEILING  OF  THE  HAL 
LWAY , TRULY A  WALL  OF  FLAME";: GOTO 
38 

145  IFH1=1THEN146ELSE148 

146  IFMO=1ANDMN=0ANDC(4)=1ANDB=1 
6ANDC=4THENPRINT@256 , "IN  THE  DIS 
TANCE  A  RUSH  OF  WATER, THEN  A  LOU 
D  CRASH" ; :L2 (3 ) =16 :MP=1 :MN=1 : L$ ( 
3)="BLOCKED  BY  STEEL  GATE" : HA=HA 
-l:C(4)=7:GOSUB460:IFD(44)=8THEN 
D  ( 4 4 ) =0 : GOT03 8ELSEGOT03 8 


147  IFB=1ANDD=39THENPRINT@256 , "A 
RED  ARROW  POINTING  DOWNWARD, ONI 

T  IS  WRITTEN  'AUTHORIZED  BEINGSO 
NLY ' " ; : GOTO 3 8 

148  REM 

149  GOT02  35 

150  REM  V3 

151  IFH1=6ANDB=1ANDD=9ANDME=0THE 
NPRINT@256, "A  GENTLE  LOOKING  BEA 
ST, PUFFS  OF  LOVELY  LAVENDER  SMOK 
E  COMING  OUTOF  IT'S  NOSTRILS, DEL 
IGHTFULLY  SHAPED  CLAWS , " ; : FORX 
=1TO7500:NEXT:PRINT§384,"! ! !???T 
HE  UGLY  CREATURE  CAN  WARPYOUR  TH 
OUGHTS! ! "; : GOTO 3 8 

152  IFH1=6ANDB=1ANDD=9THENPRINT@ 
256," DEAD" ; : IFC ( 3  6 ) =0THENC ( 3  6 ) =4 
3 :GOT038ELSEGOT038 

153  IFH1=5THEN154ELSE157 

154  IFB=2  3ANDC=4THEN155ELSE157 

155  PRINT@256 , "TO  WHAT" ; : INPUTA$ 
:X=USR(0) :IFA$=C$ (8 ) ANDC (8 ) =1AND 

C (4 ) =1THEN156ELSEPRINT@256 , "I  D 
ON'T  HAVE  THEM  BOTH  AT  HAND";: GO 
T038 

156  MH=1 : PRINT@256 , "OK, I  PLACED 
THE  POLE  ACROSS  THE  HOLE, THE  ROP 
E  IS  HANGING  DOWN" ; : C ( 4 ) =3 6 : C ( 8 ) 
=36:HA=0:GOTO38 

157  IFH1=5THEN158ELSE167 

158  IFB=21ANDC=4THEN159ELSE167 

159  IFML=1AND  MM=1THEN166ELSE160 

160  IFML=0THENPRINT@256, "I  CLIMB 
ED  DOWN, I  WAS  AT  LEAST  100'  FR 
OM  THE  FLOOR  BELOW, SO, I  CLIMBED 

BACK  UP" ; : GOTO 3 8 

161  MI=0:IFML=2THEN  MI=MI+3 

162  IFMM=0THENMI=MI+3 

163  IFMG=lTHENMI=MI+4 

164  N2=RND(10) :IFN2<MI  THENIFMM= 
0THENPRINT@256 , "THE  POLE  BROKE -I 

FELL  DOWN  AND  LANDED  HARD!!!"; 
:S3=S3-9:L=3  2 :W=1:V=4 :H=28 :MG=1: 
C$ ( 8 ) =" BROKEN  POLE" :C(8)=37:C(4) 
=37 : MK=0 : IFMQ=1THENL2 ( 32 ) =0 : GOTO 
295ELSE38 

165  IFN2<MI  THENPRINT@256 , "THE  R 
OPE  BROKE -I  FELL  TO  THE  FLOOR 

BELOW-HARD! ! " ; : S3=S3-5 : L=32 : W=l 
: V=4 : H=2  8 : C $ ( 4 ) = " BROKEN  ROPE " : MJ 
=1:C(4)=37:C(8)=36:MK=0:IFMQ=1TH 
ENL2 ( 32 ) =0 : GOT0295ELSE38 

166  L=32 :H=28:V=4:W=l:GOSUB413 :P 
RINT@256, "IT'S  A  LONG  CLIMB, BUT 
I  MADE  IT"; :MK=1 : C (8 ) =36 : C (4 ) =37 
: I FMQ= 1THENL2 ( 32 ) =0 : GOT0295ELSE3 
8 

167  IFH1=1THEN168ELSE176 

168  IFB=16ANDD=15THENPRINT@256, " 
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THE  SOUND  OF  A  TREMENDOUS  AMOUNT 
OF  WATER  RUNNING! ! " ; : GOSUB413 : PR 
INT@256,"A  SOLID  STEEL  GATE  SLAM 
MED  DOWN-BLOCKING  THIS  ROOM'S  ON 
LY  EXIT ! " ; : L2 ( 3 ) =0 : MP=1 : D ( 16 ) =8 : 
UD(3)=j3:GOT038 

169  IFB=1ANDD=15THENPRINT@256, "I 
T  GOES  UP  THROUGH  A  VERY  SMALL  H 
OLE  IN  THE  CEILING" ; :GOT03 8 

170  IFB=21ANDD=15ANDMN=0THENB=16 
:GOT0168 

171  IFB=23ANDC=4ANDC(4)=1THENX=U 
SR(0) :PRINT@256, "TO  WHAT"; : INPUT 
A$ : X=USR (0 )  : IFA$=D$ ( 15 ) THENPRINT 
@256, "OK" ; :MO=l:GOT038 

172  IFB=16ANDC=4ANDM0=1THENB=16: 
D=15:GOT0168 

173  IFB=1ANDD=16ANDMN=1THENPRINT 
§256, "MIRROR  SURFACE, NO  SCRATCHE 
S"; :GOT038 

174  IFB=1ANDD=15THENPRINT@256, "B 
RONZE, ABOUT  1/4"  DIAMETER" : GOT06 
00 

175  IF(B=10OR  B=190R  B=50R  B=2) A 
NDD=16THENPRINT@2  56 , "YOU ' RE  KIDD 
ING" ; : GOTO 3 8 

176  IFH1=2THEN177ELSE181 

177  IFB=1ANDD=30THENPRINT@256, "I 
MMENSE  BRONZE  CRYPT. SCENES  FROMT 
HE  LIFE  OF  FLODNAR  ARE  RELIEVEDI 
N  THE  METAL. THERE  IS  SCRIPT  ON  T 
HE  NEAR  END" ; : D ( 31) =15 : GOT038 

178  IFBOIAND  D=30THENPRINT@3  32 , 
"KABOOM!  !";  :  GOSUB412  :  X=USR  (0 )  :  PR 
INT@256,"A  LIGHTNING  BOLT  CAME  0 
UT  OF  THECRYPT  AND  STRUCK  ME  IN 
THE  HEAD!"; :GOT0442 

179  IF(B=190R  B=22  ORB=160R  B=80 
R  B=9) ANDD=(37-JI)THENIF(C(49)=0 
AND  C (50) =0) THENPRINT@256 , "A  SEC 
TION  SPUN  AROUND!  !  "  ; :  C (5)3)  =15 : C ( 
49) =15 : GOT038ELSEPRINT@256 , "A  SE 
CTION  SPUN  AROUND" ; :GOT03 8 

180  IFB=1ANDD=31THENPRINT@256, " ' 
DISTURB  NOT  THIS  WARRIOR'S  RESTO 

R  SUFFER  MY  WRATH'  HERMAN";: GO 

T038 

181  REM 

182  GOT0235 

183  REM  V4 

184  IFH1=5THEN185ELSE186 

185  IFB=21ANDMK=1THENPRINT@426, " 
CLIMBING" ; :GOSUB411:PRINT@394, "C 
LIMBING " ; : GOSUB4 1 1 : PRINTS  3 6  2 , " CL 
IMBING" ; :GOSUB411:PRINT@330, "CLI 
MBING" ; : GOSUB411 : PRINT@295 , "ALMO 
ST  THERE"; : GOSUB411 : PRINT@256 , "M 
ADE  IT! !"; : L=31 : V=3 :H=28 : C (4) =3  6 
:C(8)=36:GOT038 


186  IFH1=2THEN187ELSE198 

187  IFJC=0THENFL$="ONE  JEW-ELED 
EYE  STARES  AT  ME, THE  OTHER  IS  AN 

EMPTY  SOCKET. " :D$ (26) ="EYE" :ELS 
EFL$="TWO  JEW-ELED  EYES  STARE. 
":D$(26)="EYES" 

188  IA=0:IFB=4ANDC=13ANDC(13)=1A 
NDP$=D$ (24) THENJB=1 : PRINT@2  5  6 ,  "O 
K" ; : HA=HA-1 : C ( 13 ) =16 : IA=1 

189  IFB=4ANDC=21ANDC(21)=1ANDP$= 
D$(24)THENJA=1:PRINT@256, "OK"; :H 
A=HA-l:C(21)=16:IA=l 

190  IFB=4ANDC=37ANDC(37)=1ANDP$= 
D$ (25) THENJC=1 : PRINT@256 , "OK" ; :H 
A=HA-l:C(37)=16:D$(26)=D$(26)+"S 
":D(25)=0:IA=1 

191  IFJD=0THENIFJA=1ANDJB=1ANDJC 
=1THENJD=1 : UD ( 11 ) =1 : GOSUB4 12 : PRI 
NT@325,"THE  ";D$(22);"  OPENED!!" 
; :G0T0291ELSEIFIA=1THEN38 

192  IFB=1ANDD=22THENPRINT@256, "H 
UGE-ALMOST  TO  THE  CEILING, THEREI 
S  A  BOWL  IN  IT'S  HANDS ," ;FL$ ; "IT 

IS  AGAINSTTHE  NORTH  WALL";:D(24 
)=16:D(25)=16:D(26)=16:GOT038 

193  IFB=1ANDD=24THENPRINT@2  56 , "A 
LMOST  3«    IN  DIAMETER"; :GOT03 8 

194  IFB=1ANDD=2  6THENPRINT@256,D$ 
(23) ; :GOT038 

195  IFB=1ANDD=2  5ANDJC=0THENPRINT 
@256,"JUST  AN  EMPTY  ";D$(25);:GO 
T038 

196  IFB=1ANDD=25THENPRINT@256 , "I 
T  IS  NO  LONGER  EMPTY" ;: GOTO 3 8 


197  IFB=22ANDD=22THENPRINT§256, " 
I'LL  TRY, IF  YOU  HAVE  A  TRUSS 
AVAILABLE" ; :GOT038 

198  IFH1=1THEN199ELSE202 

199  IFB=1ANDD=27THENIFJG=0THENPR 
INT§256, "LARGE  IRON  CHEST, LID  IS 

DOWN. ON  THE  SURFACE  ARE  ENGRAVI 
NGS  OF  A  KNIGHT  CONQUERING  VARIO 
US  FOES"; :GOT038ELSEPRINT§256, "T 
HE  LID  IS  OPEN" ; :GOT038 

200  IFB=5ANDD=27THENIFJH=0THENPR 
INT§256,"OH  NO! !": GOSUB4 12 : PRINT 
§288, "ALL  THE  EVIL  HE  HAD  CONQUE 
RED  ISNOW  ATTACKING  me!!!!"; :GOS 
UB413 :GOT0442ELSEPRINT§256, "IT  I 
S  OPEN" ; : C (42 ) =9 : JG=1 : GOT038 

2)31  IFB=13ANDD=28ANDC(27)=1THENJ 
H=l:GOT038 

202  REM 

203  GOT0235 

204  REM  V5 

205  IFH1=6ANDB=1ANDD=10THENPRINT 
§256, "SPOKED, METAL  WHEEL  ABOUT  1 
8  IN.   IN  DIAMETER, LOCATED  ON  THE 

EAST  WALL" ; :GOT038 

206  IFH1=6ANDB=8ANDD=10THENIFMF= 
0THENMF=1:W1$=L$(16) :L$(16)="HAL 
LWAY" : L2 ( 16 ) =10 : D ( 12 ) =0 : PRINT@25 
6, "SCREECH" ; : G0T038ELSEIFMF=1THE 
NMF=0 : L$ ( 16 ) =W1$ : L2 ( 16 ) =3 : PRINT§ 
256, "SQUEAL" ; : D ( 12 ) =2 1 : GOT03  8 

207  IFH1=3THEN208ELSE211 

208  IFB=1ANDD=17THENPRINT§256 , "O 
RNATE  CASTING, SOLID-EXCEPT  FOR  S 
MALL  ORIFICE  IN  THE  CENTER" ; : D ( 1 
8)=24:GOT038 

209  IFB=1ANDD=18THENPRINT§256 ,  "A 
LOCK  SEEMS  TO  BE  INSIDE" ;: GOT03 

8 

210  IFB=5ANDD=17THENIFC ( 5 ) =1THEN 
PRINT§256, " 'RATTLE' " ; :GOSUB411:P 
RINT§288 , " ' SCRAPE • " ; : GOSUB411 : PR 
INT§320 , " ' CLICK' " ; : GOSUB411 : PRIN 
T§  3  5  2 , " ' RATTLE ' " ; : GOSUB4 1 1 : PRINT 
§384, " 'CLANK'" ; : GOSUB411 : PRINT§2 
56, "IT  SWUNG  OPEN! " ; :MS=l:L2 (19) 
=2:S=l:GOT038 

211  IFH1=1THEN212ELSE214 

212  IFB=1ANDD=29THENPRINT§256, "T 
HERE'S  AN  ENGRAVING  OF  A  KNIGHTO 
N  A  GREAT  STEED, FIGHTING  A  HUGED 
RAGON-HARD  TO  TELL  WHO'S  AHEAD"; 
: GOTO 3 8 

213  IFB=5ANDD=29THENPRINT§256, " ' 
SCREEEEEEECH ' " ; : GOSUB412 : PRINT@3 
20, "IT'S  OPEN" ; :L2 (5) =11 : GOT0291 

214  IFH1=4ANDB=1ANDD=50THENPRINT 
§256, "IT'S  HARD  TO  MAKE  OUT, IT  S 
EEMS     TO  BE  WRITTEN  IN  BLOOD  


 i DoN ' T  PET  THE  DRAGON ' " ; : G 

OT038 

215  GOT0235 

216  REM  V6 

217  IFH1=2THEN218ELSE221 

218  IFB=1ANDD=6THENPRINT@256, "ON 
LY  YOU  CAN  KEEP  OUR  ADVENTURE  CL 
EAN-PUT  UNWANTED  ITEMS  IN  THE  TR 
ASH  CHUTE"; :D(7) =18 :GOT038 

219  IFB=1ANDD=7ANDD ( 7 ) =18THENPRI 
NT@256,"HUGE  OPENING  IN  WALL-CAN 
'T  SEE     THE  BOTTOM" ; :GOT03 8 

220  IFB=4ANDP$=" TRASH  CHUTE"ANDC 
( C ) =1THENC ( C ) =7  3 : GOSUB4  6  3 : HA=HA- 
l:PRINT@2 56, "AFTER  A  LONG  WAIT, I 

HEARD  IT  HITBOTTOM , THEN  THERE  W 
AS  A  BRIGHT     FLASH  OF  LIGHT  FROM 

THE  DEPTHS  OF  THE  CHUTE" ;:IFC= 
1THENQA=0 : GOT03  8ELSEIFC=2THENQB= 
0:GOTO38ELSEGOTO38 

221  IFH1=3THEN222ELSE224 

222  IFB=8ANDD=19THENIFMT=0THENMT 
=l:L2 (18)=6:L2 ( 17) =8 : D (20) =23 :D( 
21) =22 : PRINT@2  56 , " ' SCREEEEECH ' " ; 
:GOTO38ELSEMT=0:L2 (18)=3:L2 (17)= 
3:D(20)=0:D(21)=0:PRINT@256, " 'RU 
MBLE ' " ; : GOTO 3 8 

223  IFB=1ANDD=19THENPRINT@256, "M 
OUNTED  ON  THE  SOUTH  WALL, IRON-  A 
BOUT  3 '   LONG" ; : GOTO 3  8 

224  REM 

225  GOT0235 

226  REM  V7 

227  IFH1=1ANDD=34THENPRINT@256, " 
FROM  HERE  YOU  MAY  GO  BACK  TO 
KRAGNOR'S  BY  INPUTING  <R>  OR 
ENTER  THE  GAME  BY  INPUTING  <U>OR 
<E>  AS  YOU  DESIRE" ; :GOT03 8 

228  IFH1=6THEN229ELSE231 

229  IFB=1ANDD=35THENPRINT§256, "A 
THREE  FOOT  CUBE" ; : GOT038 

230  IFB=5ANDD=3  5THENPRINT@256, "I 
T  is  OPEN  AND  IT  IS  ALSO  EMPTY"; 
: GOTO 3 8 

231  IFH1=2THEN232ELSE234 

232  IFB=1ANDD=36THENPRINT§256, "T 
HERE  IS  A  DRAWING  OF  A  FLAME  ONT 
HE  DOOR" ; :GOT03  8 

233  IFB=5ANDD=36ANDJK=0THENPRINT 
§256, "IT  IS  NOW  OPEN" ; : JK=l:L2 (1 
4)=13:GOT0291 

234  IFH1=6ANDB=4ANDP$=D$ (35) ANDC 
(C)=1THENPRINT§256, "I  PUT  IT  IN" 
; : C (C) =46 : GOSUB412 : PRINT§320 , "A 
WEASEL  JUMPED  OUT  OF  THE  BOX  WI 
TH  IT  IN  HIS  MOUTH  AND  RAN  OFFTO 

THE  EAST! ! " ; :HA=HA-1 : GOT038 

235  ER$(1)="I  DON'T  SEE  ANYTHING 
SPECIAL" :ER$ (2)=" LOOKS  NORMAL  T 
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0  ME" :ER$ (3) ="SEEMS  ORDINARY" :ER 
$ ( 4 ) =" LOOKS  USUAL" : ER$ ( 5 ) ="APPEA 
RS  REGULAR"  :  ER$  ( 6*)  =" COMMONPLACE" 
: ER$ ( 7 ) ="UNDISTINGUISHED" : IFB=1A 
ND(D=10R  D=20R  D=30R  D=5) THENPRI 
NT§256, "SOLID  STONE" ; : GOT038 

236  IFD>50THEND=0ELSEIFC>50THENC 
=0ELSEIFB=1AND(D(D)=LL  OR  C(C)=L 
L  OR  C(C)=1)THENR2=RND(7) :PRINT@ 
256,ER$(R2) ; : GOT03  8ELSEIFB=1THEN 
PRINT@256,"I  DON'T  SEE  IT";: GOTO 
62 

237  IFB=4THENPRINT§256 , "I  DON'T 
KNOW  HOW" ; : GOTO 3 8 

238  IFB=9THENPRINT@2  56 , "NO  EFFEC 
T" ; : GOT038 

239  IFB=7THEN446ELSEIFB=19ANDD=1 
THENPRINT§256, "THIS  MUST  NOT  BE 
THE  PLACE " ; : GOTO  3  8 

240  IFB=12THENPRINT@256, "OK" ; : GO 
T038 

241  IFB=14THENPRINT@256, "WON'T  B 
URN"; :GOT038 

242  IFB=15THENPRINT@256, "DON'T  H 
EAR  ANYTHING  BUT  MY  OWN  HEART!" 
;: GOTO 3 8 

243  IFB=21THENPRINT@256, "I 'M  NOT 
A  MONKEY" ; : GOTO 3 8 

244  IFB=11THENPRINT@256, "OUCH! ! " 
; : GOTO 3 8 

245  PRINT@256,"I  CAN'T  DO  THAT  A 
T  THE  MOMENT" ; : GOTO 6 9 

246  REM  DAMAGE 

247  S1=INT(S3) :IFS1>22THENS1=22 

248  IFS1=S2  THENRETURNELSES2=S1 

249  IFSK5THENCC=191:CE=0:IFCD=0 
THENSOUND200  ,  3  :  CD=1 

250  IFSK9  AND  Sl>4  THENCC=159:C 
D=0 : IFCE=0THENSOUND100 , 3 : CE=1 

251  IFS1>8THENCC=175:CE=0 

252  IFS3<-1THENG0T0442 

253  FORX=1193T01193+Sl:POKEX/CC: 
NEXT 

254  IFS1=22THENRETURN 

255  F0RX=1194+S1  T012 15 : POKEX , 20 
8 : NEXT : RETURN 

2  56  REM  MACHINE  LANGUAGE  ROUTINE 

257  DATA  134,223,142,4,9,167,128 
,140,4,32,38,249,142,4,38,167,12 
8,140,4,64,38,249,142,4,135,167, 
128,140,4,160,38,249,142,4,70,16 
7,128,140,4,128,38,249,134,207,1 
42,4,224,167,128,140,5,224,38,24 
9,57 

258  DATA  LOOK, SEARCH, GET, TAKE, PI 
CK  UP, PUT  DOWN, PUT, PLACE, OPEN, UN 
LOCK , CLOSE , LOCK , EAT , DRINK , TURN , T 
WIST , ROTATE , HIT , STRIKE , BREAK, LIF 
T , DROP , KI CK , JUMP , SAY , BURN , LIGHT , 


LISTEN , PULL, THROW , STAB , PUSH , GIVE 
, CLIMB , MOVE , INSERT , TIE 

259  DATA  SACK, ROPE , THIEVE ' S  TOOL 
S, ARMOR, SHIELD, POLE, UNICORN  HORN 
, DRAGON'S  TEARS 

260  DATA  TINDER&FLINT, TORCH, ORNG 
LQD , BLUE  LQD, BOOK, HAMMER, LANTER 

N, WATER  BAG, WINE  BAG, MAP, ORNG  PW 
DR, RATIONS, MIRROR, DRAGON  GOODIES 
, FLUTE, SPEAR, MAGIC  SPELL, KEY , MAR 
BLE, PINE  CONE 

261  DATA  GOLD  BRACELET , STAR  SAPP 
HIRE , EMERALD , RUBY , DIAMOND , TURQUO 
ISE, ORANGE  SAPPHIRE , TOPAZ , OPAL, J 
ADE  BRACELET 

262  DATA  BLACK  PEARL, BLUE  SAPPHI 


RE, JADE  PENDANT, GOLD  CHAIN,SILVE 
R  BAR, PLATINUM  RING, IVORY  BROOCH 
, BRONZE  IDOL, GOLD  CROWN , CRYSTAL 
WAND 

263  DATA  WALL, CEILING, ROOF, WOODE 
N  DOOR, FLOOR, SIGN, TRASH  CHUTE, TR 
AP  DOOR, DRAGON, WHEEL 

264  DATA  LEVERS , FLAMES , HOLE  IN  F 
LOOR, HOLE  IN  CEILING , CHAIN, STEEL 

GATE, BRONZE  DOOR, ORIFICE , CRANK, 
HOLE  IN  WALL 

2  65  DATA  OPENING  IN  WALL, STATUE, 
SAPPHIRE (ORANGE) , BOWL, SOCKET, EYE 
, CHEST, HAWAYA, STEEL  DOOR, CRYPT 
266  DATA  SCRIPT, OPENING , NOTICE , N 
OTE , TIN  BOX, TIN  DOOR, CABINET, DRA 
WER, ADMONITION, NICHE 
2  67  DATA  LATCH, CUBBY  HOLE , PADLOC 
K, HASP, HOOK, DIAL, BRASS  DOOR, STEE 
L  GRATING, WRITING, SCRAWL 
268  DATA  1,1,2,2,2,3,4,4,5,5,6,6 
,7, 7, 8, 8, 8, 9, 9, 9, 10, 3, 11, 12, 13,1 
4  , 14  , 15  , 16  , 17  , 18  , 19  ,  20  ,  2 1 ,  22  ,  4  ,  2 
3 


269  DATA  NONE , N , S , E , W, N  S,N  E,N 
W,S  E,S  W,E  W,N  S  E,N  S  W,N  E  W, 
S  E  W,N  SEW 

27,0  DATA  SMALL  ROOM ,  HALL ,  SMALL  R 
OOM, STOREROOM, HALL, FLOODED  ROOM, 
ENTRANCE 

271  DATA  HALL, HALL, CRYPT  OF  FLOD 
NAR, SMALL  ROOM , HALL , SMALL  ROOM,H 
ALL 

272  DATA  EXIT, HALL  BLOCKED  BY  FL 
AME, SMALL  ROOM , HALL , LARGE  ROOM,H 
EXAGON  ROOM, HALL 

273  DATA  VAULT , HALL, HALL, LARGE  C 
HAMBER , HALL , HALL , HALL 

274  DATA  HALL , HALL , ROOM  W/HOLE  I 
N  FLOOR, ROOM  W/HOLE  IN  CEILING, H 
ALL, HALL, HALL 

275  DATA  TRIANGULAR  ROOM, EMPTY  R 
OOM, HALL  BLOCKED  BY  DRAGON, HALL, 
PENTAGON  ROOM , STOREROOM , HALL 

276  DATA  CIRCULAR  ROOM , HALL , HALL 
, HALL , HALL , HALL , HALL 

277  DATA  3,3,16,2,8,16,3 

278  DATA  10,10,16,2,7,2,10 

279  DATA  4,3,3,3,16,1,10 

280  DATA  2,13,10,10,8,5,7 

281  DATA  3,16,4,4,4,2,6 

282  DATA  10,8,1,1,16,3,10 

283  DATA  4,9,1,2,1,9,7 

284  DATA  0,2,1,0,0,2,1 

285  DATA  2,1,2,0,0,0,0 

286  DATA  0,0,0,2,1,0,0 

287  DATA  0,2,1,0,0,0,0 

288  DATA  2,1,0,0,2,1,0 

289  DATA  0,0,0,2,1,0,0 

290  DATA  0,0,2,1,2,1,0 

291  L=H+V:PRINT@9,L$(L)  ; 

292  GOSUB414 

293  IFUP=1THENPRINT§58, "U" ; 

294  IFD0=1THENPRINT@61 , 11 D"  ; 

295  N=0:S=0:E=0:W=0:IFL2 (L)=16TH 
EN38 

296  IFL2 (L)=0THEN38 

297  PRINT@43 , 0$ (L2 (L) ) ; 

298  IFL2 (L)=0THEN38 

299  IFL=2  5ANDMR=0THENPRINT@256 , 11 
•CRUNCH"' ; : PRINT @ 3 20, "THERE  IS  S 
AND  ON  THE  FLOOR"; 

300  ON  L2(L)  GOTO301,302,303,304 
, 305, 306, 307, 308, 309, 310, 311, 312 
,313,314,315 

301  N=l:GOT038 

302  S=l:GOT038 

303  E=l:GOT038 

304  W=l:GOT038 

305  N=l:S=l:GOT038 

306  N=l:E=l:GOT038 

307  N=l:W=l:GOT03  8 

308  S=l:E=l:GOT038 


309  S=l:W=l:GOT038 

310  E=l:W=l:GOT03  8 

311  N=l:S=l:E=l:GOT038 

312  N=l:S=l:W=l:GOT038 

313  N=l:E=l:W=l:G0T038 

314  S=l:E=l:W=l:GOT038 

315  N=l:S=l:E=l:W=l:GOT038 

316  REM  LOOK  SACK 

317  L1=256:L2=0:L3=287:L4=0 

318  IFC(3) <>1THENPRINT@256 , "I  DO 
N'T  HAVE  THE  SACK" ; : GOT038 

319  FORX=1TO50:IFC(X)=2THEN320EL 
SENEXT: IFL4=0THENPRINT@256 , "AS  E 
MPTY  AS  KRAGNOR'S  HEART" ;: GOTO 3 8 
ELSEGOT038 

320  IFX>50THENRETURNELSEL2=LEN (C 
$(X)) 

321  IFL1+L2>L3  THENL3=L3+32 : L1=L 
3-31 

322  PRINT@L1,C$ (X) ; : L4=L4+1 : L1=L 
1+1+L2 

323  NEXT:GOT038 

324  REM  WEAPON  CHECK 

325  IFA$="Q"ANDC (1) <>1THENPRINT@ 
384, "UNFORTUNATELY, I  DO  NOT  HAVE 

MY" ; :PRINT@4 16, "TRUSTWORTHY  " ;C 
$(1) ; :GOT038 

326  IFA$="P"ANDC (2 ) <>1THENPRINT@ 
384, "I  DON'T  SEEM  TO  HAVE  MY";:P 
RINT@416,C$ (2) ;"  WITH  ME";:G0T03 
8 

327  GOTO420 

328  REM 

329  REM  I  SEE 

330  Ll=70:L2=0:L3=95:L4=0:LL=L+5 
:FORX=1TO50:IFC(X)=LL  THEN331ELS 
ENEXT:GOT0333 

331  L2=LEN(C$ (X) ) : IFL2+L1>L3  THE 
NL3=L3+32 : Ll=96 : IFL3=159THENPRIN 
T@3  84, "***OVERFLOW  OF  ITEMS  IN  S 
IGHT***" ; : RETURN 

332  PRINT@L1,C$ (X) ; : L1=L2+1+L1 : N 
EXT 

333  FORX=1TO50:IFD(X)=LL  THEN334 
ELSENEXT : RETURN 

334  L2=LEN(D$(X) ) :IFL2+L1>L3  THE 
NL3=L3+32 : Ll=96 : IFL3=159THENPRIN 
T@384, "***OVERFLOW  OF  ITEMS  IN  S 
IGHT***" ; : RETURN 

335  PRINT@L1,D$ (X) ; : L1=L2+1+L1 : N 
EXT : RETURN 

336  REM  I  HAVE 

337  Ll=135 : L2=0 : L3=0 : L4=0 : F0RX=1 
TO50 : IFC (X) =1THEN3  3  8ELSENEXT : RET 
URN 

338  L2=LEN(C$(X) ) : L4=L1+L2+1 : IFL 
4>159THEN340ELSEPRINT@L1 , C$ (X) ; : 
L3=L3+1 : IFL3=4THENRETURN 

3  39  L1=L1+L2+1: NEXT: RETURN 
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340  PRINT@416, "***OVERFLOW  OF  IT 
EMS  IN  HAND****"; : RETURN 

341  REM  DROP  ITEM 

342  IFC=6AND  C (6) =1THENHA=HA+1 

343  IFC(C)=lTHENC(C)=L+5  ELSEPRI 
NT@256,"I  DON'T  HAVE  IT";:GOT038 

344  IFC<>3THENHA=HA-l:GOT03  8 

345  FORX=1TO20:IFC(X)=2THENC(X)= 
3 

346  NEXT:GOT038 

347  REM  GET 

348  IFC(C)=2ANDC(3)<>1THENPRINT@ 
->56," I  DON'T  HAVE  THE  SACK";: GOT 
038 

349  IFC=37ANDL=11ANDJC=1THENJC=0 
:D(25)=16 

3  50  IFC=13ANDL=11ANDJB=1THENJB=0 

351  IFC=21ANDL=11ANDJA=1THENJA=0 

352  IFJD=1AND(JA=0OR  JB=0OR  JC=0 
)THENPRINT@3  65, "SLAM! ! " ; : JD=0:UD 
(11)=0 

353  IFC=4ANDL=3  2ANDMK=1THENPRINT 
@2 56, "IT'S  ATTACHED  TO  THE  POLE 
ABOVE-I  CAN'T" ; :GOT038 

354  IF (C=40R  C=8 ) ANDL=3 1ANDMK=1T 


HENMK=0:PRINT@384, "I  UNTIED  THE 
ROPE" ; 

355  IFL=3ANDM0=1THENMO=0:PRINT@2 
56, "I  UNTIED  THE  ROPE"; 

356  IFC=4ANDMN=1THENPRINT@2  56 , "I 
CAN'T-IT'S  STUCK  UNDER  THE  S 

TEEL  GATE" ; : GOT03  8 

357  IFC=0THEN3  64 

358  IFC (C) =1THENPRINT@2  56 , "I  ALR 
EADY  HAVE  IT";:GOT038 

359  IFHA>1ANDC<>2THENPRINT@256, " 
MY  HANDS  ARE  FULL" ; : GOT03  8 

36)3  IFC(C)=L+5THENC(C)=1:HA=HA+1 
:IFC=30R  C(C)=2THEN361ELSEIFC=6T 
HENHA=HA-1: GOTO 3 8 ELSE 3  8 


361  REM 

3  62  IFC=3  THENHA=HA-1:FORX=1TO50 
: IFC (X) =3THENC (X) =2 : NEXT : GOT038 : 
ELSENEXT : GOT038 

363  IFC(C)=2THENC(C)=1:HA=HA+1:K 
C=KC-l:GOT038 

364  PRINT@256,"I  CAN'T  GET  IT";: 
GOT038 

365  REM  PUT  IN  SACK 

366  IFJF=1ANDC(3)=1  THENPRINT@25 
6, "THE  SACK  IS  RIPPED-IT  FALLS  O 
UT" ; :GOSUB461:GOT038 

367  IFC ( 3 ) <>1THENPRINT@256 , "I  DO 
N'T  HAVE  THE  SACK" ; : GOT038 

368  IFKC=>CK  THENPRINT@256 , "THE 
SACK  IS  FULL" ; :GOT038 

369  IFC=8ANDC(8)=1THENPRINT@256, 
"IT  WON'T  FIT-IT'S  TOO  LONG";: GO 
T038 

370  IFC=6ANDC(6)=1THENPRINT@256, 
"IT  WON'T  FIT";:GOT038 

371  IFC(C)=1THENIFC=3THENPRINT@2 
56, "THAT  DOESN'T  MAKE  SENSE";: GO 
T038 : ELSEC (C) =2 : KC=KC+1 : HA=HA-1 : 
GOT03  8 

372  PRINT@256,"I  CAN'T  PUT  IT  IN 
THE  SACK" ; :GOT038 

373  REM  SAVE  GAME 

374  JV=0:FORQ=31TO50 

375  IFC(Q)=1THENJV=JV+1 

376  IFC(Q)=2THENJV=JV+1 

377  IFC(Q)=3THENJV=JV+1 

378  NEXT 

379  IFJV=20THEN458 

3  80  CLS2: PRINTS 2 5 6, "POSITION  TAP 
E, PRESS  RECORD+ PLAY. WHEN  READY, P 
RESS  ENTER"; 

381  A$=INKEY$:IFA$=""THEN381 

382  CLS6 : PRINT@267 , "SAVING  DATA" 

383  OPEN"0", #-1, "DATA" 

384  PRINT # - 1 , MA , MB , MC , MD , ME , MF , M 
G , MH , MI , MJ , MK , ML , MM , MN , MO , MP , MQ , 
MR,MS,MT,UP,DO,L,LL,V,H,SK,CK, JA 
, JB, JC, JD, JE, JF, JG, JH, JI, JJ, JK, J 
L, JM, JN,JO, JP, JQ, JR/ JS , WIS , S3 , S5 
,KN,HA,QA,QB,GP,E,W,N,S,C0,KC,N1 
,JT, JU, JV, JW 

385  PRINT#-1,C$(1) ,C$(2) 

386  F0RX=1T049:PRINT#-1,L2 (X) ,UD 
(X) :NEXT 

387  FORX=1TO100:PRINT#-1,W(X) :NE 
XT 

388  PRINT#-1,L$(6) ,L$(16) ,L$(38) 

389  FORX=1TO50: PRINT #-l,D(X) ,C(X 
) : NEXT 

390  CL0SE#-1 

391  PRINT@448 , "THE  DATA  HAS  BEEN 
SAVED" ; 
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392  GOSUB412 : CLS2 : PRINT@194 , "USE 
THIS  TAPE  WHEN  ENTERING 

KRAGNOR 1 S  STORE" ; : PRINT@384 , "T 
HE  DATA  TAPE  HAS  BEEN  MADE.  NOWT 
URN  COMPUTER  OFF, WAIT  1  MINUTE, T 
URN  COMPUTER  ON,CLOAD  'KRAGNOR'" 

393  GOT0393 

394  FORX=1TO2000:NEXT:X=USR(0)  :G 
OT038 

3  95  REM  ENTER  OLD  GAME 

396  CLS7 : PRINT@97 , "POSITION  DATA 
TAPE  FROM  KRAGNOR" ; : PRINT@161, " 

PRESS  PLAY.  PRESS  <ENTER>  WHEN"; 
: PRINT@23  6 , "READY" ; 

397  A$=INKEY$:IFA$=""THEN397 

398  CLS5 : PRINT@2  66 , "READING  DATA 
it  . 

399  OPEN" I ", #-1, "DATA" 

400  INPUT#-1,MA,MB,MC,MD,ME,MF,M 
G , MH , MI , MJ , MK , ML , MM , MN , MO , MP , MQ , 
MR,MS,MT,UP,DO,L,LL,V,H,SK,CK, JA 
, JB, JC, JD, JE, JF, JG, JH, JI, JJ, JK, J 
L, JM, JN, JO, JP, JQ, JR, JS,W1$,S3,S5 
,KN,HA,QA,QB,GP,E,W,N,S,CO,KC,Nl 
, JT, JU, JV, JW 

401  INPUT#-1,C$(1) ,C$(2) 

402  F0RX=1T049: INPUT #-l,L2 (X) ,UD 
(X) :NEXT 

403  FORX=1TO100:INPUT#-1,W(X)  :NE 
XT 

404  INPUT#-1,L$(6)  ,L$(16)  ,L$(38) 

405  FORX=1TO50 : INPUT#-1 , D (X) , C (X 
) : NEXT 

406  CLOSE#-l 

407  CLS: PRINTS 2 60, "THE  DATA  HAS 
BEEN  INPUT" ; : PRINT@428 , "ONE  MOME 
NT, PLEASE" ; 

408  FORX=1TO3000:NEXT 

409  GOT015 

410  FORX=1TO2000:NEXT:X=USR(0) :G 
OT038 

411  FORX=1TO900:NEXT:X=USR(0) :RE 
TURN 

412  FORX=1TO2000:NEXT:X=USR(0) :R 
ETURN 

413  FORX=1TO4000:NEXT:X=USR(0) :R 
ETURN 

414  REM  UP+DOWN 

415  IFUD(L)=1THENUP=1:DO=0:GOSUB 
418: RETURN 

416  IFUD(L)=2THENUP=0:DO=1:GOSUB 
4 19: RETURN 

417  DO=0 : UP=0 : RETURN 

418  PRINT@449,"A  CURVING  STAIRWA 

Y  GOES  UPWARD" ;: RETURN 

419  PRINT@448,"A  CURVING  STAIRWA 

Y  GOES  DOWNWARD" ;: RETURN 

420  REM  FIGHT 


421  S9=S3 

422  IFL=3 8ANDME=0THEN4 2 4 

423  PRINT@256, "THERE  IS  NOTHING 
HERE  TO  FIGHT" ; :GOT038 

424  L2 (38)=0:N2=RND(6)+RND(6)+RN 
D(6)+RND(6)+RND(6) :IFN2=50R  N2=3 
0THENPRINT@256, "A  LUCKY  BLOW!  TH 
E  DRAGON  IS  DEAD" ; :ME=1 : L$ ( 38 ) =" 
HALLWAY" : L2 ( 3  8 ) =5 : S=l : GOT03  8ELSE 
N=0 

425  N2=RND(5) :IFN2=1THENPRINT@25 
6, "IT  MISSED! " ; ELSEIFN2=2THENPRI 
NT@256,"IT  HIT  ME  WITH  IT'S  TAIL 
" ; : S3=S3-2 : ELSEIFN2=3THENPRINT@2 
56, "IT  RAKED  MY  ARM  WITH  IT'S  CL 
AW" ; : S3=S3-3 : ELSEIFN2=4THENPRINT 
@256,"MY  LEG  WAS  SMASHED  BY  IT'S 

WING" ; :S3=S3-4 

426  IFN2=5THENPRINT@256, "A  BLAST 
OF  FLAME  CAUGHT  ME ! " ; : S3=S3-5 

427  IFS3<0THEN442 

428  N2=RND(5) :IFN2=1THENPRINT@28 
8, "I  MISSED  COMPLETELY! "; :ELSEIF 
N2=2THENPRINT@288, "I  HIT  IT'S  FO 
REARM" ; : Nl=Nl-2 : ELSEIFN2=3THENPR 
INT@288,"I  CONNECTED  WITH  IT ' S  N 
ECK" ; : Nl=Nl-3 : ELSEIFN2=4THENPRIN 
T@288,"A  SOLID  BLOW  TO  THE  BODY" 
; :Nl=Nl-4 

429  IFN2=5THENPRINT@288, "SMACKED 
IT'S  HEAD  SOUNDLY! !"; :Nl=Nl-5 

430  IFS3<S9  THENIFA$="Q"THENS3=S 
3+INT(JN) :IFS3>S9THENS3=S9 

431  IFS3<S9  THENIFA$="P"THENS3=S 
3+INT(JO) :IFS3>S9  THEN  S3=S9 

432  IFNK1THENPRINT@355  ,  "  !  !  !  THE 
DRAGON  IS  DEAD! ! ! " ; :S=l:ME=l:L2 ( 
38)=5:L$ (38)="HALLWAY" :N=l:GOT03 
8 

433  GOT038 

434  REM  HELP 

435  PRINT@256, "PERHAPS  A  TRIP  BA 
CK  TO  KRAGNOR ' STO  PURCHASE  A  NEE 
DED  ITEM? " ; : GOT03 8 

436  IFA9$="A"THENCO=CO+l 

437  IFA7$="C"THENCO=CO+l 

438  IFA8$="C"THENCO=CO+l 

439  RETURN 

440  REM 

441  GOT038 

442  REM  DEATH 

443  FORX=1TO2000:NEXT:CLS0:FORX= 
1TO500 : NEXT : PLAY"01 ; Tl ; L1BP10BAP 
4GP10GL1.C" 

444  CLEAR: PRINT§ 2 30, "PERHAPS, ANO 
THER  TRY?" ; :FORX=1TO20000:NEXT:E 
ND 

445  REM  ENTER  TAPE 

446  REM  EAT 
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447  IFC(22)<>1AND  C(18)<>1AND  C( 
19)  01THEN457 

448  IFC(22)=1THENJM=JM-1:HA=HA-1 
:IFJM<lTHENC(22)=j3 

449  IFC(18)=1THENJR=JR-1:HA=HA-1 
: IFJR< 1THENC ( 18 ) =0 

45J3  IFC(19)=1THENJQ=JQ-1:HA=HA-1 
: IFJQ<1THENC ( 19 ) =0 

451  IFS3>18THENPRINT@256 , "I  REAL 
LY  DIDN'T  NEED  IT"; 

452  IFS3>12AND  S3<19THENPRINT@25 
6, "REFRESHING" ; 

453  IFS3>8AND  S3<13THENPRINT@2  56 
,  "I  NEEDED  THAT!"; 

454  IFS3>3AND  S3<9THENPRINT@256 , 
"BURP" : GOSUB412 : PRINT@256 , "very 
much  needed" ; 

455  IFS3<4THENPRINT@256, "I  THOUG 
HT  I  WAS  A  GONER"; 

456  S3=25:GOT038 

457  PRINT@2  56 , "I  DON'T  HAVE  ANYT 
HING  IN  MY  HANDTO  EAT  OR  DRINK"; 
:GOT038 


458  CLS6:  PRINTS  1J3 4,  "CONGRATULATI 
ONS ! " ; : PRINT@169 , "YOU  HAVE  FOUND 
" ; : PRINT@230 , "ALL  TWENTY  TREASUR 
ES" ; :PRINT@295, "IN  THIS  ADVENTUR 
E ! " ; : PRINT© 3 91," CARE  TO  TRY  AGAI 
N?"; 

459  F0RX=1T05 : PLAY"T7 ;04 ; L1AL2 . A 
L4GL2GFL1CL4 . CL8DL4 . EL8CL2DCL4 . C 
L8DL4 . EL8CL2DCL1AL2 . AL4GL2GFL1CL 
4 . CL8DL4 . EL8FL2G05C04L1 . FP1" : NEX 
T: CLEAR: END 

460  L2 (6)=1:D(16)=8:L$(6)="LARGE 
ROOM  W/WET  FLOOR":C(30)=11:RETU 

RN 

461  IFC=3THENRETURN 

462  HA=HA- 1 : C ( C ) =LL : RETURN 

463  IFC03THENRETURN 

464  IFC(l)=2THENQA=j3 

465  IFC(2)=2THENQB=0 
4  66  HA=HA+1 

467  F0RZU=1T05J3:IFC(ZU)=2THENC(Z 
U)=79 

4  68  NEXT: RETURN  /R\ 
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SECRET 
AGENT  MAN 

  Program  by  David  L.  Dawson 

As  a  top  secret  agent,  you  have  been  involved  in 
a  variety  of  life-threatening  situations  —  so 

 1 —  many,  in  fact,  that  you  fear  you  may  be  getting 

overconfident  and  someday  will  commit  a 
careless  mistake.  So  you  ask  the  boss  for  a  little 
time  off  to  put  some  things  into  perspective. 

To  your  surprise,  the  boss  agrees  to  the  request. 
He  says  you  have  earned  the  time  off  and 
compliments  you  on  the  job  you've  been  doing. 

"I  want  you  to  completely  forget  about  the 
agency  for  a  while  and  get  some  rest  and 
recuperation,"  he  says.  "You're  the  best  man  we 
have.  You'll  have  a  raise  waiting  for  you  when 
you  return  to  the  job." 

Your  spirits  are  soaring  as  you  leave  his  office, 
planning  as  your  next  move  a  call  to  the  beautiful 
woman  you  met  several  missions  ago.  You 
memorized  her  phone  number,  just  as  you  do 
most  important  information. 

"Hello,"  she  answers,  and  just  the  sound  of 
her  voice  sends  quivers  down  your  spine. 
_         "Yes,  I  was  wondering  when  you  would  call," 
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she  says.  "When  can  you  come?  Tomorrow?  I'll  be  waiting." 

You  figure  you  must  have  been  doing  something  right  today  because 
everything  is  going  so  perfectly.  You  belt  down  a  shot  of  bourbon  and  wink 
at  yourself  in  the  mirror. 

Fishing  through  the  bureau  drawers,  you  retrieve  the  travel  brochures  of 
Rio  de  Janeiro,  whistling  as  you  eye  the  figures  on  the  topless  beaches.  You 
are  overcome  with  joy  when  your  airline  reservations  are  confirmed  for  three 
hours  from  now. 

You  congratulate  yourself  on  your  good  fortune. 

Rinnngggg!!!!!! 

It's  the  boss  calling.  Uh-oh,  something's  wrong. 

"I'm  really  sorry  to  mess  up  your  plans,"  he  says,  "but  we  need  your  help!" 

A  federal  office  downtown  has  been  overtaken  by  Iranian  terrorists  and 
you  must  kiss  all  of  your  grandiose  plans  goodbye  for  now.  You  were  the 
only  choice  for  the  mission  since  you  have  had  so  much  experience  in  the 
Middle  East.  You  finish  the  bourbon  and  head  downtown. 

Upon  your  arrival,  you  learn  that  the  building  is  swarming  with  terrorists. 
It's  going  to  be  a  bad  day  for  them  since  they  have  fouled  up  your  vacation. 

The  most  common  commands  in  this  Adventure  are:  INVENTORY, 
FORWARD,  BACKWARD,  RIGHT,  LEFT,  TAKE,  DROP,  CONTACT 
(make  contact  with  a  friendly  agent),  SHOOT,  EXAMINE,  LOOK,  UNLOCK, 
GIVE  and  BUTTON  (used  only  on  the  elevator).  The  terrorists  will  shoot 
at  you;  simply  press  'D'  (for  duck)  or  'S'  (for  shoot)  in  these  circumstances. 
Keep  pressing  the  keys  until  the  normal  cursor  appears. 

Be  careful  not  to  set  off  an  alarm  since  everybody  in  the  building  will 
be  alerted  and  start  shooting.  You  also  may  trip  an  automatic  system  and 
be  killed  immediately.  Many  things  can  set  the  alarm,  such  as  shooting,  studying 
things  too  carefully,  being  in  unauthorized  areas,  CONTACTing  an  enemy 
agent,  etc. 

One  last  hint:  You  can  use  EXAMINE  FACE  as  many  times  as  required 
to  identify  occupants  in  a  room  or  hallway. 

If  you  can  wrap  up  the  mission  quickly,  you  can  still  catch  that  plane. 


(David  L.  Dawson  is  a  teaching  assistant  at  the  University  of  Nebraska 
at  Omaha  where  he  is  working  toward  a  master 's  in  psychology.) 
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I  AGENT 


32K  ECB 


1^  ***************************** 

20   '**  AGENT  * 

30    '**       ESPIONAGE  ADVENTURE  * 

40  «**  BY  DAVID  LIONELL  DAWSON  * 
* 

***************************** 

* 

60  PMODE4 

70  REM  STRINGS  TO  DRAW  EACH  LETT 
ER 

80  COLOR0,5:DIM  L$(26) 
90  L$(1)="BR2U6R6D3NL6D3BR2" 
100  L$ ( 2 ) ="BR2U6R6D3NL6D3NL6BR2 " 
110  L$(3)="BR2NR6U6R6BM+2,+6" 
120  L$(4)="BR2R6U6L6R2D6BR6" 
130  L$ (5)="BR2U6NR6D3NR6D3R6BR2M 
140  L$ (6)="BM+2,-6NR6D3NR6D3BR8" 
150  L$ (7)="BM+8,-6L6D6R6U3L2BM+4 
+  3  " 

160  L$(8)="BR2U3NU3R6NU3D3BR2M 
170  L$ (9) ="BM+2 , -6R3NR3D6NL3R3BR 
2" 

180  L$ (10) ="BR2R6NU6BR2M 

190  L$ (11) =MBR2U3NU3NM+6, -3M+6,+ 

3BR2" 

200  L$(12)="BR2NU6R6BR2" 

2 10  L$ ( 13 ) ="BR2U6M+3 , +  3M+3 , -3D6B 

R2 11 

220  L$ (14)="BR2U6M+6,+6NU6BR2" 
230  L$  (15)="BR2U6R6D6NL6BR2" 
240  L$ (16)="BR2U6R6D3L6BM+8,+3" 
250  L$ (17 ) ="BM+2 , -2U4R6D4L3ND2L3 
BM+8,+2" 

260  L$ (18)="BR2U6R6D3L2NL4D3BR4" 
270  L$ (19) ="BM+8 , -6L6D3R6D3NL6BR 
2" 

280  L$ (20)=MBR5U6NL3NR3BM+5,+6" 
290  L$ (21)="BR2NU6R6NU6BR2" 
300  L$(22)="BR5NM-2,-6NM+2,-6BR5 
ii 

310  L$(23)="BR2NU6M+3,-3M+3,+3NU 
6BR2" 

320  L$(24)="BR2NM+6,-6BR6NM-6,-6 
BR2  " 

330  L$ (25) ="BR5U3NM-3 , -3M+3 , -3BM 
+2, +6" 

340  L$ (26) ="BR2NR6M+6,-6NL6BM+2, 
+  6" 

3  50  REM  OPENING  SCREEN 

360  PCLS : SCREEN1 , 1 : DRAW"BM70 , 80S 

9" :P$="AGENT" :GOSUB  2  650 

370  DRAW"BM20, 110S4" :P$="AN  ESPI 

ONAGE  ADVENTURE 11 :  GOSUB2  650 


380  DRAW" BM10, 130" :P$="BY  DAVID 
LIONELL  DAWSON" : GOSUB2 650 
390  FOR  X=l  T03 :PLAY"02T5CDEFAAD 
BBBEAL1BL4 " : NEXT  X:P$="KEY  ENTER 

FOR  MISSION" :GOSUB2640 
400  IF  INKEY$<>CHR$ (13)   THEN  400 
410  GOSUB2850 

420  DIM  OB$ (8) :OB$ (1)="GUN" 
430  GG=RND ( 29 ) : IF  GG<7  THEN  430 
ELSE  IF  GG<14  AND  GG>8  THEN  430 
ELSE  IF  GG<24  AND  GG>19  THEN  430 
440  CM$=" INVFORBACRIGLEFTAKDROCO 
NSHOLOOEXAUNLGIVBUT" 
450  R=8 
460  REM 

470  PCLS : WF=0 : N=0 : ON  R  GOTO  480, 
480,480,560,710,790,870,970,480, 
480,480,480,480, 1080,710, 1240, 13 
90, 1530,1640,480,480,480,480, 174 
0,710,1870,2000, 1530, 1640 
480  LINE(128,0)-(128,152) ,PSET:L 
INE(190,50)-(217,100) ,PSET,B:FOR 
X=l  TO  3: CIRCLE (200, 50+ (X*10) ) , 
3 : NEXT :P$=" THE  ELEVATOR 

EXITS  F  YO 
U  SEE  TWO  KEY  SLOTS  AND  ONE  BUTT 
ON" : GOSUB2  640 

490  GOSUB3440:IFCM=12THENIFOB$(1 
)="GOLD  K"OR  OB$(2)="GOLD  K"  OR 
OB$(3)="GOLD  K"  OR  OB$(4)="GOLD 
K"  THEN  P$="WHICH  SLOT  FIRST  OR 

SECOND  F  OR  S" : GOSUB2 640 : GO 
SUB2750:IP=1 

500  IF  IP=1  THEN  IP=0:IF  A$="F" 
THEN  R=12:P$="NOW  ON  LEVEL  TWO": 
GOSUB2640:GOTO490  ELSE  IF  A$="S" 
THEN  R=22:P$="NOW  ON  LEVEL  THRE 
E" : GOSUB2640 : GOTO490 
510  IF  CM=12  THEN  P$="NO  KEY  FIT 
S":GOSUB2640  ELSE  IF  CM=2  THEN  R 
=R+3 :GOTO470 

520  IF  CM>2  AND  CM<6  THEN  P$="TH 
ERE  IS  A  WALL  THERE" : GOSUB2 640 : G 
OTO490 

530  IF  CM=11  AND  OB$="SLO"  THEN 

P$="NEED  A  KEY" :GOSUB2640 

540  IF  CM=14  THEN  P$="NOW  ON  LEV 

EL  ONE" :GOSUB2  640 :R=2 

550  GOTO490 

560  DRAW"BM100 , 105S6" : GOSUB2090 : 
Xl=100 : Yl=105 : X2=120 : Y2=80 : GOSUB 
2460:DRAW"BM80, 110S9" :GOSUB2270 
570  DRAW"BM244, 150S10" :GOSUB2150 
580  DRAW"BM128,40S4":GOSUB2360 
590  DRAW"BM175, 132S9" :GOSUB2100 
600  DRAW"BM205, 90S6" :GOSUB2370 
610  DRAW"BM200, 99S8" :GOSUB2450 
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620  DRAW" BM1 5 5, 90S 2" :GOSUB2280 
630  DRAW"BM143,90":GOSUB2280 
640  DRAW"BM70,90" :GOSUB2  2  90 
650  SS=0:DRAW"BM0/ 160S8" :G0SUB21 
70:DRAW"BM70, 145S7" : G0SUB2 110 : DR 
AW"BM10,135":GOSUB2140:P$="THE  S 
ECURITY  OFFICE  EXITS  B":G 

OSUB3360:GOSUB2640 

660  GOSUB3440:IF  CM=13  AND  OB$=" 
ID  "  AND  N>0  THEN  P$="HERE  IS  TH 
E  ELEVATOR  KEY" : GOSUB2  640 : AA$="G 
OLD  K" : GOSUB3750 : SC=SC+150 : GOT06 
60 

670  IF  CM=3  THEN  R=5:GOTO470 
680  SS=SS+l:IF  SS>6  THEN  P$="THE 
GUARD  BECOMES  SUSPICIOUS 
AND  TAKES  YOU     IN" : GOSUB2 640 : GO 
TO3740 

690  IF  KK=1  THEN  KK=0:GOTO470 
700  GOTO660 
710  GOSUB2070 

720  DRAW"BM30,110S4":GOSUB2330 
730  DRAW"BM225,100":GOSUB2320 
740  LINE(110,90)-(135,60) ,PSET,B 
:LINE(135,90)-(160,60) ,PSET,B 
750  LINE(170,80)-(173,70) ,PSET,B 
:P$="END  OF  THE  ENTRYWAY  EX 
ITS  F  B  R  L":GOSUB3  3  60:GOSUB2640 
760  GOSUB3440:IFCM=2  THEN  R=R-3 : 
GOTO470  ELSE  IF  CM=3  THEN  R=R+3 : 
GOTO470  ELSE  IF  CM=4  THEN  R=R+1: 
GOTO  470  ELSE  IF  CM=5  THEN  R=R-1 
.'GOTO  4  70 

770  IF  KK=1  THEN  KK=0:GOTO470 
780  GOTO760 

790  LINE(20,70)-(165,126) ,PSET,B 
800  DRAW"BM30 , 160S9"  :  GOSUB2160  :  D 
RAW" BM8 0,160": GOSUB2 1 60 
810  LINE(255,60)-(185,60) ,PSET:L 
INE-(185,145) ,PSET 

820  N=1:GOSUB2480:P$="INFORMATIO 
N  DESK  EXIT  B":GOSUB2640 
830  IF  KK=1  THEN  KK=0:GOTO470 
840  GOSUB3440:IF  CM=8  THEN  P$="S 
HE  SMILES  AND  SLIPS  YOU  AN  ENVEL 
OPE  CONTAINING  AN  ID  CARD  AND  A 
GREEN  KEY":GOSUB2  640:AA$="ID  CAR 
D" :GOSUB3750:AA$="GREEN  KEY" :GOS 
UB3750 

850  IF  CM=3  THEN  R=5:GOTO470  ELS 
E  IF  CM>1  AND  CM<6  THEN  P$="THER 
E  IS  A  WALL  THERE  " : GOSUB2 640 : GO 
TO840 

860  GOTO840 

870  DRAWBM30, 100S4"  :GOSUB2310 
880  DRAW"BM70,100":GOSUB2310 
890  DRAW"BM110,100":GOSUB2310 
900  DRAW"BM150 , 120S13" : GOSUB2160 
910  DRAW"BM54/85S3":GOSUB2360 


920  DRAW"BM94,85":GOSUB2360 

930  DRAW" BM1 34,85": GOSUB3  360: GOS 

UB2  3  60:P$="RESTROOM 

EXITS  B":GOSUB2  640 
940  GOSUB3440:IF  CM=3  THEN  R=8:G 
OTO470  ELSE  IF  CM>0  AND  CM<6  THE 
N  P$=" THERE  IS  A  WALL  THERE": GOS 
UB2640:GOTO940 

950  IF  KK=1  THENKK=0:GOTO470 
960  GOTO940 

970  DRAW"BM45 , 130S5" : GOSUB2330 

980  DRAW"BM90,95S2":GOSUB2  3  30 

990  DRAW"BM215,130S5":GOSUB2320 

1000  DRAW" BM170,80S2":GOSUB2350: 

DRAW"BM180,90":GOSUB2150 

1010  LINE(113,70)-(123,85) ,PSET, 

B 

1020  LINE (123, 70) -(133,85) ,PSET, 
B 

1030  DRAW"BM210, 140S6" :GOSUB2150 


1040  DRAW"S2BM74, 107M+70 , -44NU60 
R60NU60M+80 , +44 " : GOSUB3  3  60 : P$="H 
ALLWAY  EXITS  F 

L":GOSUB2  640 

1050  GOSUB3440:IF  CM=2  THEN  R=R- 
3:GOTO470  ELSE  IF  CM=5  THEN  R=R- 
l:GOTO470  ELSE  IF  CM>1  AND  CM<6 
THEN  P$=" THERE  IS  A  WALL  THERE": 
GOSUB2640 

1060  IF  KK=1  THEN  KK=0:GOTO470 
1070  GOTO1050 

1080  DRAW"BM70, 130S8" :GOSUB2260 
1090  DRAW"BM100,134":GOSUB2270 
1100  DRAW"BM164,130":GOSUB2250 
1110  FOR  X=136  TO  200  STEP  12 
1120  DRAW"BM"+STR$ (X) +" , 99S2" :GO 
SUB2280 
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1130  NEXT  X 

1140  FOR  X=50  TO  210  STEP  70 
1150  DRAW"BM"+STR$ (X) +" , 106S9U3R 
6D3" 

1160  NEXT  X 
1170  P$="RECORDS  ROOM 
EXITS  B" : GOSUB2  640 
1180  GOSUB3440:IF  CM=12  AND  OB$= 
"FIL"  THEN  IF  OB$ (1) ="GREEN  KEY" 

OR  OB$(2)="GREEN  KEY"  OR  OB$(3) 
=" GREEN  KEY"  OR  OB$ ( 4 ) ="GREEN  KE 
Y"  THEN  SC=SC+100:P$="THE  GREEN 
KEY  FITS  AND  THE  CABINET  UNLOC 
KS":GOSUB2  640:S1=1:GOTO1180 
1190  IF  Sl=l  AND  CM=11  THEN  P$=" 
YOU  FIND  A  FILE  ON  THE  MISSILE 

PROJECT" : GOSUB2  640 : GOSUB2  9  90 : P$ 
="IT  SAYS  THAT  THE  LEADER  HERE 
CALLED  GEOG":GOSUB2  640:GOSUB2  9  90 
:P$="HAS  THE  IMPORTANT  KEY  AR 
OUND  HIS  NECK" : GOSUB2  640 : GOSUB2  9 
90:GOTO1180 

1200  IF  CM=3  THEN  R=15:GOTO470  E 
LSE  IF  CM<6  AND  CM>1  THEN  P$="TH 
ERE  IS  A  WALL  THERE" : GOSUB  2640 
1210  IF  CM=11  AND  OB$="FIL"  THEN 

P$="LOCKED" : GOSUB2  640 
1220  IF  KK=1  THEN  KK=0:GOTO470 
1230  GOTO1180 

1240  DRAWBM40 , 140S8" : GOSUB2170 
1250  DRAW"BM120 , 140S7" : GOSUB2110 
1260  FOR  X=l  TO  20 

1270  DRAW"BM"+STR$ (60+RND(14) )+" 
, "+STR$ ( 107+RND ( 10 ) -RND ( 10) ) +"S3 
":GOSUB2  4  30 
1280  NEXT  X 

1290  DRAW"BM88,98S8":GOSUB2450 
1300  DRAW"BM170, 100S3" :GOSUB2280 
1310  DRAW"BM140, 100" : GOSUB2290 
1320  DRAWBM50 , 130" :  GOSUB2300 
1330  DRAW"BM210,80S3" :GOSUB2370: 
DRAW"BM255 , 140M-90 , -60" 
1340  P$="THE  PERSONAL  OFFICE  OF 

GEORG  EXITS  B" : GOSUB3  360 : GOSU 
B2640 

1350  GOSUB3440:IF  CM=11  THEN  IF 
OB$="TAB"  OR  OB$="DES"  THEN  P$=" 
THERE  IS  A  PILE  OF  PAPERSAND  THI 
S  PICTURE  OF  GEORG" :GOSUB2 640: GO 
SUB2  990: GOSUB3  3  30: GOSUB2  990 
1360  IF  CM=3  THEN  R=15:GOTO470  E 
LSE  IF  CM<6  THEN  P$="THERE  IS  A 
WALL  THERE" :GOSUB2 640 
1370  IF  KK=1  THEN  KK=0:GOTO470 
1380  GOTO1350 

1390  DRAW"BM  80 , 120S5" : GOSUB2120 
1400  DRAW"BM100, 120S5" :GOSUB2120 
1410  DRAW"BM120/ 120S5" : GOSUB2120 
1420  DRAW"BM200, 140S7" :GOSUB2130 


1430  DRAW"BM200, 130S5" :GOSUB2180 
1440  DRAW"BM180, 110S7" :GOSUB2450 
1450  FOR  X=140  TO  90  STEP  -20 
1460  DRAW" BM 10 , "+STR$ (X) +"S7" : GO 
SUB2140 
1470  NEXT  X 

1480  DRAWBM128 ,  70S5"  :  GOSUB2380  : 
DRAW" BM200 , 80S  5 " : GOSUB2  3  70 
1490  P$=" EMPLOYEE  LOUNGE 

EXITS  B":GOSUB3  3  60:GOSUB2  640 
1500  GOSUB3440:IF  CM=3  THEN  R=18 
:GOTO470  ELSE  IF  CM<6  THEN  P$="T 
HERE  IS  A  WALL  THERE" : GOSUB2 640 
1510  IF  KK=1  THEN  KK=0:GOTO470 
1520  GOTO1500 

1530  DRAW"BM45, 130S5" :GOSUB2330 
1540  DRAW"BM90,95S2":GOSUB2  3  30 
1550  DRAW"BM215, 130S5" :GOSUB2320 
1560  DRAW"BM170, 97S2" :GOSUB2320 
1570  LINE(113, 70) -(123,85) ,PSET, 
B 

1580  LINE(123, 70) -(133,85) ,PSET, 
B 

1590  DRAW"S2BM74,107M+70,-44NU60 
R60NU60M+80,+44" 

1600  P$=" HALLWAY  EXITS 
F  R  L" :GOSUB3360 :GOSUB2640 
1610  GOSUB3440:IF  CM=2  THEN  R=R- 
3:GOTO470  ELSE  IF  CM=3  THEN  P$=" 
THERE  IS  A  WALL  THERE" :GOSUB  264 
0  ELSE  IF  CM=4  THEN  R=R+l:GOT047 
0  ELSE  IF  CM=5  THEN  R=R-l:GOT047 

9> 

1620  IF  KK=1  THEN  KK=0:GOTO470 
1630  GOTO  1610 

1640  DRAW" BM50, 140S6" :GOSUB2 140 
1650  DRAW"BM50,120":GOSUB2140 
1660  DRAW"BM202, 140" :GOSUB2150 
1670  DRAW"BM202,120":GOSUB2150 
1680  DRAW"BM180, 120H5G5H5G5H5G5H 
5G5" 

1690  P$="EXITS  B" : GOSUB3  3  60 : GOSU 
B2640 

1700  GOSUB3440:IF  CM=3  THEN  R=R- 
1.-GOTO470  ELSE  IF  CM<6  THEN  P$=" 
THERE  IS  A  WALL  THERE" : GOSUB2 640 
1710  IF  CM=11  THEN  P$="THERE  ARE 
POWER  CABLES  AND  EQUIPMENT  TO 
MANTAIN  SOMETHING" : GOSUB2  640 
1720  IF  KK=1  THEN  KK=0:GOTO470 
1730  GOTO1700 

1740  DRAW"BM170, 130S4" :GOSUB2240 
1750  DRAW"BM30,120S6":GOSUB2140 
1760  DRAW"BM40,100S4":GOSUB2440 
1770  DRAW"BM50,90S5" :GOSUB2450 
1780  DRAW"BM70,70S3" :GOSUB2  390:G 
OSUB2  390 

1790  DRAW"BM110, 140S5" :GOSUB2190 
1800  DRAW"BM30,140S5":GOSUB2330 
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1810  DRAW"BM110,99S4":GOSUB2120 
182)3  P$="UNMARKED  ROOM  EXI 
TS  B"  :  GOSUB3360 :  IFN<1  THEN  1820 
ELSE  GOSUB  2640 

1830  GOSUB3360:GOSUB3440:IF  CM=3 

THEN  R=25:GOTO470  ELSE  IF  CM<6 
THEN  P$=" THERE  IS  A  WALL  THERE": 
GOSUB2640 

1840  IF  CM=11  THEN  P$="THE  ALARM 
BEGINS  TO  SOUND" :GOSUB2 640: PLAY 
"ABCABCABCABC" : AL=1 : GOSUB3  3  60 
1850  IF  KK=1  THEN  KK=0:GOTO470 
1860  GOTO1830 

1870  DRAW"BM100 , 100S5" : GOSUB2 160 
1880  DRAW"BM100,85S5" :GOSUB2160 
1890  DRAW"BM20,140S8":GOSUB2140 
1900  DRAW"BM220, 140" :GOSUB2150 
1910  DRAW"BM20,120S8":GOSUB2140 
1920  DRAW"BM220,120":GOSUB2150 
1930  DRAW"BM103,60S6":GOSUB2380 
1940  DRAWBM80, 135S4 "  :  GOSUB2 110  : 
DRAW"BM110 , 110S3 " : GOSUB2090 : DRAW 
" BR6BD4" : GOSUB2 090 
1950  DRAW"BM165, 125S5" :GOSUB2100 
:DRAW"BM160, 135" : GOSUB2100 : P$="C 
ONTROL  ROOM  EXIT  B" : GOSUB3 3 60 : GO 
SUB2640 

1960  GOSUB3440:GOSUB3360:IF  CM=3 

THEN  R=25:GOTO470  ELSE  IF  CM<6 
THEN  P$="THERE  IS  A  WALL  THERE": 
GOSUB2  640 

1970  P$="ONE  STANDS  AND  SHOUTS  N 

0  ONE  IS  TO  BE  IN  HERE  SOUND  THE 
ALARM" : GOSUB2  640 : AL=1 

1980  IF  KK=1  THEN  KK=0:GOTO470 
1990  GOTO1960 

2000  GOSUB2070 : DRAW"BM120 , 50S4" : 
GOSUB2380:P$="EXITS  B" :GOSUB2  640 
2010  GOSUB3360:GOSUB3440:IF  CM=1 

1  AND  OB$="PIC"  THEN  P$="THERE  I 
S  A  STRONG  BOX         BEHIND  IT  WITH 

ONLY  A  KEY  SLOT  ON  THE  FACE": GO 
SUB2640:S1=162 :SC=SC+100 
2020  IF  CM=12  AND  Sl=162  THEN  IF 

OB$(l)="RED  KEY"  OR  OB$(2)="RED 

KEY"  OR  OB$(3)="RED  KEY"  OR  OB$ 
(4)="RED  KEY"  THEN  GOTO3  820  ELSE 

P$="NONE  OF  YOUR  KEYS  FIT":GOSU 
B2640:GOTO2010 

2030  IF  CM=3  THEN  R=28 : SC=SC-10 : 

GOTO470  ELSE  IF  CM<6  THEN  P$="TH 

ERE  IS  A  WALL  THERE" : GOSUB2 640 

2040  IF  KK=1  THEN  KK=0:GOTO470 

2050  GOTO2010 

2060  SCREEN1 , 1 : GOTO2060 

2070  DRAW  "S4BM30,121M+39,-29NUl 

00R130NU100M+39, +29 ": RETURN 

2080  DRAW"S4BM30, 161U161BR198D16 

1BM125,49R6D4NL6D4L6U8R6BR3R6D4L 


4D4L4U8" : CIRCLE ( 191 , 150 ) , 10 : LINE 

(120,46)-(148,60) ,PSET,B: RETURN 

2090  DRAW"U10R8ND10L8U2NR8U8NR8U 

3R8D13NL3M+3 , -2D6" : RETURN 

2100  DRAW"U20R2D5L2D8R8D2NL8D5" : 

RETURN 

2110  DRAW  "U8M-8,-3ND8R10U8NM+8, 
+3U2M+8 , +3D10ND8NM-8 , -3L10" :RETU 
RN 

2120  DRAW"U6NR17U8R5D6NM+3,-3Rll 
NM-3 , -3U6R5ND12NM-3 , -3L1BU1U16H1 
L17G1D17NM+3 ,  -3  " : RETURN 
2130  DRAW"U4NM+14,+4U4NM+14,+4NR 
14U4NR14U2R14ND5U10M+14,+4D2  6L14 
U14R14 11 :  RETURN 

2140  DRAW"U12R9M+15,-12L9NM-15,+ 
12R9D12M-7/+6NU12M-8,+6NU12L10" : 
RETURN 

2150  DRAW"U12L9M-15,-12R9NM+15,+ 
12L9D12M+7/+6NU12M+8,+6NU12R10" : 
RETURN 

2160  DRAW"U12NM+3,-3R17ND12R17NM 

-3 , -3D12L35" : RETURN 

2170  DRAW"U12R19ND12M+15/-12ND12 

L19M-15 , +12 " : RETURN 

2180  DRAW"U12L19ND12M-15,-12ND12 

R16NM+15 , +12  » : RETURN 

2190  DRAW"U12NM+3,-10R35ND12M-3/ 

-10L30": RETURN 

2200  DRAW"U10E5NE5R20H5NL10F10D1 
0L3U10NH5D10L3U10NH5D10L3U10NH5D 
10L6NU15L3NU15L6U10NE5D10L3U10NE 
5D10L3 " 

2210  DRAW"L6D5R15H1E1F1G1R10H1E1 

F1G1R15U5NL6D5F4D10G4L40H4U10E4 

2220  DRAW"BM+10,+18U10R10NH3NE3R 

10D10L2H3G3L3H3G3BM-13 , +0D8R5U2R 

5D10L5U8BR5R20U2R5D10L5U8BR5R5U8 

E4U3R16G6D3L3BU4R3 

2230  RETURN 

2240  DRAW"R2U2R26D2R2U12NL30U8L3 
0D20M-8 , -35U12NM+8 , +35U8NM+8 , +35 
R15M+2 , +10L15R30M-2 , -10NL15NM+8 , 
+35U16L30D16" : RETURN 
2250  DRAW"NU10M+2,+lU2M+2,+lNU8D 
2R2U2R21D2R2U10R2U2L28D2NR28M-4, 
-2U2NM+4 , +2R2  8M+4 , +2 " : RETURN 
2260  DRAW"NU10M-2,+lU2M-2,+lNU8D 
2L2U2L21D2L2U10L2U2R2  8D2NL2  8M+4, 
-2U2NM-4 ,+2L28M-4 ,+2" : RETURN 
2270  DRAW"NU10R2U2R20D2R2U10R2U2 
L28D2NR28U2M+4  ,  -2R20M+4  ,  +2 11 :  RETU 
RN 

2280  DRAW"R20U60NM-4,-2L20M-4,-2 

NR20D60M+4 , +2U20BR4R12D10L12U10B 

L4U20BR4R12D10L12U10BL4U18BR4R12 

D10L12U10BL4U2 " : RETURN 

2290  DRAW"U20M+4,-2R8M+4/+2NL18D 

20L18BM+5 , -4U12R10D12L10BM+3 , -6F 
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2E2H2G2BM+5 , +2U4" : RETURN 

2300  DRAWND15F5ND15R10ND15E5NL2 

0D15G5L10H5" : RETURN 

2310  DRAW"R10D8R2U8NL2R4D8R2U8NL 

2R10E2L32NF2M+3 , -6R26M+3 , +6BM-26 

, -4R8G2L2NU4L2H2BR12R8G2L2NU4L2H 

2 " : RETURN 

2320  DRAW"U40M+25,+15D20H2G2F2E2 

D20M-2  5 , -15" : RETURN 

2330  DRAW"U40M-25,+15D20E2F2G2H2 

D20M+25 , -15" : RETURN 

2340  DRAWU40R25D20H2G2F2E2D20L2 

5" : RETURN 

2350  DRAW"U20M+25,+15D20M-25,-15 
": RETURN 


2360  DRAW"U20L20D20R20" : RETURN 
2370  DRAW"U20M+25,+19D20M-25,-19 
BE2U12M+17 , +12D12M-17 , -12 " : RETUR 
N 

2380  DRAW"U20R25D20L25BE4U12R17D 
12 L17 ": RETURN 

2390  DRAW"U40R5ND40R5ND40R5ND40R 
5ND40R5D4NL25D3  6L25" : RETURN 
2400  DRAW  "F1R1E1NL3D6G1L1H1U6": 
RETURN 

2410  DRAW"F1R2E1U8H1U3L1D3G1D8" : 
RETURN 

2420  DRAW"R6D3L6U3BM+2,+lElFlGlH 
1" : RETURN 

2430  DRAW"M+6,-2M+2,-8M-6,+2M-2, 
+8": RETURN 

2440  DRAW"R2U2NU1E1NL1U1R5U1L10F 
1D4" : RETURN 

2450  DRAW"NU4R4U4F1R1E1H1L1H1L4G 
1L1G1F1R1E1R4BM-3 , +2E1F1G1H1" : RE 
TURN 

2460  LINE(X1,Y1) -(X2,Y2) , PRESET, 


BF 

2470  RETURN 

2480  IF  N=0  THEN  RETURN 
2490  FOR  X=l  TO  N 

2500  IF  R=6  THEN  Z=2  ELSE  Z=RND( 
8) 

2510  IF  Z=l  THEN  DRAW"S6" : Xl=100 
: Y1=110:GOTO2590 

2520  IF  Z=2  THEN  DRAW"S6" : Xl=160 
: Y1=110:GOTO2590 

2530  IF  Z=3  THEN  DRAW"S3 " : Xl=60 : 
Y1=80:GOTO2590 

2540  IF  Z=4  THEN  DRAW"S3 " : Xl=120 
: Y1=80:GOTO2590 

2550  IF  Z=5  THEN  DRAW"S3 " : Xl=130 
:Y1=80:GOTO2590 

2560  IF  Z=6  THEN  DRAW"S2 " : Xl=120 
: Y1=60:GOTO2590 

2570  IF  Z=7  THEN  DRAW"S4 " : Xl=88 : 
Y1=95:GOTO2590 

2580  IF  Z=8  THEN  DRAW"S4 " : Xl=140 

:Y1=95:GOTO2590 

2590  REM 

2600  LINE(Xl+10,Yl-5) -(Xl+30, Y1+ 

35) , PRESET ,BF:DRAW"BM"+STR$ (Xl+1 

0)  +" , "+STR$ ( Yl+30) +"M-1 , -14L2M-1 

,+14BL5U19E3R9U4BR2BD2H4U6E2R4F2 

D6G3BM-4 , -6E1F1BR2E1F1BM+1 , +4D4R 

9F3D19BL5M-1/-14L2M-1,+14" 

2610  DRAW"D20BL4M-1,-14L2M-1/+14 

BL4U20" 

2  620  NEXT  X 

2630  RETURN 

2640  LINE(0/139)-(255,191) , PRESE 
T, BF: LINE (0, 139) -(255, 139) ,PSET: 
LINE (0, 191) -(255,191) ,PSET:DRAW" 
BM0, 147S4" 

2650  CC=0:FOR  X=l  TO  LEN(P$) 
2660  I$=MID$(P$,X,1) :IN=ASC(I$)- 
64 

2  670  CC=CC+l:IF  CC=26  THEN  DRAW" 
BM0, 157" 

2  680  IF  CC=52  THEN  DRAW"BM0 ,167" 

2  690  IF  CC=78  THEN  DRAW"BM0 ,177" 

2700  IF  CC=104  THEN  DRAW"BM0,187 
it 

2710  IF  IN=-32  THEN  DRAW"BR10":G 
OTO27  30 

2720  DRAW  L$(IN) 
2730  NEXT  X 
2740  RETURN 

2750  LINE(0, 187)-(255, 179) , PRESE 
T, BF: DRAW'S 4 BM0 , 187BM+2 , -6U2R6D3 
L2BD2D2BR4" 
2760  A$="" 

2770  DRAW"C0BR4U8R4D8L4BL4C1BR4U 
8R4D8L4BL4C0" : X$=INKEY$ : IF  X$="" 

THEN  2770 
2780  IF  X$=CHR$(13)    THEN  RETURN 
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ELSE  IF  X$=CHR$(8)  AND  LEN(A$)>0 
THEN  A$=LEFT$ (A$ , LEN (A$) -1) : DRA 
W"BL2C1U8L1D8L1U8L1D8L1U8L1D8L1N 
U8C0 BL2  "  :  G0T02  7  7 0 
2790  IF  LEN(A$)>20  THEN  2770 
2800  IF  X$=CHR$(32)  THEN  DRAW" BR 
10" :GOTO2830 

2810  IF  ASC(X$)<65  OR  ASC(X$)>90 

THEN  2770 
2820  DRAW  L$ (ASC (X$) -64 ) 
2830  A$=A$+X$ 
2840  GOTO2770 

2850  P$="THE  NAME  OF  YOUR  AGENT" 

:GOSUB2640 

2860  GOSUB2750 

2870  PCLS:DRAW"BM10,20M+20,-10Rl 
80M+20,+10NL220D80L220U80BM+50,+ 
50R2  0ND2  0R2  0ND2  0R2  0ND2  0R2  0ND2  0R2 
0ND20R20D20L120U20BM+60 , -10R30NE 
12U10M-20,-10L10M-20,+10D10NH12R 
20" : CIRCLE (70 , 40) , 20 : CIRCLE ( 180 , 
40) ,20 

2880  P$="GOOD  MORNING  "+A$:GOSUB 
2640:GOSUB2990 

2890  P$="THE  PLANS  FOR  OUR  NEW 

MISSILE  THE  XTB  DEVELOPED  BY  T 
HE  FAMOUS  SCIENTIST  STEPHAN  MI 
LLER  HAVE  BEEN  STOLEN" : GOSUB  2  6 
40 

2900  GOSUB2990 

2910  PCLS:GOSUB3290 

2920  P$="BY  THIS  MAN  ANDROLI 

LANDROV  WHO  THEN  SOLD  THE  PLAN 
S  TO  A  VERY  SMALL  THIRD  WORL 

D  COUNTRY" :GOSUB2640:GOSUB2990 
2930  P$="THIS  SMALL  COUNTRY  IS 

WELL  KNOWN  FOR  TERRORISM  AND 
HAS  VOWED  TO  USE  THE  MISSILES  0 
NCE  BUILT":GOSUB2  640:GOSUB2990 
2940  P$="YOUR  MISSION  IS  TO  BREA 
K  INTO  THEIR  SECURITY  BUIL 
DING  AND  RETRIEVE  THE  PLANS " : GOS 
UB2640:GOSUB2990 

2950  P$="THE  BOTTOM  FLOOR  IS  OPE 
N  TO  THE  PUBLIC  AND     EASILY  ACCE 
SSIBLE  BUT  NO  WESTERN  AGENT  HAS 
SEEN  THE  UPPER     FLOORS" : GOSUB2  64 
0:GOSUB2990 

2960  PCLS:GOSUB3310:P$="THIS  IS 
AN  UNDERCOVER        AGENT  WE  HAVE  A 
T  THE  BUILDING  STUDY  HER  FA 

CE       CAREFULLY  SHE  CAN  HELP  YOU" 
: GOSUB2  640: GOSUB2  9  90 
2970  P$="GOOD  LUCK  "+A$ : GOSUB264 
0:GOSUB2990 
2980  RETURN 

2990  DRAW"BM140,187S4":P$="  KEY 
ENTER" : GOSUB2  650 


3000  IF  INKEY$=""THEN3000  ELSE  R 
ETURN 

3010  REM  DRAW  FACES  ROUTINE 
3020  REM  EYES 

3030  DRAW  "BM139/77BR"+STR$(EW)+ 
"M+"+STR$ (EL) +" , -"+STR$ (EH) +  "NM- 
"+STR$( INT (EL/3) ) +" , +"+STR$ (EH) + 
"R4NM+"+STR$ (INT (EL/3 ) ) +" , +"+STR 
$ (EH) +"M+"+STR$ (EL) +" , +"+STR$ (EH 
) +"M-"+STR$ (EL) +" , +"+STR$ (EH) +"N 
M+"+STR$ (INT (EL/3) ) +" , -"+STR$ (EH 
) 

3040  DRAW  "L4NM-"+STR$ (INT (EL/3) 
) +" , -"+STR$ (EH) +"M-"+STR$ (EL) +  " , 
-"+STR$(EH) 

3050  DRAW"BM139 , 77BL"+STR$ (EW) +" 
M-"+STR$ (EL) +" ,+"+STR$ (EH) +"NM+" 
+STR$ (INT (EL/3 ) ) +" , -"+STR$ (EH) 
3060  DRAW  "L4NM-"+STR$ (INT (EL/3) 
) +" , -"+STR$ (EH) +"M-"+STR$ (EL) +" , 
-"+STR$ (EH) +"M+"+STR$ (EL) +" , -"+S 
TR$ (EH) +"NM-"+STR$ (INT (EL/3 ) )  +  " , 
+"+STR$ (EH) +"R4NM+"+STR$ (INT (EL/ 
3 ) ) +" , +"+STR$ (EH) +"M+"+STR$ (EL) + 
»,+"+STR$ (EH) 
3070  REM  NOSE 

3080  DRAW  "BM139,84BL"+STR$(NW)+ 
»D"+STR$ (NL)+"M-"+STR$ (INT(NW/2) 
) +" , +4D4M+3 , -H+STR$ ( INT (NW/2 ) ) +" 
M+"+STR$ (INT(NW/2) ) +" , +4R4M+"+ST 
R$ (INT (NW/2 ) ) +" , -4M+"+STR$ ( INT (N 
W/2 ) ) +" , +2U4M-2 , -"+STR$ (INT (NW/2 
) )+"U"+STR$ (NL+2) 
3090  REM  LIPS 

3100  DRAW  "BM140, 119BM+0 , -"+STR$ 

(INT(LW/3) )+"M+"+STR$ (INT (ML/3) ) 

+»,-»+STR$(INT(LW/2) )+"M+"+STR$ ( 

ML) +" , +"+STR$ (LW) +"M-"+STR$ (ML) + 

" , +"+STR$ (LW) +"L"+STR$ (ML- 2 ) +  "M- 

"+STR$ (ML) +" , -"+STR$ (LW) +"M+"+ST 

R$ (ML) +" , -"+STR$ (LW) 

3110  DRAW  "M+"+STR$ ( INT (ML/3 ) +2 ) 

+»,+"+STR$(INT(LW/3) ) 

3120  REM  FACE  SHAPE 

3130  DRAW  "BM139/137R"+STR$(FW)+ 

"M+"+STR$ (INT (FW*2 . 8) ) +" , -34U40B 

M139, 137L"+STR$ (FW) +"M-"+STR$ (IN 

T(FW*2.8) )+",-34U40" 

3140  REM  EARS 

3150  DRAW  "BM"+STR$(13  9+(INT(FW* 
3.8) ) )+»,95M+"+STR$(ES)+",-4U12N 
M-"+STR$ (ES)+"/+4M+"+STR$ (INT(ES 
/3 ) ) +" ,  -2U4M-"+STR$  (ES+4)  +•• ,  +6" 
3160  DRAW  "BM"+STR$(139-(INT(FW* 
3.8)))+", 95M-"+STR$ (ES) +" , -4U12N 
M+"+STR$ (ES) +" ,+4M-"+STR$ (INT (ES 
/3) )+",-2U4M+"+STR$ (ES+4) +",+6" 
3170  REM  DRAW  HAIR 

3180  DRAW  "BM"+STR$(139+(INT(FW* 
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3.8)  )  )+",  68U12M-"+STR$ (INT(FW*2) 
) +" , -16LM+STR$ (INT (FW*3 . 6) ) +  »M-" 
+STR$ (INT(FW*2) )+" ,+16D12" 
3190  IF  HT=1  THEN  DRAW  "BM"+STR$ 
(139+INT (FW*2 ) ) +" , 52M-"+STR$ (FW) 
+",+16M-"+STR$(INT(FW*4.7)  )+",0B 
M"+STR$ (139+INT (FW*2 ) ) +" , 52M+"+S 
TR$(INT(FW*1.9) )+" ,+24" : PAINT (13 
9,43)  ,0,0:PSET(139,40) 
3200  IF  HT=2  THEN  DRAWBM13  9 , 49M 
-"+STR$  (INT(FW*4.2)  )  +"  ,  +32U20NE5 
D20D72NE29BM139,49M+"+STR$ (INT(F 
W*4 . 2) ) +" , +32U20NH5D20D72NH2  8" : P 
AINT(13  9,42) ,0 , 0 : PAINT ( INT ( 139+F 
W*4)  ,66)  ,0,0:PAINT(139-FW*4,66)  , 
ft,  ft:  PAINT  ( 139-FW*4  , 120)  ,  0  ,  0  :  PAIN 
T(139+FW*4, 120)  ,0,0 
3210  IF  HT=3  THEN  DRAWBM139 , 64N 
L"+STR$ (INT (FW*3 . 8) ) +"R"+STR$ (IN 
T(FW*3 .8) )+"BM"+STR$ (139+INT (FW* 
3.8))+",  55F10D40L3D20G5L10H10BM" 
+STR$  (139-INT  (FW*3  .  8)  )  +"  ,  55G10D4 
0R3D20F5R10E10" :PAINT(139, 60)  ,0, 
0 : PAINT (139+FW*4, 65) ,0,0: PAINT (1 
39-FW*4, 65) ,0,0 

3220  IF  HT=3  THEN  PAINT ( 13  9 -FW* 4 
,120) ,0,0:PAINT(139+FW*4,120) ,0, 
% 

3230  REM  GLASSE 

3240  IF  GL=1  THEN  DRAWBM139 , 71M 
-"+STR$ (INT(FW*3 .5) ) +" ,0D20R"+ST 
R$ (INT(FW*1.6) )+"E20R"+STR$ (INT( 
FW*3 .5) ) +"D20L"+STR$ (INT (FW*1 . 6) 
)+"H20" 

3250  IF  M>0  THEN  DRAW  "BM140,107 
M-"+STR$ ( INT (M*8 ) ) +" , +"+STR$ ( INT 
(M*3) )+"D5M+"+STR$(INT(M*8) )+",- 
"+STR$ ( INT (M*3 ) ) +"M+"+STR$ ( INT (M 
*8) )+",+"+STR$(INT(M*3) )+"U5M-"+ 
STR$(INT(M*8) )+",-"+STR$(INT(M*3 
) ) : PAINT (140, 109) ,0,0 
3260  IF  B=l  THEN  DRAWBM140 ,  107N 
M-"+STR$ (INT(FW*2.7) ) +" , +9M+"+ST 
R$ ( INT ( FW*2 . 7 ) ) +" , +9 " : PAINT ( 140 , 
109) ,0,0 
3  270  RETURN 

3  280  REM  ANDROLI  LANDROV 

3290  EW=6:EH=6:EL=10:NW=8:NL=6:L 

W=6 :ML=10 : FW=12 : ES=6 : GL=0 : HT=0 : M 

=3 : B=0 : GOSUB3 030: RETURN 

3  300  REM  UNDERCOVER  AGENT 

3  310  PCLS:EW=10:EH=6:EL=10:NW=5: 

NL=4 : LW=6 : ML=12 : FW=11 : ES=2 : GL=0 : 

HT=3 :M=0:B=0 :GOSUB30 30: RETURN 

3  3  20  REM  GEORG 

3330  EW=10:EH=7:EL=12:NW=7:NL=12 
: LW=6 : ML=12 : FW=11 : ES=8 : GL=0 : HT=1 
: M=0 : B=0 : PCLS : GOSUB3 030: RETURN 
3  3  40  REM  RANDOM  FACE 


3350  EW=RND(6)+6:EH=RND(4)+2:EL= 
RND(10)+6:NW=4+RND(4) :NL=10+RND( 
10) :LW=RND(4)+3:ML=RND(8)+6:FW=R 
ND(4)+9:ES=RND(5)+5:GL=RND(2) -1: 
HT=RND ( 4 ) - 1 : PCLS : GOSUB30 30 : RETUR 
N 

3  3  60  IF  R<11  THEN  N=RND ( 9 ) -RND ( 9 
) :GOTO3400 

3370  IF  R<20  THEN  N=RND ( 3 ) -RND ( 3 
) :GOTO3400 

3380  N=RND ( 2 ) -RND (4) 

3390  IF  RND(10)=1  AND  R>13  THEN 

GOTO3840 

3400  IF  N<0  THEN  N=0 
3410  IF  GG=R  THEN  N=N+1 
3420  GOSUB2480 
3430  RETURN 

3440  IF  AL=1  AND  N>0  THEN  3700  E 
LSE  IF  R>11  AND  N>0  AND  RND(10)> 
8  THEN  3700 

3450  GOSUB2750:E=0:CM=0:FOR  Z=l 
TO  LEN ( CM$ )  STEP3 

3460  IF  LEFT$(A$,3)=MID$(CM$,Z,3 
)   THEN  CM=INT( (Z/3)+l) 
3470  NEXT  Z : IF  A$="F"  THEN  CM=2 
ELSE  IF  A$="B"  THEN  CM=3  ELSE  IF 

A$="R"  THEN  CM=4  ELSE  IF  A$="L" 

THEN  CM=5 
3480  IF  CM=1  THEN  GOSUB3  780: RETU 
RN 

3490  IF  CM=13  AND  R<>4  AND  N>0  T 
HEN  P$="WILL  NOT  TAKE  IT":GOSUB 
2  640: RETURN 

3500  IF  CM=13  AND  N=0  THEN  P$="N 
0  ONE  HERE" : GOSUB2 6 40: RETURN 
3510  IF  CM=0  THEN  P$="I  DO  NOT  U 
NDERSTAND" : GOSUB2  640 : E=l : RETURN 
3520  IF  CM=9  AND  OB$ ( 1) <>"GUN"  A 
ND  OB$(2)ollGUN"  AND  OB$(3)oMGU 
N"  AND  OB$(4)<>"GUN"  THEN  P$="NO 

GUN" :GOSUB2 640: RETURN  ELSE  IF 
RND(10)>3  AND  CM- 9  THEN  P$="YOU 
TRIGGERED  THE  ALARM" : GOSUB2 640 : P 
LAY "ABC ABC ABC" : AL=1 
3530  IF  R=GG  AND  CM=9  THEN  P$="Y 
OU  GOT  GEORG  AND  THE  RED  KEY  ARO 
UND  HIS  NECK" : SC=SC+100 : GOSUB264 
0:AA$="RED  KEY" : GOSUB3 750 : RETURN 
3540  IF  CM=9  AND  N>0  THEN  IF  RND 
(3)=1  THEN  P$="GOT  EM" : GOSUB2 640 
: KK=1 : SOUND200 , l:SOUNDl, 1: RETURN 

ELSE  P$="MISSED" : GOSUB2 640 : RETU 
RN 

3550  FOR  X=l  TO  LEN(A$):IF  MID$ ( 
A$,X,1)="   "  THEN  WW=X:GOTO3570 
3560  NEXT  X 

3570  OB$=MID$(A$,WW+l,3) 

3580  IF  CM=11  AND  OB$="DES"  AND 

R<>16  THEN  P$="UNIMPORTANT  PAPER 
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S "  :  G0SUB2  640:  RETURN  ELSE  IF  CM=1 
1  AND  OB$="FIL"  THEN  IF  R=4  OR  R 
=16  THEN  P$="LOCKED" :GOSUB2640:R 
ETURN 

3590  IF  CM=12  AND  R<>2  AND  R<>12 
AND  R<>22  AND  R<>14  AND  R<>27TH 
EN  P$="WILL  NOT  UNLOCK" : GOSUB2  64 
0 : RETURN 

3600  IF  CM=11  AND  N>0  AND  RND(25 
)=1  THEN  P$="ONE  RUNS  AWAY" :GOSU 
B2640:PLAY"ABCABCABC":P$="  AND  S 
OUNDS  THE  ALARM" :AL=1: :GOSUB2 640 
: RETURN  ELSE  IF  CM=11  AND  R<>14 
AND  R<>16  AND  R<>27  AND  OB$o"FA 
C'THEN  P$="NOTHING  SPECIAL" : GOSU 
B2 640: RETURN 


3610  IF  CM=6  AND  ROGG  THEN  P$=" 
NOTHING  TO  TAKE "  :  G0SUB2  640:  RETUR 
N  ELSE  IF  CM- 6  AND  R=GG  THEN  P$= 
"GEORG  BEGINS  TO  YELL  SOUND  THE 
ALARM" : G0SUB2  64 0 : AL=1 : PLAY"ABCAB 
CABC": RETURN 

3620  IF  CM=8  AND  R<>6  THEN  IF  N= 
0  THEN  P$="NO  ONE  HERE" : GOSUB264 
0 : RETURN  ELSE  P$="WRONG  PERSON  S 
OUND  THE       ALARM"  :  GOSUB2  640 :  PLAY 
"ABCABCABC" : AL=1 : RETURN 
3630  IF  CM=10  THEN  KK=1:  RETURN 
3640  IF  CM=11  AND  OB$="FAC"  THEN 
IF  WF=N  THEN  P$="NO  MORE  NEW  FA 
CES":GOSUB2640:RETURN  ELSE  WF=WF 
+1:IF  R=6  THEN  GOSUB3  3 10 : RETURN 
ELSE  IF  R=GG  THEN  GOSUB  3 3 30: RET 
URN  ELSE  GOSUB3350:RETURN 
3650  IF  CM=7  THEN  GOSUB  3780 
3660  IF  CMO10  AND  CM<>13  THEN  3 
680 

3670  IF  OB$<>LEFT$(OB$(l) ,3)  AND 
OB$<>LEFT$(OB$(2) ,3)   AND  OB$<>L 
EFT$(OB$(3) ,3)   AND  OB$<>LEFT$(OB 


$(3) ,3)   THEN  P$="SORRY  DO  NOT  HA 
VE  "+RIGHT$ ( A$ , LEN ( A$ ) -WW) : GOSUB 
2 640 :E=1: RETURN 
3680  RETURN 

3690  DRAW"BM0 , 178" : P$="YOU  ARE  B 
EING  WATCHED " : GOSUB2  650: GOTO 3450 
3700  FOR  DE=1  TO100:IF  INKEY$="D 
"  AND  RND(10)>2  THEN  3450 
3710  IF  INKEY$="S"AND  RND(10)>2 
THEN  3450 

3720  NEXT  DE : SCREEN1 , 0 : SOUND1 , 1 : 
SCREEN1,1:IF  RND(10)>8  THEN  PCLS 
:P$="YOU  WERE  SHOT" :GOSUB2640:GO 
TO3740 

3730  SCREEN1,0:SOUND1, 1:SCREEN1, 
l:P$="YOU  ARE  BEING  SHOT  AT" :GOS 
UB2640:GOTO3440 

3740  FORDE=1TO1000:NEXTDE:CLS:PR 
INT@169,"YOU  HAVE  FAILED !": PRINT 
@300, "SCORE "SC: INPUT "TRY  AGAIN  ( 
Y/N)";A$:IF  A$="Y"  THEN  OB$(l)=" 
GUN" : OB$ ( 2 ) =" " : OB$ ( 3 ) =" " : OB$ ( 4 ) = 
,,":SCREEN1/1:AL=0:GOTO430  ELSE  E 
ND 

3750  FOR  X=l  TO  4 : IF  OB$(X)=""  T 

HEN  3770  ELSE  NEXT 

3760  P$="TOO  MANY  OBJECTS       DO  Y 

OU  WANT  "+AA$+"  Y  OR  N":GOSUB264 

0:GOSUB2750:IF  A$="N"  THEN  RETUR 

N  ELSE  GOSUB3780:OB$(4)=AA$:RETU 

RN 

3770  OB$(X)=AA$: RETURN 

3780  P$="A  "+OB$(l)+"     B  "+OB$(2 

) :GOSUB2  640 

3790  P$="C  "+OB$(3)+"     D  "+OB$(4 

) : DRAW"BM0 , 157" : GOSUB2650 

3800  DRAW"BM0,167":P$="WHICH  TO 

DROP  A  TO  D":GOSUB2650:DRAW"BM0, 

177":P$="OR  N  FOR  NOTHING" : GOSUB 

2650 

3810  GOSUB2750:IF  A$<  "A"  OR  A$> 
"D"  THEN  P$="  " :GOSUB2 640: RETURN 

ELSE  FOR  X=ASC(A$)-64  TO  3:OB$( 
X) =OB$ (X+l ) : NEXTX : OB$ ( 4 ) =" " : P$=" 

" : GOSUB2  640: RETURN 
3820  FOR  DE=1TO1000:NEXT  DE : PLAY 
"AABBCC" 

3830  CLS : SC=SC+100 : PRINT@168 , "CO 

NGRATULAT I ONS ! ! " : PRINT@197 , "YOU 

GOT  THE  PLANS  OUT! ! " : PRINT@329 , " 

YOU  SCORED  "SC:END 

3840  PCLS : DRAW"BM100, 100S4": GOSU 

B2200 

3850  IF  AL=0  THEN  P$=" SECURITY  S 
CAN" : GOSUB2640 : GOSUB2750 : IF  A$=" 
GIVE  ID  CARD"  THEN  P$="OK" : GOSUB 
2 640 :KK=1: RETURN 

3860  P$="ZZZZZZZAAAPPPP":GOSUB26 
40:PLAY"O4AAAA":GOTO3740  /S\ 
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  Program  by  L.  Curtis  Boyle 

Prosperity,  solitude  and  happiness  have  reigned 
in  the  Kingdom  of  Bergadeer  for  many  years 

 where  the  king's  primary  consideration  has 

been  the  well-being  of  the  citizens.  The  king 
seeks  only  their  respect  and  loyalty  in  return. 

The  king  provides  shelter,  food,  clothing  and 
educational  opportunities  for  all  on  an  equal 
basis.  When  a  person  needs  assistance,  the  king 
takes  a  personal  interest  in  seeing  that  help 
is  provided.  His  concern  is  of  such  magnitude 
that  the  king  is  considered  a  fatherly  figure. 

The  king's  ability  to  provide  for  the  residents 
is  made  possible  through  his  Ring  of  Freedom, 
which  was  instilled  with  magical  powers  when 
struck  by  lightning  years  ago.  The  king  was 
a  young  prince  then,  suffering  from  what  was 
believed  to  be  a  terminal  illness.  The  prince 
was  immediately  restored  to  perfect  health. 

The  prince  vowed  then  to  use  the  ring  to 
improve  the  lives  of  all  Bergadeereans  because 
of  the  concern  they  had  shown  for  him  during 
_ _      the  crisis.  It  has  protected  the  kingdom  from 
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droughts,  floods  and  economic  uncertainty.  Never  has  the  king  used  the  ring 
for  greedy  purposes. 

Things  are  going  so  peacefully  in  Bergadeer  that  the  citizens  almost  take 
prosperity  for  granted.  So  does  the  king,  in  fact.  One  evening  while  preparing 
for  bed,  he  removes  the  ring  from  his  finger,  leaving  it  in  the  custody  of 
the  castle's  small  security  force  for  safekeeping. 

Later  in  the  evening,  the  stillness  and  tranquility  is  suddenly  broken  by 
the  mighty  roar  of  a  ferocious  fire-breathing  dragon.  Destroying  everything 
and  everyone  in  its  path,  the  dragon  easily  overpowers  the  security  force. 
And,  you  guessed  it,  the  monster  steals  the  Ring  of  Freedom,  along  with 
many  other  valuables. 

Without  the  ring,  the  entire  kingdom  is  at  the  dragon's  mercy.  Misery  and 
pessimism  prevail. 

The  king,  fearing  for  the  lives  of  the  citizens,  recruits  you  to  try  to  regain 
control  of  the  ring.  He  is  unable  to  supply  weapons  or  armor  but  he  does 
provide  a  decanter  containing  a  healing  potion.  He  leads  you  to  a  location 
in  the  castle  where  the  dragon  was  last  seen,  wishing  you  luck  and  promising 
to  reward  you  if  you  are  successful. 

You  also  should  collect  other  treasures  in  addition  to  the  ring  because  your 
score  in  this  Adventure  will  be  determined  by  the  number  you  obtain.  Also, 
you  must  type  SCORE  before  you  actually  reclaim  the  ring  so  the  computer 
can  take  an  inventory.  If  you  do  not  have  enough,  you  may  need  to  retrace 
your  path. 

The  Adventure  contains  a  comparatively  short  command  list,  which  includes 
the  following  verbs  (some  of  which  are  synonymous):  KILL;  ATTACK;  HIT; 
OPEN;  UNLOCK;  LOOK;  EXAMINE;  SEARCH;  GET;  TAKE;  DROP; 
LEAVE;  DRINK;  EAT;  QUIT;  END;  LOAD;  SAVE;  SCORE;  INVENTORY 
and  READ. 

You  will  need  to  type  only  the  first  three  letters  of  each  word.  If  you  misspell 
a  command,  pressing  the  left-arrow  key  will  delete  the  line,  allowing  you 
to  enter  a  new  command. 

The  screen  is  divided  into  four  vertical  sections.  The  top  screen  is  your 
location,  the  second  describes  objects,  the  third  is  the  shape  of  the  room, 
and  the  bottom  section  is  where  commands  and  responses  are  displayed. 


(L.  Curtis  Boyle  is  a  recent  graduate  of  Mount  Royal  Collegiate  High 
School  in  Saskatoon,  Saskatchewan.  He  received  assistance  from  friend 
Richard  Smith  in  writing  the  Adventure.) 
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If  your  computer  will  not  accept  the  high  speed  poke,  remove  POKE  G5494 , 0 
in  lines  243,  250,  251  and  257.  The  screen  will  be  either  red  or  blue  when 
the  Adventure  is  loaded.  If  it  is  blue,  simply  press  the  Reset  button.  If  red, 
press  any  key  to  begin. 


-  RNGQUEST      32K  ECB 


ft  CLS:CLEAR695:PMODE4:GOSUB346:P 
RINT@233 , "PRESENTING. . ." 

1  DIMRM$(85) ,RP$(85) ,OB$(85) ,OP$ 
(85) ,OB(85) ,D(85,6) ,D$(6) ,F(10) , 
CC$  (47)  :MX=6:CA=0 

2  F0RX=1T06:READD$ (X) :NEXTX 

3  X=0 

4  X=X+l:READRM$ (X) : IFRM$ (X) ="END 
"THEN7 

5  READRP$ (X) 

6  FORY= 1TO  6 : RE ADD ( X ,  Y )  : NEXT Y : GOT 
04 

7  RN=X:X=0 

8  X=X+1:READ0B$ (X) : IF0B$ (X) ="END 
"THENNO=X-l : G0T09 : ELSEREADI$ , 0P$ 
(X) ,OB(X) :0B$=0B$+I$:G0T08 

9  X=0 

10  X=X+ 1 :  READI  $  :  I FI $= " END" THEN11 
ELSEVB$=VB$+LEFT$ (1$ , 3 ) :GOTO10 

11  F0RX=1T047:READCC$(X) :NEXT:G0 
SUB349 

12  Y0U=1:HP=6:PH=6:AC=3:CA=1 

13  M=0:GOSUB264:AA$="I  AM  " : DRAW 
"BM2 , 8S4C1" :G0SUB273 

14  AA$=LEFT$ (RM$ ( Y0) ,31) :GOSUB27 
3 

15  IF  LEN (RM$ (YO) ) >30THENAA$=MID 
$(RM$(Y0) ,32,36) : DRAW"BM2 , 18 " : GO 
SUB273 

16  IF  LEN(RM$ (YO) ) >67  THENAA$=MI 
D$(RM$(YO)  ,68,36)  : DRAW" BM2 , 2  8 " : G 
OSUB2  73 

17  DRAW"BM2,130;XRP$(YO) ;" 

18  AA$="I  CAN  SEE:  " : DRAW"BM2 , 55 
":GOSUB273:F=0 

19  FORI=lTONO 

20  IF  INT(OB(I) )<>INT(YOU)  THEN 
23 

21  IF  ASC  (OB$  (I)  )  =109THENAA$=RIG 
HT$(OB$(I) ,LEN(OB$(I) )-3) :GOSUB2 
73:X=7*LEN(AA$) : DRAW"BM-=X; ,+9" : 
F=l:M=I:GOT02  3 

22  AA$=OB$(I) : F=l : GOSUB273 : X=7*L 
EN(OB$ (I) ) :DRAW"BM-=X; ,+9" 

23  NEXT: IFF=0THENAA$="NOTHING  IN 
TERESTING" : GOSUB2  7  3 


24  AA$="YOU  CAN  GO:  ":DRAW"BM2,1 
51" :GOSUB273 

25  DRAW" BM2 ,160" 

26  F0RI=1T06 

27  IFD(YOU,I)<>0THENAA$="  "+D$(I 
) :GOSUB27  3 

28  NEXT 

29  DRAW"BM2 , 103 ": AA$=" ROOM" : GOSU 
B2 7 3 : DRAW" BM100 , 10 3 " : AA$=" OBJECT 
S":GOSUB27  3 :DRAW"BM200, 103" :AA$= 
"MONSTERS " : GOSUB2  7  3 

3)3  DRAW"BM100, 120" :X=100:FORI=1T 
ONO:IFOB(I)=YO  ANDLEFT$ (OB$ (I) , 1 
)<>"m"THENDRAWOP$ (I) :X=X+15:DRAW 
"BM=X; , 120 ; " : NEXTELSENEXT 

31  DRAW"BM200, 110" : FORI=lTONO : IF 
OB(I)=YO  ANDLEFT$ (OB$ (I) , l)="m"T 
HENDRAWOP$(I) : NEXTELSENEXT 

32  IFM>0THENGOSUB2  67 

33  LINE(0, 171)-(255, 191) , PRESET, 
BF:DRAW"BM2,169" 

34  AA$="WHAT  SHOULD  I  DO?  " : GOSU 
B273 

35  1$="" : DRAW"BM2 , 190" : GOSUB2  39 : 
I F YO= 2  0THENAC= 1 0 

36  IFI$=""THEN32ELSEIFI$="LOOK"T 
HEN13 

37  IFI$="QUIT"ORI$="END"THENSCRE 
EN0 ,0 : END 

38  IFI$="SAVE"THENSCREEN0:GOTO24 
3 

39  IFI$="LOAD"THENSCREEN0:GOTO25 
1 

40  IFLEFT$ ( 1$ , 2 ) ="GO"THENAA$="US 
E  SINGLE  LETTERS  (EX:  N=NORTH) " : 
GOSUB2  65:DRAW"BM2 , 190" : GOSUB27  3 : 
GOT0266 

41  IFLEFT$(I$,3)O"INV"THEN50 

42  PMODE0,4:PCLS:PMODE4:DRAW"BM2 
,151" 

43  AA$="I  AM  CARRYING: " : GOSUB2 7 3 
:F=0 

44  X=2 

45  FORI=lTONO 

46  IFOB ( I ) =-lTHENAA$=OB$ (I) : GOSU 
B273:F=l:X=7*LEN(OB$(I) ) :DRAW"BM 
-=X; ,+9;" 

47  NEXT : IFF=0THENAA$= "NOTHING" : G 


OSUB273 

48  SOUND1,2J3:PMODE0,4:PCLS:PMODE 
4 

49  GOT032 

50  IFLEFT$  (1$,  5)  <>"SCORE"THEN60 

51  SC=J3:G0SUB265:DRAW"BM2, 19j3"  :A 
A$=MYOU  HAVE"+STR$(HP)+"  HIT  POI 
NTS  OUT  OF"+STR$ (PH) :GOSUB273 

52  T=,0:Y=,0 

53  FORI=lTONO 

54  FORL=lTOLEN(OB$ (I) ) 

55  IFMID$  (OB$  (I)  ,L,1)="*"THENT=T 
+1 : IFOB ( I ) =-lTHENSC=SC+l 

56  NEXT: NEXT 

57  T$=STR$(T) 

58  Y$=STR$(SC) 

59  GOSUB2  65  :  DRAWBM2  , 19j3"  :  AA$="0 
UT  OF"+T$+"  POINTS  YOU  HAVE  "+Y$ 
:G0SUB273:S0UND1,2J3:G0T0  3  3 

60  IF  LEN(I$)=1  THEN  74 

61  IFI$="HELP"THEN81 

62  SP=INSTR(I$,CHR$(32) ) :IF  SV=0 
THEN  AA$="TRY  USING  TWO  WORD  CO 

MMANDS  .  "  :  GOSUB2  65  :  DRAWBM2  , 190  "  : 
GOSUB273 :GOT0266 

63  V$=LEFT$(I$,SP-1) :0$=MID$(I$, 
SP+1) 

64  A$=LEFT$ (V$ , 3 ) : B$=LEFT$ (0$ , 3 ) 

65  IFA$="TAK"THENA$="GET" 

66  IFA$=" LEA,,THENA$="DRO" 

67  IFA$="LOO"ORA$="SEA"THEN  A$=" 
EXA" 

68  IFA$="MOV"THENA$="PUS" 

69  IFA$="ATT"ORA$="HIT"THENA$="K 
IL" 

10  IFA$="EAT"THENA$="DRI"ELSEIFA 
$="UNL"THENA$="OPE" 

71  V=(INSTR(VB$,A$)+2)/3:IF  V<1 
THEN  PMODE0,4:PCLS:PMODE4:DRAW"B 
M2,181":AA$="SORRY,    I  JUST  DON'T 

KNOW  HOW  TO":GOSUB27  3:DRAW"BM2, 
1 90 " : AA$=V$+ "  ANYTHING . " : G0SUB2  7 
3:S0UND1,2J3:G0T013 

72  0=(INSTR(OB$,B$)+2)/3:IF  0<1 
THEN  PMODE0,4:PCLS:PMODE4:AA$="S 
ORRY,  I  JUST  DON'T  SEE  ANY": DRAW 
"BM2  , 181"  :  GOSUB273  :  DRAWBM2  , 190" 
:AA$=0$+"  HERE . " : G0SUB2 7 3 : S0UND1 
,2j3:GOT013 

73  IFLEN(I$) >1THEN82 

74  V=0:CLS:IFI$="N"ANDD(YO, 1) <>0 
THENYO=D (YOU, 1) : GOTO  13 

75  IFI$="S"ANDD(Y0,2)  <>j3THENY0=D 
(Y0,2) :G0T013 

76  IFI$="E"ANDD(Y0,3)  <>J3THENY0=D 
(Y0,3) :G0T013 

77  IFI$="W"ANDD(Y0,4)  <>J3THENY0=D 
(Y0,4) :G0T013 

78  IFI$="U"ANDD(Y0,5) <>0THENYO=D 


(Y0,5) :G0T013 

79  IFI$="D"ANDD(YO,  6)  <>j3THENY0=D 
(YO, 6) :G0T013 
8J3  GOT082 

81  AA$=" TOUGH  LUCK!  JUST  KEEP  T 
RYING !  "  :  GOSUB265  :  DRAWBM2  , 190"  :  G 
OSUB273:GOT0266 

82  F=0:IFOB(O)=YO  THENF=1ELSEIF0 
B(0)=-1THENF=2 

83  ONV  GOTO86,96,99,109,116,129, 
159 

84  IFLEN(I$)=1THENG0SUB2  65:DRAW" 
BM2,19p":AA$="I  CAN'T  GO  THAT  WA 
Y ! " : G0SUB2  7  3 : G0T02  6  6 

85  GOSUB2  65  :  DRAW" BM2  , 19 j3"  :  AA$="I 
DON'T  UNDERSTAND. " : GOSUB273 : GOS 

UB266 

86  IFF=2THENGOSUB265:DRAW"BM2,19 
0":AA$="I  ALREADY  HAVE  IT!": GOTO 
266 

87  IF  F=0THEN  G0SUB2 6 5 : DRAW " BM2 , 
19P":AA$="I  DON'T  SEE  THAT  HERE. 
" : G0SUB2  7  3 : G0T02  6  6 

88  IF  LEFT$(OB$(0)  ,  1)  ="ltl"THENGOS 
UB2  65:DRAW"BM2,19p":AA$="I  CAN'T 

DO  THAT ! " : G0SUB2  7  3 : G0T02  6  6 

89  IF  CA=>MX  THEN  AA$="I  CAN'T  C 
ARRY  ANYTHING  ELSE ! " : GOSUB2  65 : DR 
AW" BM2 , 190 " : G0SUB2  7  3 : G0T02  6  6 

90  IFINSTR(1,0B$ (O) , "DOO" ) >0THEN 
GOSUB265  :  DRAWBM2  , 190"  :  AA$="DON  » 
T  BE  RIDICULOUS !":G0SUB2 7 3 :G0T02 
66 

91  IFB$="LEA"AND0B(18)=Y0  THENAC 
=7 

92  IFB$="CHA"AND0B(7)=Y0  THENAC= 
10 

93  IFB$="PLA"ANDOB(30)=YO  THENAC 
=13 

94  IFB$="SHR"ORB$="CAB"ORB$="ALT 
" ORB  $= " BEN " ORB  $ = " PI L" ORB  $= " DUS " 0 
RB$="PAN"ORB$="FLA"THENGOSUB2  65: 
DRAW" BM2, 190 ":AA$=" DON'T  BE  RIDI 
CULOUS ! " : G0SUB2  7  3 : G0T02  6  6 

95  OB(0)=-l:CA=CA+l:IF  B$="RIN" 
THEN337  ELSEG0T013 

96  IF  F=2  THEN  CA=CA- 1 : OB ( O ) =Y0 : 
ELSE  GOSUB2  65:DRAW"BM2,19j3":AA$ 

="I  DON'T  HAVE  IT . " : GOSUB27  3 : GOT 
0266 

97  IFB$=" LEA"ANDAC=7THENAC=3ELSF 
IFB$="  CHA"ANDAC=lj3THENAC=3ELSEIF 
B$="PLA"ANDAC=13THENAC=3 

98  G0T013 

99  IF  F=0  THEN  AA$="I  DON'T  SEE 
IT  HERE.  "  :GOSUB265 :  DRAWBM2  ,190" 
:GOSUB273 :GOT0266 

100  GOSUB265:DRAW"BM2, 190" :AA$=" 
WITH  WHAT : " : GOSUB27  3 :!$="": GOSUB 
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239 

101  KE$=LEFT$ (1$ , 3 ) : IFKE$="SIL"A 
NDOB ( 3 ) <>-lTHEN13ELSEIFKE$="GOL" 
ANDOB(32)  0-1THEN13 

102  IFB$="DOO"ANDYO=6ANDKE$="SIL 
"ANDOB  (21)  O0THEND  (6,2)  =15  :  OB  ( 2 1 
) =0 : OB ( 2  2 ) =0 : D ( 15 , 1) =6 : GOT013 

103  IFB$="NOR"ANDYO=15ANDKE$=l,SI 
L"ANDOB  (22)  O0THEND  ( 15  ,  1 )  =6  :  OB  ( 2 

2)  =0:OB(21)=0:D(6,2)=15:  GOTO  1 3 

104  IFB$="SOU"ANDYO=15ANDKE$="SI 
L" ANDOB (23) O0THEND (15,2) =17 : OB ( 
23 ) =0 : D ( 17 , 1 ) =15 : OB ( 29 ) =0 : GOT013 

105  IFB$="WOO"ANDYO=17ANDKE$="SI 
L" ANDOB  ( 29 )  O0THEND  (15,2)  =17  :  OB  ( 
23)=0:D(17, 1)=15:OB(29)=0:GOTO13 

106  IFB$="EAS"ANDYO=18ANDKE$="GO 
L"ANDOB  (31)  O0THENOB  ( 3 1 )  =0  :  D  ( 18  , 

3)  =19:GOT013 

107  IFYO=19ANDB$="PAN"ANDKE$="GO 
L"ANDOB  (35)  O0THENOB  ( 3  5 )  =0  :  D  ( 19  , 
6)=20:GOTO13 

108  AA$="SORRY,  IT  DOES  NOT  OPEN 
.  :GOSUB2  65:DRAW"BM2  , 190"  :  GOSUB2 
73 :GOT0266:GOT013 

109  IF  F=0  THEN  AA$="I  DON'T  SEE 
THAT  HERE." : GOSUB2 65: DRAW" BM2 , 1 

90" :GOSUB273 :GOT0266 

110  IFB$<>"VIAl,ANDB$<>"POT"ANDB$ 
<>"CAP"ANDB$o"JAR"ANDB$o"BOT"A 
NDB$o"DEC"THENPMODE0  ,  4  :  PCLS  :  PMO 
DE4:DRAW"BM2,181":AA$="NOT  ONLY 
IS  THAT  CRAZY  BUT  IT  TASTES" : GOS 
UB27  3  :  DRAWBM2  , 190"  :  AA$=" AWFUL!  ! 
! " : GOSUB2  7  3 : SOUND1 , 20 : PMODE0 , 4 : P 
CLS : PMODE4 : GOT032 

111  HP=HP+8:IF  HP>PH  THEN  HP=PH 

112  GOSUB2  65:DRAW"BM2, 190":AA$=" 
YOU  HAVE"+STR$ (HP) +"  HIT  POINTS 
OUT  OF"+STR$ (PH) :GOSUB273 

113  PLAY "Tl 2005 BAGFEDC04BBAAGGFF 
EEDDCC03BBBBAAAAGGGGFFFFEEEEDDDD 
CCCC02BBBBBBBBAAAAAAAAGGGGGGGGFF 
FFFFFFEEEEEEEEDDDDDDDDCCCCCCCC01 
ABABABABABABABGFGFGFGFGFGFGFEDED 
EDEDEDEDEDEDCCCC" 

114  0B(0)=-2 :CA=CA-1 

115  GOT032 

116  IF  F=0  THEN  AA$="I  DON'T  SEE 
THAT  HERE. ": G0SUB2 65: DRAW" BM2,1 

90" :GOSUB273 :GOT0266 

117  IF  B$="WAN"  AND  OB(26)=-l  TH 
EN  GOSUB2  65:DRAW"BM2 , 191" :AA$="T 
HERE  IS  SOMETHING  WRITTEN  ON  IT. 
" :GOSUB273 :G0T013 

118  IF  B$="PIL"  AND  OB(20)=0  THE 
N  GOSUB265  :  DRAWBM2  , 190"  :  AA$="HI 
DDEN  IN  IT  IS  "+OB$(20)+". ":0B(2 
0)=OB(18) :GOSUB273 :G0T013 


119  IF  B$="DUS"  AND  OB(14)=0THEN 
G0SUB2  6  5 : DRAW" BM2 , 190" : AA$="HIDD 
EN  IN  IT  IS  A  "+0B$(14)+".":0B(1 
4)=OB(16)  -.GOSUB273  :G0T013 

120  IF  B$="PED"  AND  OB(24)=0  THE 
N  GOSUB265  :  DRAWBM2  ,  190"  :  AA$="ON 

IT  IS  A  "+OB$(24)+".":OB(24)=OB 
(25) :GOSUB273 :G0T013 

121  IF  B$="FLA"  AND  OB(12)=0  THE 
N  GOSUB2  65:DRAW"BM2 , 190" :AA$="ON 
E  IS  REALLY  A  "+0B$ ( 12 )+".": OB ( 1 
2)=OB(15) :GOSUB273 :G0T013 

122  IF  B$="CAB"  AND  OB(7)=0  THEN 
G0SUB265  :  DRAWBM2  , 190"  :  AA$="IN 

IT  IS  "+0B$(7)+". ":OB(7)=OB(28) : 
GOSUB273 :G0T013 

123  IF  B$="BEN"  AND  OB(30)=0  THE 
N  G0SUB265  :  DRAWBM2  , 190"  :  AA$="UN 
DER  IT  YOU  FIND  "+0B$ ( 30 )+".": OB 
(30)=OB(6) :GOSUB273 :G0T013 

124  IF  B$="ALT"  AND  OB(35)=0  THE 
N  GOSUB2  65:  DRAWBM2  , 190"  :  AA$="TH 
E  ALTAR  CONTAINS  "+0B$ ( 35 )+".": 0 
B(35)=OB(34) :GOSUB273 :G0T013 

125  IF  B$="SHR"  AND  OB(39)=0  THE 
NGOSUB2  65:DRAW"BM2 , 190" :AA$="ON 
IT  IS  THE   "+0B$ (39) : OB ( 39 ) =0B ( 38 
) :GOSUB273 :G0T013 

12  6  IFB$="DOO"ORB$="NOR"ORB$="SO 
U"ORB$="WOO"ORB$="EAS"ORB$="PAN" 
THENG0SUB2  65 : AA$=" THERE  IS  A  KEY 
HOLE  IN  THE  LOCK. ": DRAW" BM2 , 190" 
:GOSUB273 :GOT02  66 

127  IFB$="VIA"ORB$="POT"ORB$="CA 
P"ORB$="JAR"ORB$="BOT"ORB$="DEC" 
THENAA$="IT  CONTAINS  A  HEALING  P 
OTION.  "  :GOSUB2  65  :  DRAWBM2  , 190"  :  G 
OSUB273 :GOT0266 

128  AA$="NOTHING  SPECIAL  ABOUT  I 
T . " : G0SUB2  6  5 : DRAW" BM2 , 190 " : GOSUB 
273 :GOT0266 

129  IF  F=0THENAA$=" I  DON'T  SEE  I 
T  HERE . " : G0SUB2  6 5 : DRAW" BM2 , 190 " : 
GOSUB2  7  3 

130  IF  LEFT$ (0B$ (0) , 1) <>"m"  THEN 
AA$=" DON'T  BE  RIDICULOUS !": GOSU 

B2  6  5 : DRAW" BM2 , 190 " : G0SUB2  7  3  : GOTO 
266 

131  I$="":GOSUB265:AA$="WITH  WHA 
T : " : DRAW" BM2 , 190 " : G0SUB2  7  3  : GOSUB 
239 

132  AT$=LEFT$ (1$, 3) :MH=VAL(MID$ ( 
0B$(0) ,2,2) ) :MC=MH/2:PMODE0,4:PC 
LS : PM0DE4 , 1 

13  3  IFAT$="HAN"THEN139 

134  IFAT$="DAG"  AND  0B(1)=-1THEN 
144 

135  IFAT$="SWO"  AND  0B(14)=-1THE 
N149 
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13  6  IFAT$="POL"  AND  0B(12)=-1THE 
N152 

137  IFAT$="WAN"  AND  0B(26)=-1THE 
N155 

138  GOTO  158 

139  IFRND(20)<MC  THEN158 

14)3  DA=RND(2)  :AA$="YOU  HIT  WITH" 
+STR$  (DA)  +"  DAMAGE  !  "  :  DRAWBM2  , 16 
9" :GOSUB273 

141  MH=MH-DA:  IFMH<1THENMH=0  :  DRAW 
"BM2,178":AA$="YOU  KILLED  THE  "+ 
RIGHT$  (OB$  (O)  ,  LEN  (OB$  (O)  )  -3 )  +"  !  " 
: GOSUB262  :M=j3 : OB (0) =-2 : GOSUB273 : 
SOUND50 ,  2)3 :  PMODE0 ,  4  :  PCLS :  PM0DE4  : 
GOSUB162:GOT013 

142  IFMH>9THENMID$ (0B$ (0) , 2 , 2 ) =R 
IGHT$ (STR$ (MH) , 2 )  ELSEMID$ (0B$ (0 
) ,2,2)=STR$(MH) 

14  3  SOUND1,20:PMODE0,4:PCLS:PMOD 
E4:GOT032 

144  IF  RND(20)+2<MC  THEN158 
14  5  DA=RND ( 4 ) :AA$="YOU  HIT  WITH" 
+STR$(DA)+"  DAMAGE! ": DRAW" BM2, 16 
9" :GOSUB2  7  3 

146  G0T0141 

147  MID$(OB$(0) ,2/2)=STR$(MH) 

14  8  S0UND1 ,  20 :  PMODEjS  ,  4  :  PCLS  :  PMOD 
E4:GOT032 

149  IFRND(20)+6<MC  THEN158 

15,0  DA=RND(8)  :AA$="YOU  HIT  WITH" 

+STR$(DA)+"  DAMAGE! ": DRAW "BM2, 16 

9":GOSUB273 

151  G0T0141 

152  IFRND(20)+10<MC  THEN158 

153  DA=RND(10)  :AA$="YOU  HIT  WITH 
"+STR$ (DA) +  "  DAMAGE ! " : DRAW"BM2 , 1 
69":GOSUB273 

154  GOTO  141 

155  IFRND(20)+25<MC  THEN158 

156  DA=RND(12) :AA$="YOU  HIT  WITH 
"+STR$ (DA) +"  DAMAGE ! " : DRAW"BM2 , 1 
69" :GOSUB273:PLAY"T25501CDEFGABO 
2EEEEEEEEAAAAAAAAACCCCCCCCCBBBBB 
BBBB" 

157  GOTO  141 

158  DRAW"BM2,190":AA$="I  MISSED! 
" : G0SUB2  7  3 : G0T02  6  6 

159  IF  F=0  THEN  AA$="I  DON'T  SEE 
IT  HERE.  ":  G0SUB2  65:  DRAW"  BM2,190 

" : G0SUB2  7  3 : G0T02  6  6 

160  IFB$="WAN"  THENG0SUB2  6 5 : DRAW 
"BM2, 190" :AA$="IT  SAYS    'WAND  OF 
FIRE' . " :GOSUB273 :GOT0266 

161  AA$="NOTHING  SPECIAL" : G0SUB2 
65 : DRAW" BM2 , 190 " : G0SUB2  7  3  : G0T02  6 
6 

162  IF  0=4  THEN  OB ( 1) =1 : HP=HP+3 : 
PH=PH+3 


163  IF  0=5  THEN  OB (3) =3 :HP=HP+15 
:PH=PH+15 

164  IF  0=9  THEN  HP=HP+12 : PH=PH+1 
2 

165  IF  0=10  THEN  HP=HP+9 : PH=PH+9 

166  IF  0=11  THEN  HP=HP+18 : PH=PH+ 
18 

167  IF  0=19  THEN  HP=HP+6 : PH=PH+6 

168  IF  0=27  THEN  OB (26) =16 : HP=HP 
+21:PH=PH+21 

169  IF  INT(0)=33  THEN  OB(32)=18: 
HP=HP+24 : PH=PH+24 

170  IF  INT (0) =3  6  THEN  HP=HP+27:P 
H=PH+27 

171  IF  INT (0) =40  THEN  HP=HP+39:P 
H=PH+39 

172  RETURN 

173  DATA  NORTH, SOUTH, EAST, WEST, U 
P,DOWN 

174  DATA" IN  A  40X40'  ROOM  WITH  A 
HOLE  INTHE  CEILING  FROM  WHICH  I 
FELL.   THEREARE  BONES  ON  THE  FLO 

OR. " , "R20UL2U3R4D3L2U19L16U2L3D4 
R3U2L4D20", 2, 0,10, 0,0,0 

175  DATA" IN  A  20X40'  R00M.","RU2 
R3D4L3U2R9U20L6U2L3D4R3U2L4D20", 
14 , 1 ,0 ,0 ,0 ,0 

17  6  DATA" IN  A  20X40'   ROOM. THERE 
ARE  MANYROTTING  BODIES  ON  THE  FL 
OOR. " , "R10U20L6U2L3D4R3U2L4D16L2 
D3R4U3L2D4",4,0,0,8,0,0 

177  DATA" IN  A  20X40'  R00M.","RU2 
R3  D4 L3U2 R9U2 0 L6U2 L3 D4R3U2 L4 D20 "  , 
5,3,0,0,0,0 

178  DATA" IN  A  30X20'  R00M.","R11 
U2R3D4L4U2R4U10L15DR2D3L4U3R2D9" 
,0,4,0,6,0,0 

179  DATA" IN  A  30X30'  ROOM  WITH  M 
ANY  CLAWMARKS  AND  FUR  BALLS  ON  T 
HE  FLOOR. " , "R11U2R3D4L3U2R4U6R2U 
3L4D3R2U9L15DL2D3R4U3L2D14",0,0, 
5,11,0,0 

180  DATA" IN  A  30X20'  ROOM  THAT  H 
AS  A  SMELL  OF  INCENSE .", "R15U 
6R2U3L4D3R2U4L15DL2D3R4U3L2D9",0 
,0,8,10,0,0 

181  DATA" IN  A  L  SHAPED  ROOM.  THE 
RE  ARE  MANY  TAPESTRIES  AND  ORNA 
TE  FLAG  POLES  IN  THIS  ROOM." 
, "BR4R10U16R2U3L4D3R2U4L5D5LU2L3 
D4R3U2L4D11L2D3R4U3L2D4" ,9,0,3,7 

182  DATA" IN  A  30X10'  R00M.","R11 
U2R3D4L3U2R4U5L15DR2D3L4U3R2D4", 
0,8,0,16,0,0 

183  DATA "A  20X20'  ROOM. " , "R10UL2 
U3R4D3L2U9LU2L3D4R3U2L9D6L2D3R4U 
3L2D4", 16,0,7, 1,0,0 
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184  DATA" IN  A  30X20'   ROOM.  THERE 
IS  MUCHDUST  ON  THE  FLOOR  THAT  H 

AS  GATHERED  IN  UNUSUAL  PILES."," 
RU2R3D4L3U2R14UL2U3R4D3L2U9L15D1 
0", 0,12, 6, 0,0,0 

185  DATA" IN  A  20X20'  ROOM.","R10 
U10LD2L3U4R3D2L9DL2D3R4U3L2D9" , 1 
1 ,  0  ,  0  ,  13  ,  j3  ,  0 

186  DATA" IN  A  20X30'  ROOM.  IT  SM 
ELLS  OF  ROTTING  LEATHER. ", "RU2R3 
D4L3U2R9U11R2U3L4D3R2U4L10D15",0 
,  14 , 12 , ,  0  ,  0 

187  DATA" IN  A  30X20'   ROOM. THERE 
IS  SLIMEON  THE  FLOOR,   WALLS  AND 
CEILING. " , "RU2R3D4L3U2R14UL2U3R4 
D3L2U9L11U2L3D4R3U2L4D10" , 13 , 2 , 1 
7  ,  0  ,  0 ,  0 

188  DATA" IN  A  50X20'  R00M.","RU2 
R3D4L3U2R24U10LU2L3D4R3U2L24D10" 
,0,0,0,0,0,0 

189  DATA" IN  A  20X30'   ROOM  WITH  M 
ANY  GNAWED  AND  BROKEN  BONES 
ON  THE  FLOOR" , "RU2R3D4L3U2R9U6L2 
U3R4D3L2U9L6U2L3D4R3U2L4D15" , 18 , 
10 ,9,0,0,0 

190  DATA" IN  A  20X30'   ROOM. THERE 
ARE  BAN-NERS  ON  THE  WALL.","R10U 
L2U3R4D3L2U14LU2L3D4R3U2L9DL2D3R 
4U3L2D14",0,0,18/14,0,0 

191  DATA" IN  A  20X20'   ROOM  WITH  B 
LOOD         STAINS  ON  THE  WALLS  AND 
FLOOR. " , "RU2R3D4L3U2R9U6R2U3L4D3 
R2U4L10DL2D3R4U3L2D9",0, 16,0, 17, 
0,0 

192  DATA" IN  A  30X40'  R00M.","R15 
U20L15D11L2D3R4U3L2D9", 0,0, 0,18, 

0,0 

193  DATA" IN  A  HUGE  CAVE  WITH  NO 
VISIBLE  WALLS.   I  AM  ON  A  PLATFOR 
M, BELOW  AN     ALTAR. 0 , 0 , 0 , 0 , 0 
,0 

194  DATA  END 

195  DATA" DAGGER" , "DAG" , "HNR2UNR2 
UNL2NR4U5EFD5",0 

196  DATA "VIAL" , "VIA" , "RE2H2U3NRL 
NLD3G2F2R",2 

197  DATA " * S I LVER  KEY" , "SIL" , "U3R 
3ND4R3E2F2G2H2",0 

198  DATA"m06HOBGOBLIN" , "HOB" , "BR 
2  6R5F3D6E3D6G3D3G4L3H4U3H3U6F3U6 
E3BD7RBR3RBD3BL3D2BD3LG2R7H2L2"  , 
1 

199  DATA"m30WIGHT" , "WIG" , "BD30BR 
20R14U16H6E4H6G6F4NR4G6D16R2" , 3 

200  DATA" BENCHES" , "BEN" , "RU3R5NR 
D3RU3RUL9DRNRD3 " , 4 

201  DATA" CHAIN  MAIL" , "CHA" , "U3NR 
13U2NR13U2NR13E2NR9E2R5F4D7L3UNU 


4L7NU4DL2 ",0 

202  DATA" POTION" , "POT" , "RE2H2U3N 
RLNLD3G2F2R" , 5 

203  DATA"m2 4 BEAR" , "BEA" , "BR20BD2 
0S12R3E2U3EHGL5HGFD3F2BU4RBRRBD2 
L3S4",6 

204  DATA"ml8EVIL  CLERIC" , "CLE" , " 
BD30BR20R14U16H6E4H6G6F4NR4G6D16 
R2BR6BU6U6NR3NL3U3",7 

205  DATA"m3  6MUMMY", "MUM", "BD20BR 
10R6E2NL10E2NL14E2NL18E2NL2  2E2NL 
26H2NL22H2NL18H2NL14H2NL10H2L6G1 
0F10BU13BLR2BR4R2 ",8 

206  DATA" POLE  ARM" , "POL" , "BD10U2 
0RD2ND18E3D8H3",0 

207  DATA" CAPSULE" , "CAP" , "RE2H2U3 
NRLNLD3G2F2R" , 9 

208  DATA" SWORD" , "SWO" , "BD10HNR2U 
NR2UNR2UNL2NR4U15EFD15" ,0 

209  DATA" FLAG  POLES" , "FLA" , "BD10 
U20RD20",8 

210  DATA" DUST  PILE" , "DUS" , "R10BL 
UL6NL2UR3NRULNL" , 11 

211  DATA "SMALL  JAR" , " JAR" , "RE2H2 
U3NRLNLD3G2F2R" , 12 

212  DATA "PILE  OF  LEATHER" , "PIL" , 
"R13H2LH2L2G2LG2",13 

213  DATA"ml2 SLIME" , "SLI" , "BD10BR 
11NU2BR2NU3BR2NU5BR2NU4BR2NU3" , 1 
4 

214  DATA" LEATHER  MAIL" , "LEA" , "U7 
E4R5F4D7L3UNU4L7NU4DL2 ",0 

215  DATA" LOCKED  DOOR" , "DOO" , "U10 
R7D10L7BU6BR5R" , 6 

216  DATA "NORTH  LOCKED  DOOR" , "NOR 
" , "U10R7D10L7BU6BR5R" , 15 

217  DATA" SOUTH  LOCKED  DOOR", "SOU 
" , "U10R7D10L7BU6BR5R" , 15 

218  DATA"* BRASS  RING*" , "BRA" , "H2 
E2UNUNLNRDF2G2 " , 0 

219  DATA" PEDASTAL" , "PED" , "R10U2H 
2U4NL5E2NL10U2L10D2F2D4G2D2" , 15 

220  DATA" *WAND* " , "WAN" , "U8HERFGD 
8",0 

221  DATA"m4  2WEREW0LF" , "WER" , "BR2 
0BD20H8U10F3R10E3D10G8BU3BL3E3F3 
BU7LBL6L",16 

222  DATA" CABINET" , "CAB" , "BD10U5N 
R10U5NR10U5R10D15" , 17 

22  3  DATA "NORTH  LOCKED  WOODEN  DOO 
R"  , "WOO" , "U10R7D10L7BU6BR5R" , 17 

224  DATA"* PLATE  MAIL*" , PLA" , "BD1 
0R12U10H2U4L2DL4UL2D4G2D10R6U4NL 
NRU4NLNRU4NLNRU3 " , 0 

225  DATA" EAST  LOCKED  DOOR","EAS" 
, "U10R7D10L7BU6BR5R" , 18 

226  DATA" *GOLD  KEY*" , "GOL" , "U3R3 
ND4R3E2F2G2H2",0 
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227  DATA" m4 8 VAMPIRE" , "VAM" , "BR2  6 
R5F3D6E3D6G3D3G4L4H4U3H3U6F3U6E3 
BD7  FBR3EBD3BL3D3BD2 BL3  FENLR3  FENL 
",18 

228  DATA  "ALTAR"  ,  "ALT"  ,  "NU3R20U3L 
5NL15U5L10D5R5U3NL2NR2U2" ,  19 

229  DATA" SECRET  PANEL" , "PAN" , "BR 
10R10U7L10D7R5BU2UNRNUNL" ,  0 

230  DATA"m54COLOSSUS" , "COL" , "BD2 
5BR15R5NU7R5U3L2U10D5RRND2RND3RN 
D2NRU10L5E3H5G5F3L5D10NLNDRND2RN 
D3RRNU5D5L2D3",19 

231  DATA" BOTTLE " , "BOT" , "BR15RE2H 
2U3NRLNLD3G2F2R" , 19 

232  DATA" SHRINE" , "SHR" , "NU3R20U3 
L5NL15U5L10D5R5U3NL2NR2U2  " ,  2)3 

233  DATA"******RING  OF  FREEDOM!" 
, "RIN" , "BR15H2E2UNUNLNRDF2G2 " ,0 

234  DATA"m7 8 DRAGON"  ,  "DRA"  ,  "BD30B 
R10S8U12R2F2R4E2R2D12H2U2G4H4D2G 
2BR2BU4E2U4RU4L2HER4D6RD4F2S4",2 

235  DATA" DECANTER" , "DEC" , "RE2H2U 
2NRLNLD3G2  F2R" , -1 

236  DATA  END 

237  DATA  GET , DROP, OPEN, DRINK, EXA 
MINE, KILL, READ 

238  DATA  END 

239  A$=INKEY$:IFA$=""THEN239 

240  IFA$=CHR$ ( 13 ) THENRETURN 

241  IFA$=CHR$(8)THENGOSUB2  65:DRA 
W"BM2 , 190" : I$=" " :GOT0239 

242  AA$=A$:GOSUB273:I$=I$+A$:GOT 
0239 

243  POKE65494,0:GOSUB258:OPEN"O" 
,#-l,"DATA" 

244  PRINT#-1,Y0,HP,PH,AC 


245  F0RX=1T0N0 

246  PRINT#-1,0B(X) 

247  PRINT#-1,0B$(X) 

248  NEXTX 


249  F0RX=1T0RN: F0RY=1T06: PRINT # - 
1,D(X,Y) : NEXT: NEXT 

250  CLOSE : POKE65495 ,0 : CLS : G0T013 

251  POKE65494 ,0 :  GOSUB258  :  OPEN"I" 
,#-l,"DATA" 

252  INPUT#-1, YO,HP,PH,AC 

253  F0RX=1T0N0 

254  INPUT#-1,0B(X) :INPUT#-1,0B$ ( 
X) : NEXTX 

255  F0RX=1T0RN:F0RY=1T06: INPUT #- 
1,D(X, Y) : NEXT: NEXT 

256  IFE0F(-1)THENCL0SE 

257  POKE65495,0:CLS:GOTO13 

258  CLS 

259  PRINT: PRINT" PRESS  ANY  KEY  WH 
EN  TAPE  IS  READY" 

260  IFINKEY$=" "THEN2  60ELSERETURN 

261  'ELIM  OBJ 

262  MID$(OB$,0*3-2,3)="  " 

263  RETURN 

264  SCREENl,l:PCLS0:LINE(0,47)-( 
255,47) ,PSET: LINE (0,95) -(255,95) 
, PSET: LINE (0, 143) -(255, 143) , PSET 
: RETURN 

265  LINE(0, 180)-(255, 191) , PRESET 
, BF : RETURN 

266  S0UND1, 20:GOTO32 

267  GOSUB265: DRAW"BM2 , 181" : AA$=" 
THE  "+RIGHT$ (0B$ (M) , LEN (0B$ (M) ) - 
3)+"  IS  ATTACKING! 11 : G0SUB2 7 3 

268  IF  RND(20)>AC  THEN  AA$="HE  H 
IT  YOU ! " : DRAW" BM2 , 190 " : G0SUB2  7  3 
ELSE  AA$="HE  MISSED  YOU!": DRAW" B 
M2  , 190 " : G0SUB2 7  3 : S0UND1 , 20 : RETUR 
N 

269  DA=INT(RND(VAL(MID$(OB$(M) ,2 
,2) )/2) ) : SOUND  1,20 

270  LINE(0, 171)-(255, 191) , PRESET 
,BF:DRAW"BM2,181":AA$="HE  HIT  YO 
U  WITH"+STR$ (DA)+"  DAMAGE !": GOSU 
B273 

271  DRAW"BM2,190":HP=HP-DA:IF  HP 
<1THENAA$="THAT  LEAVES  YOU  WITH 
0  HIT  POINTS" :GOSUB  273ELSEAA$=" 
THAT  LEAVES  YOU  WITH"+STR$ (HP) +" 

HIT  POINTS .": GOSUB  273 

272  IF  HP<1  THEN341  ELSE  SOUND  1 
,20: RETURN 

273  'CHAR-GEN 

274  FOR  XX=1  TO  LEN (AA$) 

275  IF  MID$(AA$,XX,1)="  "  THEN  D 
RAW  CC$ (1) :GOTO  289 

276  IF  ASC(MID$(AA$,XX,1) ) >64  TH 
EN  DRAW  CC$(ASC(MID$(AA$,XX,1) )- 
63) :GOT0289 

277  IF  ASC(MID$ (AA$,XX, 1) ) >48  AN 
D  ASC(MID$ (AA$,XX, 1) )<58  THEN  DR 
AWCC$(ASC(MID$(AA$,XX,1) )-21) :G0 
TO  289 
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278  IF  MID$(AA$,XX, 1)="/"THEN  DR 
AWCC$(37) :G0T0289 

279  IF  MID$(AA$,XX,1)="?"  THEN  D 
RAWCC$ (38) :GOTO  289 

280  IF  MID$(AA$/XX/1)="!"  THEN  D 
RAWCC$(39) :GOTO  289 

281  IF  MID$(AA$,XX,1)="."  THEN  D 
RAW  CC$ (40) :GOT0289 

282  IF  MID$(AA$,XX,1)=":"  THEN  D 
RAW  CC$ (41) :GOT0289 

283  IF  MID$(AA$,XX,1)=";"  THEN  D 
RAWCC$ (42) :GOT0289  ELSE  IF  MID$ ( 
AA$,XX,1)="0"  THEN  DRAWCC$ (16) : G 
OT0289 

284  IF  MID$(AA$,XX,1)=","  THEN  D 
RAWCC$(43) :GOT0289 

285  IF  MID$(AA$,XX, 1)=" ' "  THEN  D 
RAWCC$(44) :GOT0289 

286  IF  MID$(AA$,XX,1)="-"  THEN  D 
RAWCC$(45) :GOT0289 

287  IF  MID$(AA$,XX,1)="+"  THEN  D 
RAWCC$(46) :GOT0289 

288  IF  MID$(AA$,XX,1)="="  THEN  D 
RAWCC$(47) :GOT0289 

289  NEXT: RETURN 

290  DATA" BM+7, 0" 

291  DATA "U 4 ; E2 ; F2 ; D2 ; NL4 ; D2 ; BM+3 
,0" 

292  DATA"U6;R3 ; Fl ; Dl ; Gl ;NL3 ;F1;D 
1;G1;L3 ;BM+7,0" 

2  93  DATA" BM+ 1 , -0 ; HI ; U4 ; El ; R2 ; Fl ; 

BM+0, +4 ;G1;L2 ;BM+6,0" 

294  DATA"U6;R3 ;F1;D4 ;G1;L3 ;BM+7, 

0" 

2  95  DATA"NR4 ; U3 ; NR2 ;U3 ; R4 ; BM+3 , + 
6" 

296  DATA " U 3 ; NR2 ; U 3 ; R4 ; BM+  3  ,  +  6  " 

297  DATA" BM+ 1 , -0 ; HI ; U4 ; E 1 ; R2 ; Fl ; 
BM+0, +2 ;NL1;D2 ;G1;L2 ;BM+6,0" 

298  DATA"U3 ; NU3 ; R4 ; NU3 ; D3 ; BM+3 , 0 
•• 

299  DATA" BM+ 1 , 0 ; Rl ; NR1 ; U6 ; NL1 ; Rl 
; BM+4, +6" 

300  DATA"BM+0 , -1 ; Fl ;R1 ; El ;U5 ;NL1 
;Rl;BM+3, 6" 

301  DATA"U3 ; NU3 ; Rl ; NE3 ; F3 ; BM+3 , 0 
•i 

302  DATA"NU6;R4;Ul;BM+3,+l" 

303  DATA" U 6 ; F2 ;ND1 ; E2 ; D6 ; BM+3 ,0" 

304  DATA"U6;F1;D1;F2 ; Dl ; Fl ;NU6 ; B 
M+3,0" 

305  DATA"BM+1/0;H1;U4 ;E1;R2 ;F1;D 
4;Gl;L2;BM+6,0 

306  DATA"U6;R3 ;F1;D1;G1;L3 ;BM+7, 
3" 

307  DATA" BM+ 1 , 0 ; HI ; U4 ; E 1 ; R2 ; Fl ; D 
3 ; Gl ; NH1 ; NF1 ; Gl ; LI ; BM+6 , 0 

308  DATA"U6;R3 ;F1;D1;G1;L2 ;NL1;F 
3;BM+3,0" 


309  DATA"BM+0 , -1 ;F1 ;R2 ;E1 ;U1 ;H1 ; 
L2 ; HI ; Ul ; E 1 ; R2 ; Fl ; BM+  3 , +5 

310  DATA"BM+2 , +0 ;U6 ;NL2 ;R2 ; BM+3 , 
+6 

311  DATA"BM+0,-l;NU5;Fl;R2 ;E1;U5 
; BM+3, 6 

312  DATA"BM+0,-6;D2 ; Fl ; Dl ; Fl ;ND1 
;E1 ;U1 ; El ;U2 ; BM+3 ,  +6" 

313  DATA"NU6;E2 ;NU1;F2 ;U6;BM+3, 6 
ii 

3 14  DATA"U1 ; E4 ;U1 ; BM-4 , 0 ; Dl ; F4 ; D 
l;BM+3,0" 

315  DATA" BM+0, -6 ;D2 ;F2 ;ND2 ;E2 ;U2 
;BM+3 , 6" 

316  DATA"NR4 ;U1 ;E4 ;U1 ; L4 ; BM+7 , 6" 

317  DATA" BM+ 1 , 0 ; Rl ; NR1 ; U6 ; Gl ; BM+ 
6, +5" 

318  DATA"NR4 ; Ul ; El ; Rl ; E2 ; Ul ; HI ; L 
2;Gl;BM+7,+5" 

319  DATA" BM+0 ,  - 1 ;  Fl ; R2  ;  E 1 ;  H2  ;  E2  ; 
H1;L3 ; BM+7, 6" 

320  DATA" BM+  3 , 0 ; U2 ; NR1 ; L3 ; U 1 ; E  3 ; 
D3;BM+4,3" 

321  DATA"BM+0 , -1 ; Fl ;R2 ; El ;U2 ; HI ; 
L3;U2;R4;BM+3,+6" 

322  DATA" BM+4 , -5 ; HI ; L2 ; Gl ; D4 ; Fl ; 
R2 ; El ;U1 ;H1 ; L3 ; BM+7 , +3 " 

323  DATA "Ul ;E4 ;U1 ;L4 ; BM+  7 , +  6 " 

324  DATA" BM+1 , -0 ; HI ; Ul ; El ; HI ;U1 ; 
El ; R2 ; Fl ; Dl ; Gl ; NL2 ; Fl ; Dl ; Gl ; L2 ; B 
M+6,0" 

325  DATA" BM+0 , -1 ; Fl ; R2 ; El ; U4 ; HI ; 
L2 ; Gl ; Dl ; Fl ; R2 ; BM+4 , +3 " 

326  DATA"Ul;E4;Ul;BM+3,6" 

327  DATA" BM+0 , -5 ; El ; R2 ; Fl ; Dl ; G2 ; 
BM+0 , +1 ; Dl ; BM+5 , +0" 

3  28  DATA"BM+2 , +1 ;U1 ; BM+0 , -2 ;U5 ; B 
M+5,7" 

329  DATA"BM+2,0;Ul;BM+5,+l" 

330  DATA"BM+2 , -1 ;U1 ; BM+0 , -2 ;U1 ; B 
M+5,+5" 

331  DATA" BM+ 1 , 0 ; E 1 ; BM+0 , -1 ; Ul ; BM 
+5, +4" 

332  DATA" BM+2 , 0 ; NU1 ; Gl ; BM+  6,-1" 

333  DATA"BM+l,-5;E2;BM+4,+7" 

334  DATA" BM+0, -3 ;R4; BM+3, +3" 

335  DATA" BM+2 , - 1 ; U2 ; NU2 ; NL2 ; R2 ; B 
M+3,+3" 

336  DATA" BM+1 , -2 ; R3 ; BM-3 , -2 ; R3 ; B 
M+4 , +4 " 

337  FORT=1TO100:P=RND(4) :S=RND(2 
) -l:N=RND(12) :0=RND(5) :PLAY"T255 
; 0=0 ; N=N ; " : PMODEP , 1 : SCREEN1 , S : NE 
XT:PM0DE4:SCREEN1, l:A$="T25503BB 
BBBBBBAAAAAAAAADDDDDDDDCCCCCCCCC 
CCEEEEEEEEEEEFFFFFFFFFFGGGGGGGGG 
G" : PLAY" ; XA$ ; XA$ ; XA$ ; " 

338  PMODE0 , 4 : PCLS : PM0DE4 , 1 : PMODE 
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3  :  DRAW" BM3 0,186C2S12":  AA$= " YOU  W 
IN! I":G0SUB273:F0RA=1T099:N=RND( 
12 ) : S=l-S : SCREEN1 , S : PLAY "T2 5 5 ; N= 
N ; " : NEXT 

339  PMODE4:SCREENl, 1 : PCLS : FORA=3 
0TO35:DRAW"BM=A; , 107S12C1" : AA$=" 
YOU  WON ! ! " : GOSUB2  7  3 : NEXT : FORA=5T 
010 : LINE (A, A) - (255-A, 191-A) , PSET 
, B: NEXT: DRAW" BM30, 160S4" :AA$="YO 
U  HAD"+STR$(SC+6)+"  POINTS  OUT  O 
F  15":GOSUB274 

340  GOTO340 

341  PMODE3:COLOR3:FORA=1TO140:LI 
NE(RND(100)+78,RND(50)+71)  -(RND( 
100)+78,RND(50)+71)  ,PSET:NEXT 

342  B=0:FORA=1TO100:COLOR1:LINE( 
A, B) -(255-A, B) , PSET : LINE (A, 191-B 
) -(255-A, 191-B) , PSET: LINE (A, B) -( 
A,  191-B) , PSET: LINE (255-A, B) -(255 
-A, 191-B) , PSET :B=B+1: NEXT 

343  PMODE4:CIRCLE(128, 60) ,50,1,1 
,.5,1: DRAW"BM78 , 60D100R100U100" : 
FORT=100TO105 : DRAW"BM=T; , 80S12C1 
":AA$="RIP" : GOSUB273 : NEXT: DRAW" B 
M81,120S4":AA$="YOUR  NAME  HERE": 
GOSUB273 : LINE (80 , 130) - (177 , 130) , 
PSET 

344  F0RA=1T03 :F0R0=5T01STEP-1:F0 
RN=12T01STEP-1 : PLAY"T255 ;0=0 ;N=N 
; " : NEXT : NEXT : NEXT 


345  GOT0345 

346  SCREENl,l:PMODE3:PCLS3:PMODE 
4 

347  IFINKEY$=""THEN347 

348  RETURN 

349  PCLS:FORA=40TO45:DRAW"BM=A; , 
20S12" : AA$="RINGQUEST" :GOSUB273 : 
NEXT : F0RA=2  TO  3 : DRAW"BM=A; , 40S4 
":AA$="A  GRAPHICS  ADVENTURE  FOR 
32K  EXTEND-" :GOSUB273: NEXT 

350  FORA=2T03 : DRAW"BM=A; , 60" : AA$ 
="ED  TRS-80  COLOUR  COMPUTER  TAPE 

ONLY . " : G0SUB2  7  3 : NEXT : F0RA=3  2T03 
3 :DRAW"BM=A; , 100" : AA$="WRITTEN  B 
Y  L.   CURTIS  BOYLE" :GOSUB273: NEXT 

351  FORA=4T05 : DRAW"BM=A; ,110" : AA 
$="DUNGEON  DESIGN  ASSISTED  BY  R. 

ALLAN" : GOSUB273 : NEXT : FORA=105TO 
106: DRAW" BM=A; , 120" : AA$="SMITH" : 
GOSUB273:NEXT 

352  FORA=20TO24: CIRCLE (128, 155) , 
A : NEXT : FORA=2T07 : PM0DE3 : CIRCLE ( 1 
28,130) ,A,2:NEXT:PMODE4:FORA=35T 
036: DRAW" BM=A; , 190" : AA$="PRESS  A 
NY  KEY  TO  CONTINUE" : GOSUB273 : NEX 
T 

3  53  SCREEN1 : F0RA=1T03 : F0R0=1T05 : 
FORN= 1T0 1 2 : PLAY " T2  5  5 ; 0=0 ; N=N ; " : N 
EXT: NEXT: NEXT 

3  54  IFINKEY$=" "THEN3  54ELSERETURN 


  Program  by  Bruce  K.  Bell,  O.D. 

r-p   

he  year  is  1898.  Almost  half  a  century  has 
M  passed  since  your  grandfather  left  for  California 
 '  to  join  the  "Great  Gold  Rush." 

Although  you  never  met  him,  those  who 
knew  him  say  that  "Pappy"  had  maintained 
regular  contact  with  the  home  folks.  Reports 
were  "real  promisin'  "  until  one  day  the  letters 
just  stopped.  Pappy  wasn't  heard  from  again. 

However,  something  caught  your  eye  while 
reading  through  some  of  the  old  letters  Pappy 
had  written  to  your  grandmother,  Sara.  It 
seems  that  all  the  letters  ended  with  the 
postscript,  "Sara,  your  mine." 

Your  kinfolk  have  generally  accepted  that 
this  was  just  a  word  of  endearment  to  Sara. 
Since  Pappy  wasn't  an  educated  person,  the 
misspelling  of  "you're"  didn't  seem  odd.  Until 
now. 

After  a  bit  of  investigating,  you  find  yourself 
in  a  California  desert  near  what  the  local 
persons  call  "Sara  Mine." 

The  object  of  this  Adventure  is  find  out  what 
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happened  to  your  grandfather  and  to  uncover  the  gold.  As  with  most 
Adventures,  two-word  commands  are  accepted.  There's  quite  an  extensive 
vocabulary,  so  feel  free  to  experiment. 

Since  the  mine  has  been  deserted  for  years,  it  harbors  many  dangers.  It 
would  be  wise  to  SAVE  your  game  to  tape  or  disk  from  time  to  time.  There 
is  no  help  command  but  you  will  benefit  from  a  clue  at  various  locations. 
If  you  want  to  stop,  just  type  QUIT. 

To  move  from  place  to  place,  type  the  first  letter  of  the  direction  in  which 
you  wish  to  go.  INVEntory  will  let  you  know  what  you  are  carrying  and 
SCORE  reveals  the  number  of  moves  you  have  made.  The  up-arrow  key 
may  be  used  to  restore  the  screen  if  the  CLEAR  or  BREAK  key  is  hit  accidentally. 
(If  you  hit  the  BREAK  key,  enter  CONT  and  press  the  up-arrow  key.) 

Before  running  the  program,  you  should  enter  a  PCLERR1  to  reserve  memory. 
If  you  should  forget,  just  reenter  RUN  and  the  program  will  operate.  If  you 
have  16K  with  disk,  you  should  enter  PDKE25 , 14 :  NEW  before  loading  the  game. 

For  those  who  are  interested  in  programming  techniques,  the  verbs  and 
nouns  are  contained  in  single  strings  and  then  extracted  using  the  INSTR 
command. 

Another  technique  involves  the  Boolean  operative  RND  to  determine  the 
available  directions  in  each  room.  When  any  number  is  RNDed  with  the  numbers 
eight,  four,  two  or  one  it  will  result  in  the  operand  (eight,  four,  two  or  one, 
respectively)  or  zero.  That's  because  only  one  bit  is  set  in  each  of  these  numbers 
(or  only  one  place  of  the  binary  digit  contains  a  one). 

Using  the  decimal-binary  table  on  Page  184  of  Radio  Shack's  Going  Ahead 
With  Extended  BASIC  manual,  we  can  assign  each  direction  a  number  (e.g., 
N=8,  S=4,  E=2,  W=  1)  and  then  give  each  room  a  number  reflecting  the  available 
exits.  If  three  exits,  'N,'  'E'  and  'W  are  present,  then  that  room's  direction 
number  would  be  11  since  1011  (base  2)  equals  11.  Notice  the  third  bit  from 
the  right  is  not  set;  this  bit  represents  South. 

There's  gold  in  them  hills! 


(Dr.  Bruce  K.  Bell  is  a  practicing  optometrist  in  Rockmart,  Ga.,  who 
says  the  Color  Computer  is  his  time-consuming  hobby.) 


GOLDMINE      16K  ECB 


$  ' PAPPY 1 S  GOLD  1.1,  COPYRIGHT  ( 
C)  1984  BRUCE  BELL,  EXTENDED  COL 
OR  BASIC  16K 

2  PCLEAR1:DIMR$(8) ,R(49) ,D(49) ,0 
$(31)  ,0(31)  ,P(20)  .-GOTO101 

3  IFP(19)=,0THENP(20)=P(2j3)+R:IFP 
(2J3)=1ANDR=1THENP(19)=1:P(20)=,0E 
LSER=,0 

4  IFP(12)=lTHENPRINT"you  are  dea 
d!  "  :FORK=lTO3p0j3:NEXT:GOSUB100:E 
NDELSEIFR<lTHENFR=p : R=0ELSEIFR=3 
0THENP(5)=1 

5  PRINT@104 ,  "  "  :  PRINT :  PRINT :  IFR>1 
THENIFRO8ANDRO9THENIF0  ( 1)  <>50A 
ND0(1)<>R  0RP(j3)  <>1THENPRINT@4  3, 
" TOTAL  DARKNES S " : PRINT @ 7  6 ,"???" : 
G0T09 

6  PRINT@43,R$(R(R) ) : F0RK=1T03 1 : I 
FO(K)=R  THENT=T+1:PRINT@95+T*11, 
0$(K) 

7  NEXT:T=j3:D=8:PRINT@7  5,  "":FORK= 
1T04 : IF (D (R) ANDD) =D  THENPRINT@73 
+3*K,MID$(D$,K,1) 

8  D=D/2:NEXT 

9  PRINT@448,STRING$(32,128) ; : PRI 
NT@448,  "" ; :  P  ( 16)  =P  ( 16) +1 :  IFP (16) 
>40THENPRINT@288, "THIRST  HAS  OVE 
RCOME  YOU. " , : P ( 12 ) =1 : G0T03 

10  IFP (16) >10THENPRINT"you  are  " 
; : IFP (16) >30THENPRINT"dying  of  t 
hirst" ;ELSEIFP(16) >20THENPRINT"v 
ery  thirsty" ;ELSEPRINT" thirsty" ; 

11  PRINT@224 , " " : PRINT@2  2  4 , "YES , 
KEMOSABE" ; : INPUTA$ : IFA$=" "THEN11 
ELSEFORK=288T0416STEP32 :PRINT@K, 
" " : NEXT : P ( 17 ) =P ( 17 ) +1 : IFR<>2 1AND 
R039THENP  ( 18 )  =,J3ELSEP  ( 18  )  =P  (18)  + 
1 : IFP ( 18 ) >2THENPRINT@288 , "YOU  WE 
RE  ATTACKED" : P( 12) =1:G0T03 

12  IFA$="A"GOTO109ELSEIFA$="N"TH 
ENIF ( 8 ANDD (R) ) =8THENR=R-7 : G0T03E 
LSE17 

13  IFA$="S"THENIF (4ANDD (R) ) =4THE 
NR=R+  7:GOT03ELSE17 

14  IFA$="E"THENIF (2ANDD (R) ) =2THE 
NR=R+1 : GOT03ELSE17 

15  IFA$="W"THENIF ( 1ANDD (R) ) =1THE 
NR=R-1 : GOT03ELSE17 

16  G0T018 

17  PRINT@288, "YOU  CAN'T  GO  THAT 
WAY! ": GOTO 3 

18  AV$=LEFT$(A$+"  ",4):AN$=MI 
D$(A$+"  ",INSTR(1,A$,"  ")+l,4 
) :V=INT( (3+INSTR(l,V$,AV$) )/4) :N 
=INT( (3+INSTR(l,N$,AN$) )/4) : PRIN 
T@288,  " "  ; 


19  ONV  GOTO20,  2/3,  34,  34,  36,  39,41, 
43,48,51,53,60,41,63,65,67,71,73 
,75,62,77,79,82,83,85,93,95,97,9 
9: PRINT" I'M  SORRY.  I  DON'T  UNDER 
STAND" :G0T03 

2J3  IFAN$="LOOK"THENIFR=0ANDP(20) 
=/0THENPRINT"THE  MINE  ENTRANCE  IS 
TO  THE  EAST":GOT03ELSE3 

21  IFN=0THENPRINT"THAT'S  NOT  HER 
E"  :  G0T03ELSEIFNO2 1ANDN>15THEN27 
ELSEIFO  (N)  <50ANDO  (N)  0-2THENPRIN 
T"YOU  DON'T  HAVE  IT" : G0T03ELSEIF 
N=2 ANDP ( 1 ) =10RN=3 ANDP ( 3 ) =1THENPR 
INT"IT ' S  BROKEN " E LS E I FN= 8 THENPRI 
NT "STRUNG  IN  MANY  COLORS "ELS EI FN 
=7THENPRINT"IT'S  LOADED!" 

22  1 FN=  6  THENI FP (11) =0 THENPRINT " 0 
NLY  ONE  BULLET  IN  THE  CHAMBER"EL 
SEPRINT"IT'S  EMPTY" 

23  IFN=10THENPRINT"IT  WAS  MADE  B 
Y  AN  INDIAN" ELSEIFN=1THENIFAN$=" 
OBJE "THENPRINT" IT  LOOKS  LIKE  A  L 
ANTERN" :0$ (1) ="LANTERN" :MID$ (N$, 
1,4)  ="LANT"ELSEIFP  ( j3 )  =PTHENPRINT 
"IT'S  NOT  LIT"ELSEPRINT"IT'S  BUR 
NING  BRIGHTLY" 

24  IFN=9THENPRINT"IT  APPEARS  QUI 
TE  STURDY " E LS E I FN= 1 1THENPRI NT " VE 
RY  SHARP! "ELSEIFN=12THENPRINT"TH 
ERE'S  A  FEW  SPECKS  OF  GOLD  ON  IT 
S  SURFACE" 

25  I FN= 13 THENPRINT "THERE  IS  A  PI 
ECE  OF  PAPER  IN  IT":0(15)=R  ELSE 
IFN=15THENPRINT"IT'S  A  MAP!":0(1 
4 ) =50 : 0 ( 15 ) =-2ELSEIFN=14THENPRIN 
T" THERE  IS  WRITING  ON  THE  MAP!": 
0(21) =-2ELSEIFN=2 1 THENPRINT" IT  S 
AYS ,":P(9)=l:O(14)=-l:P(10)=P(10 
) -1:GOTO110 

2  6  GOT032 

27  IFN=16ANDR=30THENPRINT"A  STUR 
DY  BRANCH  ARCHES  ACROSS  THE  PI 
T  OPENING  ABOVE", "ABOUT  1  FT  OF 
WATER  BEL0W"ELSEIFN=31ANDR<1THEN 
PRINT"MANY  SHARP  NEEDLES "ELSEIFO 
(N)<>R  THENPRINT"THAT'S  NOT  HERE 
" : GOTO 3 

28  I FN= 1 9 THENPRINT " CRYSTAL  CLEAR 
"ELSEIFN=22THENPRINT"HE  LOOKS  DE 
AD! "ELSEIFN=27THENPRINT"THEY'RE 
RATTLERS  - " ELSE I FN=3 ^THENPRINT " T 
HEY 'RE  VAMPIRE  -" 

29  I FN=2 8 ORN= 2 9 THENPRINT " BEAUT I F 
UL!  "ELSEIFN=230RN=3j3THENPRINT"TH 
EY  ARE  ATTTACKING! "ELSEIFN=25THE 
NPRINT" COVERED  WITH  DEADLY  TARAN 
TULAS "  :  0  ( 2 4 )  =3  3ELSEIFN=2 j3THENPRI 


183 


NT"HE  HAS  A  KNIFE!" 

30  IFN=18ANDP  (4)  =J3THENPRINT"THER 
E  APPEARS  TO  HAVE  BEEN  A  ROCK 

S  LI DE " E LS  E I FN= 1 7 THENI FP ( 2 ) =0THE 
NPRINT"HE'S  FOAMING  AT  THE  MOUTH 
! " , "HE  1 S  ATTACKING ! "ELSEPRINT"HE 
'S  DEAD!" 

31  IFN=2  40RN=27THENIFN=24ANDP(8) 
=j30RN=2 7ANDP  ( 7 )  =0THENPRINT"THEY 
ARE  ATTACKING! "ELSEPRINT"THEY  AR 
E  DEAD!" 

32  IFPEEK(1312)=9  6THENPRINT"YOU 
SEE  NOTHING  SPECIAL" 

3  3  GOT03 

34  IFO(N)=50THENPRINT"YOU  ALREAD 
Y  HAVE  IT"ELSEIFO(N) >=0ANDO(N)<> 
R  THENPRINT" THAT'S  NOT  HERE"ELSE 
IFN>150RO (N) <0THENPRINT" YOU  CANN 
OT  "AV$"  THAT"ELSEIFP(10) >3THENP 
RINT"YOUR  HANDS  ARE  FULL"ELSEP(1 
J3)=P(10)+1:O(N) =5p : PRINT "TAKEN" 

35  GOTO 3 

36  IFNO1THEN38ELSEIF0  (1)  <5j3THEN 
38ELSEIFO$ (1) <>" LANTERN "THEN3  8EL 
SEIFP(0)=1THENPRINT"IT'S  ALREADY 

BURNING"ELSEIFO (5) >-lTHENPRINT" 
YOU  HAVE  NO  FLAME "ELSEINPUT" WITH 

WHAT" ; A$ : IFLEFT$ (A$ , 4 ) ="MATC"TH 
ENPRINT"OK.  IT'S  LIT" : P (0 ) =1ELSE 
38 

37  GOT03 

38  PRINT"YOU  CANNOT  DO  THAT": GOT 
03 

39  IFN=5ANDO(5)=50THENPRINT"THE 
MATCH  IS  BURNING" :0 (5) =-l:P(10)= 
P(lj3)  -1ELSE38 

4j3  G0T03 

41  IFO(N) <>50THENPRINT"YOU  DON'T 
HAVE  IT"ELSEPRINT"OK" : 0 (N) =R: P ( 

10)=P(1J3)-1 

42  G0T03 

43  IFN<>180RR<>18THENPRINT"NO  EF 
FECT" ELSEINPUT" WITH  WHAT" ; A$ : I FA 
$=0$  ( 3 )  ANDO  ( 3 )  =5j30RA$=0$  ( 2  )  ANDO  ( 
2) =50THEN45ELSEPRINT"RECONSIDER" 

44  G0T03 

4 5  IFA$=0$ ( 3 ) THENIFP ( 3 ) =1THENPRI 
NT"IT'S  BROKEN " E LS E PRI NT " ONLY  A 
FEW  ROCKS  WERE  MOVED  BE-  FORE  TH 
E  SHOVEL  WAS  BROKEN" , "THERE  IS  S 
TILL  A  WALL":P(3)=1 

46  IFA$=0$ (2) THENIFP (1)=1THENPRI 
NT"IT'S  BROKEN"ELSEPRINT" AFTER  A 
N  HOUR  OF  SWEAT  AND  TOIL; YOU  FIN 
ALLY  MADE  A  HOLE  LARGE  ENOUGH 
TO  CRAWL  THROUGH", "THE  PICK  IS  B 
ROKEN ,  HOWEVER" : P ( 1) =1 : D ( 18 ) =5 : 0 
(18)=-1 

47  GOTO 3 


48  IF0(3) <>50ORP(3)=1THENPRINT"C 
AN  1  T  NOW"ELSEIFR=18ANDP(4)=j3ANDN 
=18THEN43ELSEIFR=j3ANDDR=j3ANDP  ( 9 ) 
=lTHEN5j3ELSEPRINT"YOU  FOUND  NOTH 
ING" 

49  G0T03 

5J3  CLS4:FORK=j3T0448STEP64:PRINT@ 
K,STRING$ (32, 175) ; : NEXT : PRINT @ 2 2 
4, "WHILE  WORKING,  YOU  STRUCK  A  H 
ARDOBJECT  WHICH  YOU  DISCOVERED  W 
AS  A  HEAVY  CHEST  FULL  OF  GOLD!  Y 
OU  ARE  FILTHY  RICH!  you  won!!!": 
PRINT@4  30,P(17) "MOVES" ; :F0RK=1T0 
3j3j3j8:NEXT:GOTO50 

51  IFO(N)OR  THENPRINT  "THAT '  S  NO 
T  HERE"ELSEIFN=170RN=2J30RN=2  30RN 
=240RN=2  70RN=3 ^THENPRINT" PLEASE 
BE  MORE  SPECIFIC"ELSEPRINT"YOU  C 
ANNOT  KILL  THAT" 

52  G0T03 

53  IFN<>6ANDN<>7THENPRINT"Y0U  CA 
N  ONLY  SHOOT  GUNS" : GOTO 3 ELS EI FO ( 
N) <>50THENPRINT"YOU  DON'T  HAVE  I 
T":G0T03ELSEINPUT"AT  WHAT  ARE  YO 
U  AIMING" ;A$:A$=LEFT$(A$, 4) :IFO( 
(3+INSTR(l,N$,A$) )/4)<>R  THENPRI 
NT "NOT  HERE" : GOT03ELSEIFN=7THEN5 
6 

54  IFP(11)=1THENPRINT"N0  BULLETS 
"ELSEP(11)=1:IFA$="C0Y0"THENPRIN 
T"YOUR  SHOT  WAS  TRUE", "YOU  PUT  T 
HE  RABID  BEAST  OUT  OF  HIS  MISER 
Y" : P (2 ) =1 : D ( 12 ) =11ELSEPRINT" YOU 
WASTED  YOUR  ONLY  BULLET" 

55  G0T03 
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56  IFA$o"SNAKl,THEN58ELSEIFP(7)  = 
0THENPRINT"YOU  TAKE  SEVERAL  SHOT 
S  .  .  .  "  :  FORK=  1TO 300 :  NEXT :  PRINT  " THE 

SMOKE  CLEARS  ... 11 :  FORK=1TO200  :  NE 
XT: PRINT"ALL  THE  RATTLERS  ARE  DE 
AD ! " : P (7 ) =1 : D ( 3  6 ) =14ELSEPRINT"TH 
EY  ARE  ALL  DEAD" 

57  GOTO 3 

58  IFA$=" INDI "THENPRINT"THE  NATI 
VE  DODGED  YOUR  SHOT.", "HE  THREW 
HIS  KNIFE  WITH  DEADLY  ACCURACY. 
" , : P ( 12 ) =1ELSEPRINT"N0  EFFECT" 

59  GOT03 

60  IFN=2  3ANDR=39ORN=30ANDR=21THE 
NPRINT"YOUR  ATTEMPT  FAILED", "YOU 

WERE  ATTACKED! " :P(12) =1ELSEIFN= 
2  5ANDR=3  3  ANDO  ( 1 )  =50THENPRINT"  IN 
A  BURST  OF  FLAME  THEY  ARE  DE-STR 
OYED  AND  PASSAGE  IS  CLEARED" :D(3 
3)=6:0(24)=-l:0(25)=-lELSE38 

61  GOT03 

62  P(17)=P(17) -l:PRINT"your  scor 
e: "P(17) "moves" :GOT03 

63  IFO(8) <>50ORN<>8ORR<>46ORO(20 
) <>4  6THENPRINT"NO  CAN  DO"ELSEPRI 
NT "IN  APPRECIATION  OF  YOUR  GENER 
-  OSITY,  HE  GIVES  YOU  HIS  KNIFE 
.  HE  THEN  TURNS  AND  DISAPPEARS. 
":O(20)=-1:O(8)=-1:O(11)=50:D(46 
)=3 

64  GOT03 

65  IFO  (11)  O50THENPRINT"  YOU  '  RE  U 
NABLE  TO"ELSEIFN=2  6THENPRINT"YOU 

SUFFERED  A  FEW  MINOR  CUTS,  BUT 
THE  JOB'S  DONE" : D (42 ) =13ELSEPRI 
NT"NO  EFFECT" 

66  GOT03 

67  I FN<> 4 THENPRINT " THAT  WOULD  BE 
DANGEROUS.   MAY  I     SUGGEST  THAT 

YOU  DRINK  FROM  YOURCANTEEN . "ELSE 
IFO (4) <>50THENPRINT"YOU  DON'T  HA 
VE  IT"ELSEIFP ( 13 ) =0THENPRINT"YOU 
R  CANTEEN  IS  EMPTY" ELSE69 

68  GOT03 

69  IFP(14)=1THENPRINT"IF  YOU  HAD 
SMELLED  THE  WATER,       YOU  WOULD 

HAVE  KNOWN  IT  WAS  POI-SON" , ELSEP 
RINT"GULP. .  GULP...  HEY,  DON'T  D 
RINK  IT  ALL!  YOU  WERE  TOO  GREED 
Y . " , " IT ' S  EMPTY !":P(13)=0:P(16)= 
0 

70  GOT03 

71  I FN<>4THENPRINT" IMPOSSIBLE "EL 
SEIFO(4) <>50THENPRINT"YOU  DON'T 
HAVE  IT"ELSEIFP ( 13 ) =0THENPRINT"I 
T'S  ALREADY  EMPTY"ELSEPRINT"OK" : 
P(13)=0:P(14)=0 

72  GOT03 

7  3  I FN<>4THENPRINT" IMPOSSIBLE "EL 


SEIFO(4)<>50THENPRINT"YOU  DON'T 
HAVE  IT"ELSEIFR<>13ANDR<>30ANDR< 
>43THENPRINT"YOU  CANNOT  DO  THAT 
HERE "ELSEPRINT" YOUR  CANTEEN  IS  N 
OW  FULL"  :  P  ( 13 )  =1 :  IFR=30THENP  ( 14 ) 
=1 

74  GOT03 

75  IFR<>30ORN<>9THENPRINT"TOO  DA 
NGEROUS!"ELSEIFO(9)<>R  THEN  PRIN 
T"IT'S  NOT  HERE"ELSEIFP(15)=0THE 
NPRINT"NOT  POSSIBLE  AT  THIS  MOME 
NT"ELSEPRINT" IT  WAS  QUITE  A  STRU 
GGLE , " , "BUT  YOU  PULLED  YOURSELF 
OUT! ":R=29 

76  GOT03 

77  IFN<>9ORR<>30THEN41ELSEIFO(9) 
<>50THENPRINT"YOU  DON'T  HAVE  IT" 
ELSEPRINT "YOU'VE  APPARENTLY  HAD 
PRACTICE  THE  ROPE  IS  TIGHTLY  HO 
OKED  ON  THE  BRANCH  ABOVE" :P (15 
)=1:O(9)=30:P(10)=P(10) -1 

78  GOTO 3 

79  I FN<> 1 6 ORR< > 2 3 ANDR< > 2 9 THENPRI 
NT "THAT  WAS  FUN! " : GOT03ELSEIFP (5 
) =0THENR=30 : GOT03 ELSEPRINT" A  SUC 
CESSFUL  JUMP!   YOU  HAVE" , "CLEARED 

THE  PIT" 

80  IFR=29THENR=2  3ELSER=29 

81  GOT03 

82  IFN=14THENN=21:GOTO20ELSEPRIN 
T" THERE ' S  NOTHING  WORTH  READING" 
: GOT03 

83  IFP(14)=1ORR=30ANDN=2  9ORN=4TH 
ENPRINT" SMELL ' S  AWFUL!  I  THINK  I 
T ' S  POISON ! "ELSEIFR>0THENPRINT"M 
USTY  ODORS! "ELSEPRINT "FRESH  CLEA 
N  AIR!" 

84  GOT03 

85  IFR=3  3THENPRINT"WHAT  IS  ABEST 
OS  NOT? " ELSE I FR= 1 8 THENPRINT "FIRS 
T  CHOICE  OF  A  LITTER? "ELSEIFR=21 
ORR= 3 9 THENPRINT "A  FOOL  KNOWS  NOT 

WHEN  TO  RETREAT" 
8  6  IFR=30ANDO(9)=50THENPRINT"YOU 
'RE  A  COWBOY!   WHAT  DO  YOU  DO  WIT 
H  A  LASSO? "ELSEIFR=29THENPRINT"T 
HINK  OF  A  CANDLESTICK." 

87  I FR=9 THENPRINT " THREE  AND  YOUR 
OUT?"ELSEIFR=30ANDO(9) <>50ORR=1 

2ANDP ( 11) =1ORR=0ANDP ( 3 ) =1THENPRI 
NT"I'M  AFRAID  YOU'VE  BLOWN  IT!"E 
LSEPRINT : ONRND ( 4 ) GOSUB8  9,90,91,9 
2 

88  GOTO 3 

89  PRINT"USE  YOUR  JUDGEMENT .": RE 
TURN 

90  PRINT"YOU  MUST  BE  CUNNING. ":R 
ETURN 

91  PRINT "ARE  YOU  SURE  YOU'RE  CUT 
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OUT  FOR  THIS?": RETURN 

92  PRINT"YOU  KNOW  MORE  THAN  I  DO 
! " : RETURN 

93  INPUT"SAVE  TO  dISK  OR  t APE 11 ; A 
$ : IFA$="D"THENDN=1ELSEDN=-1 : INPU 
T" POSITION  TAPE,  PRESS  play/reco 
rdTHEN  <ENTER>";A$ 

94  PRINT@448 , "SAVING" : OPEN"0" , DN 
, "GOLDDATA" : PRINT # DN, R;0$ (1) : PRI 
NT#DN ,  LEFT$  (N$ ,  4 )  :  FORK=0TO20 :  PRI 
NT#DN,P(K)  ; : NEXT :  FORK=0TO4 9  :  PRIN 
T#DN,D(K) ; : NEXT :F0RK=1T031: PRINT 
#DN,0(K) ; : NEXT: CLOSE :GOTO109 

95  INPUT"LOAD  FROM  dISK  OR  tAPE" 
; A$ : IFA$="D"THENDN=1ELSEDN=-1 : IN 
PUT"POSITION  TAPE,  PRESS  play,  T 
HEN  <ENTER>" ; A$ 

96  PRINT@448, "LOADING" : OPEN" I" , D 
N, "GOLDDATA" : INPUT#DN,R, 0$ (1) ,0$ 
: FORK=0TO20 : INPUT#  DN , P ( K) : NEXT : F 
ORK=0TO4 9  :  INPUT # DN ,  D  ( K)  :  NEXT :  FOR 
K=1T031:INPUT#DN,0(K) : NEXT: CLOSE 
: MID$ (N$ , 1 , 4 ) =0$ : GOTO109 

97  PRINT "YOU  HAVE : " ; : F0RK=1T031 : 
IFO (K) =50THENPRINTTAB (11)0$ (K) 

98  NEXT: GOTO 3 

99  INPUT "ARE  YOU  SURE  (Y/N)";A$: 


IFA$="N"THEN3ELSEIFA$="Y"GOSUB10 
0 : ENDELSE99 

100  CLS0:FORK=0TO63 : PRINT@K+96 , C 
HR$(188) ; :PRINT@K+160,CHR$(191) ; 
: NEXT: PRINT@330, "pappy' s"CHR$ (12 
8) "gold"; :POKE1359,39:PRINT@388, 
"COPR.  (C)  1984  BRUCE  BELL" ; : PRI 
NT@480 , 11 "  ;  :  SCREEN0  , 1 :  FORK=1TO500 
: NEXT : RETURN 

101  GOSUB100  :  FORK=0TO8  :  READR$  (K) 
: NEXT : DATATHE  DESERT, THE  MINE  EN 
TRANCE, A  TUNNEL, A  CRAWL  SPACE, A 
ROOM, AN  OPENING, A  COVE, A  PASSAGE 
,A  PIT 

1)32  FORK=0TO4 9  :  READD  ( K)  :READR(K) 
: NEXT:' room  directions  and  names 

103  DATA15 ,0,5,1,6,2,7,2,5,2,4,4 
,4,4,4,4,14,2,13,2,14,2,11,3,1,2 
,15,5,9,2,10,6,11,2,11,7,1,4,6,2 
,15,5,1,4,4,4,6,2,7,5,13,2,10,6, 
9,2,4,4,14,6,0,8,10,2,9,2,2,3,3, 
3,13,6,12,7,7,5,7,7,1,4,8,4,6,7, 
5,6,8,4,10,2,11,6,1,2,3,2,11,6,9 
,2 

104  F0RK=1T031:READ0$ (K) :READO(K 
): NEXT: 1  object  names  and  locatio 
ns 

105  DATAOBJECT,9,PICK,5,SHOVEL,7 
, CANTEEN, 50 , MATCHES , 50 , PISTOL, 50 
, RI FLE , 2  2 , BEADS , 2  6 , ROPE , 3 1 , BOW , 4 
5 , KN I F E , - 1 , P AN , 4 8 , HAT , 4 0 , MA P , - 1 , 
PAPER, -1 

106  DATAPIT, 29, COYOTE, 12, ROCK  WA 
LL, 18 , POOL, 43 , INDIAN, 46, WRITING, 
-1 , SKELETON ,28, SCORPIONS ,39, SPID 
ERS,-1, SPIDER  WEB, 33, BARBED  WIRE 
,42, SNAKES ,36, STALAGMITES ,29, WAT 
ERFALL ,13, BATS ,21, CACTUS , 0 

107  V$="LOOKEXAMGET  TAKELIGHSTRI 
PUT  PICKDIG  KILLSHOOBURNDROPGIVE 
CUT  DRINEMPTFI LLCLIMS CORTHRO JUMP 
READSMELCLUESAVELOADINVEQUIT" : D$ 
="nsew" 

108  N$="OBJEPICKSHOVCANTMATCPIST 
RIFLBEADROPEBOW  KNIFPAN  HAT  MAP 
PAPEPIT  COYOWALLPOOLINDIWRITSKEL 
SCORSPIDWEB  WIRESNAKSTALWATEBATS 
CACT":P(10)=3 

109  CLS0:FORK=0TO62STEP2:C=RND(8 
) :SET(K,0,C) :SET(K,31,C) :NEXT:PR 
INT@32,"YOU  ARE  IN  ":PRINT"YOU  M 
AY  GO  ": PRINT" YOU  SEE  ":G0T03 

110  FORK=0TO26:READX:POKE1346+K, 
X:NEXT:PRINT§384,"THE  MAP  DISINT 
EGRATED  IN  YOUR  HAND! " : G0T03 : D 
ATA 3 4,7,15,12,4,128,2,21,18,9,5, 
4,128,15,21,20,19,9,4,5,128,13,9 
,14,5,33,34 
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SCAVENGE 


  Program  by  Pat  Pugliano 

Remember  the  games  many  of  us  enjoyed  as 
youngsters?  Such  favorites  as  "Drop  the 

 1  Handkerchief,"  "Ring  Around  the  Rosey"  and 

"Musical  Chairs"  have  vanished  from  the 
playground. 

Another  old-timer  that  may  be  on  its  way 
out  is  the  scavenger  hunt,  in  which  the  leader 
compiles  a  list  of  items  to  be  collected  within 
a  given  time  period.  And  the  first  person  to 
collect  all  of  the  objects  is  declared  the  winner. 

That's  what  this  Adventure  is  all  about, 
except  that  your  primary  opponent  will  be  the 
clock.  You  have  a  time  limit  of  four  hours. 

You  should  have  fun,  because  this  program 
is  essentially  nonviolent,  includes  some  nice 
graphics,  rewards  you  with  early  successes, 
provides  random  actions  that  change  from 
game  to  game  and  requires  various  problem- 
solving  techniques. 

As  the  Adventure  begins,  you  are  given  a 
list  of  20  items.  It  probably  would  be  a  good 
idea  to  keep  a  pad  and  pencil  handy. 
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Your  screen  position  is  indicated  by  a  blue  cursor,  which  you  move 
throughout  the  game  by  pressing  the  directional  keys  on  your  computer.  Don't 
be  upset  when  you  spot  what  appears  to  be  computer  garbage  at  the  lower 
left  of  the  screen.  That's  actually  the  junkyard  you  will  be  visiting  to  collect 
some  of  the  things  on  your  list. 

Before  loading  the  program,  be  sure  to  clear  extra  memory  on  your  computer 
with  a  PCLERR1  for  disk  or  a  P0KE25,G:NEW  for  cassette  versions. 

Happy  hunting! 


(Pat  Pugliano  is  a  junior  high  school  teacher  in  Baden,  Penn.  One  of 
Pat's  earlier  programs  was  published  in  The  Rainbow  Book  Of 
Simulations.^ 


r  SCAVENGE      32K  ECB 


1  REM  scavenge  4/84 

2  REM  poke  25,6  ON  32K 

3  REM  by  PAT  PUGLIANO  TIMBER 

RIDGE  DRIVE     BADEN, PA 

4  GOTO 6 

5  TT=TT+l:IFTT>216j3  THENZ=0 : GOTO 
441  ELSEPRINT@482, "<PRESS  ANY  KE 
Y  TO  CONTINUED1; : EXEC44539 : RETUR 
N 

6  POKE280,PEEK(275) 

7  W=RND  ( 8j3j3 )  +RND  ( 8j3j3 )  :  C=l :  BC=RN 
D(22)+488:VR$=STRING$ (6, 178)+" 
"+STRING$ (6, 146)+"     "+STRING$ (6, 
226)+"     "+STRING$  (6,2J36) 

8  CLS : PRINT@7 , "WELCOME  TO  SCAVAG 
E",,,"THE  OBJECT  OF  THIS  ADVENTU 
RE  IS  'SIMPLY1  TO  FIND  THE  OBJEC 
TS  ON  YOUR  SCAVENGER  LIST  AND  DE 
POSIT  THEM  BACK  AT  THE  HOME  BASE 

STARTWITHIN  4  HOURS  (240  MINUT 
ES) . " :GOSUB5 

9  CLS:PRINT"AT  THE  TOP  OF  THE  SC 
REEN  IS  THE  EDGE  OF  THE  SEA,  THE 
N  THE  SHORE. BELOW  THAT  ARE  FOUR 
APARTMENT  BUILDINGS.  AT  THE  BO 
TTOM  LEFT  IS  THE  BUSY  JUNKYARD 
.  A  FOREST  FILLS  THE  BOTTOM.  SE 
ARCH  EACH  OF  THESE  AND  ALSO  TH 
E   .    .    .  . 

1J3  GOSUB5:  CLS:  PRINT  "YOUR  POSITIO 
N  IS  MARKED  BY  THE     BLINKING  BLU 


E  CURSOR.  MOVEMENT  IS  BY  THE  AR 
ROW  KEYS.  YOU  MAY  ENTER  THE  BU 
ILDINGS  ONLY  BY  THE  FRONT  DOOR." 
, , , , "FOR  YOUR  STATUS , PRESS  • S •  .  " 
,,,"TO  START  A  NEW  GAME,    PRESS  1 

|  I  H 

11  PRINT "AT  THE  END  OF  A  GAME,  Y 
OU  MAY  CHOOSE  TO  REPLAY  THE  SA 
ME  HUNT. ":GOSUB5: CLS: PRINT"  IT'S 

NOON,  AND  THE  SCAVENGER  HUNT 
IS  ABOUT  TO  BEGIN. " : GOSUB5 : CLS: 
PRINT@9 , "YOUR  LIST  IS": PRINT 

12  DATAbottle, dandelion, hamburge 
r , blanket , t-shirt , lawnchair , sand 
pail , sundial , feather, umbrella 

13  DATAcorncob,mapleleaf , grapef r 
uit , rabbit , wildf lower , hollywreat 
h , raspberry , dinnerplate , nest , st i 
ck 

14  DATAcandybar , cloverleaf ,pillo 
w, lightbulb, sandwich, collie, soup 
dish, cola, macaroni, pizza 

15  DATAdatebook, wrench, pencil, ma 
ttress , record , newspaper , wire , cof 
f eepot , pigeon , mailbox 

16  DATAgolfball , workshirt , dogcol 
lar , holograph , photograph , horsesh 
oe, 'rainbow' , paperclip, cassette, 
button 

17  DATAgarbagecan, match, hammer, s 
crew, teacher, papercup, lawyer, phi 
losopher , twig , marble 
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18  DATAkettle, tweezer, battery, pi 
cturetube , cactus , sugarbowl , micro 
computer , thread , belt , stapler 

19  DATArocket, chessman, tennisbal 
1 , cheeseball , screwdriver , crayon, 
transistor , comicbook, dictionary , 
shoppingbag , stamp , co  f  f eecan , cook 
ie, satellite, worm 

20  DATAALL  RIGHT!, HOW  ABOUT  THAT 
!, GREAT  STUMBLING! , THAT'S  DIFFER 
ENT!, SUPER  SLUETHING! 

21  DIMA$(126) ,N(20) ,D(85) ,MY$(29 
) ,FF$(22) ,F(5) ,1(20) ,H$(20) 

22  MY$( 29)=" JUNKYARD  DOG" 

23  FORR=1TO90:READA$ (R) :NEXT:X=1 

24  F0RT=1T02  8 

25  Z=RND(85) 

26  IFD(Z)=1  THEN25ELSEMY$ (T)=A$ ( 
Z) :D(Z)=1:NEXT 

27  FORR=1TO20 

28  T=RND(20) 

29  IFN(T)=2  THEN28ELSEPRINT"  "MY 
$(T)  , 

30  N(T)=2:NEXT:FORR=1TO20:N(R)=0 
: NEXT : G0SUB5 : Q=3  9  9 : TT=1 

31  CLS : PRINTSTRING$ (32 , 175) :FORR 
=1T06 : PRINTVR$ : NEXT 

32  Z=22  6:F0RR=1T04:PRINT@Z,CHR$( 
255) ; :Z=Z+8:NEXT:PRINT@365,"ba"+ 

II  H+llsell. 

33  E=1375:Y=392:FORR=lT02:FORV=l 
T04 : PRINT@Y , CHR$ (134)+"  "+CHR$ ( 1 
37) ; :PRINT@Y+3  3 ,CHR$ (12  8) ; : Y=Y+6 
: NEXTV : Y=Y+4  3 : NEXTR 

34  F0RR=1T05:F0RT=1T08 :P0KEE+1,R 
ND  (225)  +  30  :  E=E+ 1 : NEXT :  E=E+2 4  :  V=R 
ND(255) : NEXT 

35  FORR=353T0355 : PRINTER, CHR$ (25 
5) ; : NEXT 

36  IFC=1  G0SUB255 

3  7  PRINT@Q,CHR$ (14  3) ; :PRINT@Q,CH 
R$(175) ; 

38  V$=INKEY$: IFV$=""  THEN37 

39  IFV$="S"THEN242 

40  IFV$="!"  THEN317 

41  TT=TT+1:IFTT>=216J3  THENZ=0:GO 
T0441  ELSEIFVW<TT  THEN442 

42  IFFF$ (21) <>""THEN4  3ELSEIFUU=1 
THEN43  ELSER=RND (30) : IFR=1ANDFF 

$(13)<>""  THEN328 

43  IFV$=CHR$(8)    THENC=Q-1 : GOT04  8 

44  IFV$=CHR$(9)    THENC=Q+1 : GOT048 

45  IFV$=CHR$ (10)  THENC=Q+3  2:GOTO 
48 

46  IFV$=CHR$ (94)  THENC=Q-3  2 : GOTO 
48 

47  GOT037 

48  IFC=226GOT057ELSEIFC=234GOT02 
03ELSEIFC=242GOTO206ELSEIFC=250G 


OT0231ELSEIFC=354GOT02  65 

49  IFC=BC  ANDXY=0THEN3 4 1 

50  IFC=399GOSUB446 

51  IFC=255ANDV$=CHR$ (8)  OR  C=287 
ANDV$=CHR$ ( 8 )  OR  C=319  ANDV$=CHR 
$(8)   THEN  37 

52  IFC=256ANDV$=CHR$(9)ORC=288AN 
DV$=CHR$ ( 9 ) ORC=3  2 0ANDV$=CHR$ ( 9 ) T 
HEN37 

53  IFPEEK(C+1024) <>96  THEN37 

54  F0RR=1T05:IFC=N(R)  THEN2  63  EL 
SE  NEXT 

55  IFFF$(11)<>""  THEN56  ELSEIFC= 
3  67AND  FF$(14)=MY$(14)  THEN  CLS: 
SOUND1,5:SOUND180, 3 : PRINT" YOU  JU 
ST  STUMBLED  OVER  A" : PRINTMY$ (22 ) 
+ " . " : EF=1 : FF$ (22 ) ="2" : GOSUB5 : GOT 
031 

56  POKEQ+1024,96:Q=C:GOTO37 

57  TT=TT+9:Z=4:IFSS=2  THENCLS2: 
PRINT"SORRY,   THIS  BUILDING  IS  NO 
W  CONDEMNED. " : G0SUB5 : G0T03 1 
ELSECLS:PRINT"YOU'RE  STANDING  IN 

THE  DOORWAY     OF  A  DESERTED  WREC 
K."t PRINT :PRINT"THERE  IS  DEBRIS 
EVERYWHERE . 

58  TIMER=0: PRINT: PRINT" IT  LOOKS 
AS  IF  YOU'LL  BE  ABLE       TO  FIND  S 
OME  NEEDED  ITEMS,    BUT     WATCH  OUT 

FOR  THE  BUMS  WHO  CAN  SOMETIMES 
BE  FOUND  INSIDE. 

59  Z=Z-l:G0SUB5: CLS: PRINT" YOU  MA 
Y  USE  THESE  DIRECTIONS :": PRINT : P 
RINT"  L  LEFT" , "R  RIGHT","  A  A 
HEAD" , "B  BACK","  E  ESCAPE" : PRI 
NT : PRINT "NOTE  THAT  THESE  DIRECTI 
ONS  REFERTO  THE  POSITION  YOU'RE 
FACING,     not  COMPASS  LOCATIONS! 

60  PRINT: PRINT "TO  CONFUSE  YOU,  Y 
OU  MAY  TURN  AROUND  ONLY  ON  TH 
E  LANDINGS. 

61  DATAPOSITION, AHEAD, BACK, LEFT, 
RIGHT, HALLWAY, WALL, STAIRWAY  UP,S 
T AIRWAY  DOWN, BLOCKED  PASSAGE, FLO 
OR  CAVED  IN, APARTMENT, RUBBLE, PEN 
THOUSE , MANAGER ' S  APARTMENT , BALCO 
NY, CLOSET, SERVICE  ELEVATOR, BASEM 
ENT , FURNACE , BROKEN  WINDOW 

62  DATAIT'S  BROKEN!, THE  FLOOR  IS 
COLLAPSING! , THE  ORIGINAL  BAGLAD 

Y, A  PACK  OF  HUNGRY  RATS, A  GROUP 
OF  HOBOS, MAIN  ENTRANCE, 2ND  FLOOR 
LANDING, 3RD  FLOOR  LANDING, ROOF, 
MAID'S  ROOM, PANTRY, KITCHEN, DININ 
G  ROOM, BUTLER'S  ROOM, BOARDED  WIN 
DOW 

63  RESTORE :F0RR=1T012 6 : READA$ (R) 
: NEXT :B$=" SORRY,  BUT  YOUR  HUNT  I 
S  OVER." 
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64  G0SUB5:CLS:  PRINT 11  OOPS!  YOU  SL 
AMMED  THE  DOOR  TOO  HARD!  PART  O 
F  THE  WALL  HAS  COLLAPSED. 
YOU'RE  NOT  HURT,  BUT  YOU'LL  H 
AVE  TO  FIND  ANOTHER  WAY  OUT.": GO 
SUB5 : CLS 

65  P=27:L=6:R=6:A=8:B=10:GOSUB19 
3 

66  IFV$="A"THEN99ELSEIFV$="B"THE 
N65ELSEIFV$="L"THEN79ELSE67 

67  P=6:L=16:R=16:A=6:B=27:GOSUBl 
93 

68  IFV$="A"THEN69ELSEIFV$="B"THE 
N65ELSEIFV$="L"THEN71ELSE75 

69  P=6:L=16:R=17:A=15:B=6:G0SUB1 
93 

70  IFV$="A"THEN191ELSEIFV$="B"TH 
EN67ELSEIFV$="L"THEN73ELSE77 

71  P=16:L=7:R=7:A=3  6:B=6:GOSUB19 
3 

72  IFV$="B"THEN67ELSE71 

73  P=16:L=27:R=7:A=3  6:B=6:GOSUBl 
93 

74  IFV$="B"THEN69ELSE73 

75  P=16:L=7:R=7:A=3  6:B=6:GOSUB19 
3 

76  IFV$="B"THEN69ELSE75 

77  P=17:L=7:R=7:A=7:B=6:GOSUB193 

78  IFV$="B"THEN69ELSE77 

79  P=6:L=12:R=12:A=6:B=27:GOSUBl 
93 

80  IFV$="A"THEN81ELSEIFV$="B"THE 
N65ELSEIFV$="L"THEN97ELSE91 

81  P=6:L=3  5:R=31:A=6:B=6:GOSUB19 
3 

82  IFV$="A"THEN83ELSEIFV$="B"THE 
N79ELSEIFV$="L)THEN1690ELSE1660 

83  P=6:L=34:R=32:A=33:B=6:GOSUBl 
93 

84  IFV$="A"THEN85ELSEIFV$="B"THE 
N81ELSEIFV$="L"THEN93ELSE87 


85 

P=3  3  : 

L=7:R=13:A=13:B= 

6 

:GOSUBl 

93 

86 

IFV$= 

"B"THEN83ELSE85 

87 
3 

P=32 : 

L=7:R=7:A=3  6:B=6 

* 

GOSUB19 

88 

IFV$= 

"B"THEN83ELSE87 

89 

P=31: 

L=13:R=7:A=13:B= 

6 

rGOSUBl 

93 

90 

IFV$= 

" B " THEN8 1 E  LS  E  8  9 

91 

P=12: 

L=7:R=13:A=3  6:B= 

6 

:GOSUBl 

93 

92 

IFV$= 

"B"THEN79ELSE91 

93 

P=3  4: 

L=10:R=7:A=13:B= 

6 

:GOSUBl 

93 

94 

IFV$= 

"B"THEN8  3ELSE93 

95 

P=35: 

L=7:R=10:A=13:B= 

6 

:GOSUBl 

93 

96  IFV$="B"THEN81ELSE95 

97  P=12:L=13:R=13:A=36:B=6:GOSUB 
193 

98  IFV$="B"THEN79ELSE97 • 

99  P=28:L=6:R=6:A=8:B=9:GOSUB193 

100  IFV$="A"THEN12  3ELSEIFV$="B"T 
HEN65ELSEIFV$="L"THEN101ELSE113 

101  P=6:L=13:R=12:A=6:B=28:GOSUB 
193 

102  IFV$="A"THEN103ELSEIFV$="B"T 
HEN99ELSEIFV$="L"THEN109ELSE107 

103  P=6:L=12 :R=12 : A=18 : B=6 :GOSUB 
193 

104  IFV$="A"THEN18  6ELSEIFV$="B"T 
HEN101ELSEIFV$="L"THEN111ELSE105 

105  P=12:L=7:R=13:A=3  6:B=6:GOSUB 
193 

106  IFV$="B"THEN103ELSE105 

107  P=12:L=13:R=7:A=7:B=6 rGOSUBl 
93 

108  IFV$="B"THEN101ELSE107 

109  P=13:L=7:R=13:A=36:B=6:GOSUB 
193 

110  IFV$="B"THEN101ELSE109 

111  P=12:L=13:R=7:A=13:B=6:GOSUB 
193 

112  IFV$="B"THEN103ELSE111 

113  P=6:L=7:R=7:A=6:B=28:GOSUB19 
3 

114  IFV$="B"THEN99ELSEIFV$="A"TH 
EN115ELSE113 

115  P=6:L=15:R=7:A=6:B=6:GOSUB19 
3 

116  IFV$="B"THEN113ELSEIFV$="A"T 
HEN117ELSEIFV$="L"THEN119ELSE115 

117  P=6:L=16:R=ll:A=21:B=6:GOSUB 
193 

118  IFV$="B"THEN115ELSEIFV$="L"T 
HEN121ELSEIFV$="R"THEN190ELSE117 

119  P=15:L=7:R=16:A=3  6:B=6:GOSUB 
193 

120  IFV$="B"THEN115ELSE119 

121  P=16:L=15:R=13:A=10:B=6:GOSU 
B193 

122  IFV$="B"THEN117ELSE121 

123  P=29:L=13:R=6:A=8:B=9:GOSUBl 
93 

124  IFV$="B"THEN99ELSEIFV$="A"TH 
EN153ELSEIFV$="L"THEN14  3ELSE12  5 

125  P=6:L=35:R=12:A=6:B=29:GOSUB 
193 

126  IFV$="B"THEN12  3ELSEIFV$="A"T 
HEN127ELSEIFV$="L"THEN131ELSE137 

127  P=6:L=17:R=12:A=6:B=6:G0SUB1 
93 

128  IFV$="B"THEN125ELSEIFV$="A"T 
HEN129ELSEIFV$="L"THEN13  3ELSE13  9 

129  P=6:L=31:R=12 : A=21 : B=6 : GOSUB 
193 
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130 

HEN1 

131 

193 

132 

133 

93 

134 

135 

93 

136 

137 

3 

138 

139 

93 

140 

141 

93 


IFV$=,,B,,THEN12  7ELSEIFV$="L"T 
35ELSEIFV$="R"THEN141ELSE12  9 
P=35 : L=7 : R=13 : A=10 : B=6 : GOSUB 

IFV$="B"THEN125ELSE131 

P=17 : L=13 : R=7 : A=7 : B=6 : GOSUB1 

IFV$="B"THEN127ELSE13  3 

P=3 1 : L=7 : R=7 : A=2 1 : B=6 : GOSUB1 

IFV$="B"THEN129ELSE135 

P=12 : L=7 : R=7 : A=7 : B=6 : GOSUB19 

IFV$=,,B"THEN125ELSE137 
P=12:L=7:R=7:A=21:B=6:G0SUB1 

IFV$="B"THEN127ELSE13  9 

P=12 :L=7:R=7:A=3  6:B=6:G0SUB1 


142  IFV$="B"THEN129ELSE141 

143  P=13 :L=11:R=13 :A=13 :B=29 :GOS 
UB193 

144  IFV$="B"THEN12  3ELSEIFV$=MA"T 
HEN147ELSEIFV$="L"THEN192ELSE149 

145  P=13:L=ll:R=17:A=7:B=13:GOSU 
B193 

146  IFV$=,,B,,THEN14  7ELSEIFV$="AMT 
HEN145ELSEIFV$="L"THEN192ELSE151 

147  P=13:L=ll:R=ll:A=13:B=13:GOS 


UB193 

148  IFV$="B"THEN14  3ELSEIFV$="A"T 
HEN145ELSE192 

149  P=13:L=11:R=7:A=7:B=6:G0SUB1 
93 

150  IFV$="B"THEN143ELSE149 

151  P=13:L=7:R=ll:A=ll:B=13:GOSU 
B193 

152  IFV$="B"THEN145ELSE151 

153  P=30:L=14:R=7:A=7:B=9:GOSUB1 
93 

154  IFV$=,,B"THEN12  3ELSEIFV$="A"T 
HEN155ELSEIFV$="L"THEN19  2ELSE153 

155  P=13 :L=14 :R=13 :A=13 :B=30:GOS 
UB193 

156  IFV$="BIITHEN15  3ELSEIFV$="L"T 
HEN192ELSEIFV$="A"THEN157ELSE155 

157  P=13:L=14:R=13:A=13:B=13:GOS 
UB193 

158  IFV$=,,BMTHEN155ELSEIFV$="L"T 
HEN192ELSEIFV$="A"THEN159ELSE161 

159  P=13:L=14:R=7:A=7:B=13: GOSUB 
193 

160  IFV$="B,ITHEN157ELSEIFV$=IIL"T 
HEN192ELSE159 

161  P=13:L=7:R=13:A=13:B=13:GOSU 
B193 

162  IFV$="B"THEN157ELSEIFV$="A"T 
HEN163ELSEIFV$="R"THEN169ELSE161 

163  P=13:L=7:R=17:A=13:B=13:GOSU 
B193 

164  IFV$=MB"THEN161ELSEIFV$="A"T 
HEN165ELSEIFV$="R"THEN171ELSE163 

165  P=13:L=7:R=13:A=13:B=13:GOSU 
B193 

166  IFV$="B"THEN163ELSEIFV$=,IA"T 
HEN167ELSEIFV$="R"THEN17  3ELSE165 

167  P=13:L=10:R=13:A=10:B=13:GOS 
UB193 

168  IFV$="BMTHEN165ELSEIFV$="R"T 
HEN175ELSE167 

169  P=13:L=7:R=7:A=7:B=13:G0SUB1 
93 

170  IFV$="B"THEN161ELSE169 

171  P=17 : L=7 :R=7 : A=13 : B=13 : GOSUB 
193 

172  IFV$="BIITHEN163ELSEIFV$="A"T 
HEN179ELSE171 

173  P=13:L=10:R=10:A=10:B=13:GOS 
UB193 

174  IFV$="B"THEN165ELSE173 

175  P=13:L=10:R=10:A=10:B=13:GOS 
UB193 

176  IFV$="B"THEN167ELSE175 

177  P=13:L=13:R=7:A=10:B=13:GOSU 
B193 

178  IFV$="B"THEN179ELSE177 

179  P=13:L=13:R=13:A=10:B=17:GOS 
UB193 
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180  IFV$=IIB"THEN171ELSEIFV$="R"T 
HEN177ELSEIFV$="L"THEN181ELSE179 

181  P=13:L=10:R=10:A=13:B=13:GOS 
UB193 

182  IFV$="B"THEN179ELSEIFV$="A"T 
HEN183ELSE181 

183  P=13:L=7:R=7:A=7:B=13:G0SUB1 
93 

184  IFV$="B"THEN181ELSEIFV$="A"T 
HEN185ELSE183 

185  S0UND1 , 5 : SOUND180 , 3 : PRINT" YE 
S!     YOUR  EXPLORING  PAID  OFF!  IN 

THE  CORNER  YOU  SPOT  A" : PRINTMY$ 
(16) +" . " : FF$ (16) =MY$ ( 16 ) : GOSUB5 : 
PRINT : PRINT : GOTO 18  3 

186  FF$(17)=MY$(17) :P=19:L=21:R= 
25:A=20:B=18:CLS:PRINT"WELL,  THA 
T  WAS  A  FAST  RIDE  DOWN  TO  T 
HE  BASEMENT !  "  :  SOUND1 ,  5  :  SOUND180  , 
3:PRINT"IT  LOOKS  AS  IF  YOU  FOUND 

A" : PRINTMY$ ( 17 ) +" . " : PRINT : PRINT 
:EXEC44539:GOSUB193 

187  B=18:R=2  5:P=19:L=21:A=25:IFV 
$="L"THEN202ELSEIFV$="B"THENB=22 
:GOSUB193 

188  A=25:L=25:B=B-90:P=19:R=25:I 
FV$="L"THEN202ELSEGOSUB193 

189  CLS0 :  PRINT  "SORRY,   THE  RATS  H 
AVE  EATEN  THE" : PRINTMY$ ( 17 ) +" . " : 
PRINT :PRINT"THEY'VE  ALSO  SCARED 
YOU  HALF  TO  DEATH.      GO  HOME  AND 
REST  A  BIT. " :PRINTB$:GOSUB5 : GOTO 
199 

190  CLS0:PRINTA$(114)  ;"  HAS  YOU! 
": PRINT "YOU'RE  IN  NO  DANGER, BUT 
NOW  YOU  HAVE  TO  HEAR  4  HOURS  OF 
OLD  BAGWOMAN  TALES ! " : PRINTB$ 
:GOSUB5:GOT0199 

191  CLS0:PRINT"THE  HOBOS  HAVE  YO 
U!": PRINT "YOU' RE  IN  NO  DANGER,  B 
UT  NOW         YOU'LL  HAVE  TO  HEAR  4 
HOURS  OF     OLD  HOBO  TALES .": PRINT 
B$:GOSUB5:GOT0199 

192  CLS0  :  PRINT  "OH  NO !  !  "  :  PRINTA$  ( 
113) : PRINT: PRINT" YOU  WIND  UP  DAZ 
ED  ON  THE  SECOND  FLOOR.  YOU'RE 
IN  NO  SHAPE  TO       CONTINUE .": PRIN 
TB$ : GOSUB5 : GOT0199 

193  P=P+90:L=L+90:R=R+90:A=A+90: 
B=B+90:PRINTA$ (91) ;":  ";A$(P) : PR 
INT"  "A$(94);":  " ;A$ (L) : PRINT 
"  "A$(95);":  " ;A$ (R) : PRINT" 
"A$(92);":  " ; A$ (A) : PRINT"  "A$ 
(93);":  ";A$(B) 

194  PRINT: PRINT" DIRECTION  -  (L-R 
-A-B-E) V ; 

195  INPUTV$ 

196  IFV$o"L"ANDV$<>"R"ANDV$o"A 
"ANDV$o"B"ANDV$o"E"  THEN194 


197  IFV$="E"THENSS=2:GOTO202 

198  TT=TT+3 :PRINTSTRING$ (32, "*") 
: RETURN 

199  FL=1:IFZ<1  THEN317  ELSECLS0 : 
SOUNDl,9:PRINT"YOU  CAN'T  WIN  NOW 
,   BUT  YOU  MAY     TRY  THIS  BUILDING 

AGAIN" Z  "MORE  TIMES.  DO  YOU  WI 
SH  TO  TRY  AGAIN  Y/N 

200  V$=INKEY$ 

201  IFV$="Y"  THEN  59  ELSEIFV$="N 
"THEN317  ELSE200 

202  TT=TT+INT (TIMER/400 ) :FF$( 22) 
=" 1 " : SS=2 : Q=2 3 0 : FORR=9 1T012  5 : A$ ( 
R)  =" " : NEXT : CLS : SOUND1 , 5 : SOUND180 
, 3 : PRINT "HEY,  PRETTY  LUCKY!  AS 
YOU  BREAKTHROUGH  A  WINDOW  YOU  NO 
TICE  A  RING  ON  THE  GROUND!  PIC 
K  IT  UP ! " : GOSUB5 : GOT03 1 

203  TT=TT+10:IFFF$(6)<>""  THENCL 
S2: PRINT"  SORRY,  BUT  YOU  WON'T  F 
IND  ANYTHING  ELSE  HERE . " : G 
OSUB5 : GOT03 1  ELSECLS : PRINT"WELCO 
ME  TO  HOUSE  #2" 

204  FF$(6)=MY$(6) : FF$ (7) =MY$ (7) : 
TT=TT+20 

205  PRINT :PRINT"THE  PEOPLE  IN  TH 
IS  BUILDING  ARE  QUITE  FRIENDLY  B 
UT  DON'T  HAVE  MANY  ITEMS  TO  HE 
LP  YOU.  AFTER  A  FEW  MINU 
TES  YOU  MANAGE  TO  GATHER  A  ";FF 
$(6) : PRINT "AND  A  " ;FF$ (7) +" . " :GO 
SUB5:GOT031 

206  TT=TT+18:IFFF$(21)=""  THENCL 
S2:PRINT"SORRY,  EVERYONE'S  OUT  S 
EARCHING  FOR  A  JUNKYARD  DOG.": GO 
SUB5 : GOT03 1 : ELSETT=TT+18 : IFFF$ ( 1 
0)<>""  THENCLS2:PRINT"SO  SORRY, 
THERE  IS  NOTHING  LEFT  HERE  THAT 
YOU  COULD  USE . " : GOSUB5 : GOT03 1 

207  IFFF$(8)<>""  THEN210 

208  FF$(8)=MY$(8) : FF$ (9 ) =MY$ (9 ) 

209  CLS:PRINT"YOU'RE  IN  YOUR  OWN 
APARTMENT  BUILDING.  MOST  OF 
THE  PEOPLE       HERE  KNOW  YOU  AND 

YOU  HAVE  NO       TROUBLE . FINDING  A 
»;FF$(8) :PRINT"AND  A  ";FF$(9)+". 
":GOSUB5 

210  CLS:PRINT"YOU  RACE  UPSTAIRS 
TO  YOUR  HOME     BUT  FIND  THAT  YOUR 

FAMILY  IS  AWAY.  ON  THE  TABL 
E  IS  A  NOTE. 

211  PRINT: PRINT: PRINT" 'WE  HEARD 
ABOUT  YOUR  SCAVENGER       HUNT  TO DA 
Y.     MRS.   NELSON  NEXT       DOOR  HAS 
A  "MY$(10)+". '":GOSUB5 

212  CLS: PRINT" 'HOWEVER,  BEING  TH 
E  FUN-LOVING  FAMILY  THAT  WE  AR 
E,  WE  TOLD  HER  NOT  TO  GIVE  I 
T  TO  YOU  UNTIL  YOU  CAN  UNS 
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CRAMBLE  THE  FOLLOWING  ITE 

MS  FROM  OTHER  SCAVENGER  HUNTS  e 
xactly : " : TIMER=0 : PRINT : PRINT 

213  FORR=23T025 

214  G=LEN(MY$ (R) ) 

215  FORT=lTOG 

216  H$(T)=MID$(MY$(R) ,T,1) :NEXTT 

217  FORO=lTOG 

218  Z=RND (G) 

219  IFD(Z)=2  THEN218 

220  PRINTH$(Z) ; : D(Z) =2 :NEXTO 

221  FORQ=1TO20:D(Q)=1: NEXT: PRINT 
: NEXTR 

222  PRINT@480, "TYPE  AND  ENTER  'h 
elp'  TO  ESCAPE"; 

223  FORR=23T025 

224  PRINT@352, "WORD  ";R-22;  : INP 
UT  E$ 

225  IFE$="help"  THEN230 

226  IFE$<>MY$(R)  THEN224 

227  PRINT@356 , STRING$ ( 143 , 14 ) :NE 
XT 

228  FF$(10)=MY$(10) 

229  CLS:SOUND1,5:SOUND180,3:PRIN 
T"VERY  GOOD  WORK! 11 :  PRINT  "THAT  ON 
LY  TOOK  "; INT (TIMER/ 3 500)  ;"  MINU 
TES. ": PRINT: PRINT "MRS.  NELSON  HA 
NDS  YOU  A":PRINTMY$(10)+".":TT=T 
T+INT (TIMER/400)  :  GOSUB5 

230  TT=TT+INT (TIMER/400)  :Q=274:G 
OT031 

231  TT=TT+18:IFFF$(12)<>""  THENC 
LS2 : PRINT"SORRY ,  THE  DOORMAN  REF 
USES  TO  LET  YOU  IN.  THERE'S  N 
OTHING  ELSE  FOR  YOU  HERE  ANYW 
AY . " : GOSUB5 : GOT03 1  ELSECLS : PRINT 
"YOU'RE  AT  THE  DOOR  OF  THE  NEWLY 

REDECORATED   ' SCAV  ARMS'  HOTEL. 

232  IFFF$(11)<>""  THEN238 

233  IFW=1  THEN235 

234  PRINT: PRINT "THE  DOORMAN  SNIF 
FS  AND  HOLDS         HIS  HAND  OUT  FOR 

A  TIP. ": PRINT: PRINT" IT  LOOKS  LI 
KE  YOU  WON'T  GET  IN     UNLESS  YOU 
CAN  TIP  HIM  $1. " :GOSUB5:GOTO  31 

235  PRINT: PRINT "THE  DOORMAN  TAKE 
S  YOUR  DOLLAR  AND  LETS  YOU  ENT 
ER. " :GOSUB5:CLS 

23  6  PRINT"NOT  TOO  MANY  PEOPLE  AR 
E  AT  HOME  AT  THIS  TIME.     YOU  DO 
MANAGE         TO  GET  A  "MY$(11)+"." 

237  FF$(11)=MY$(11) : PRINT : PRINT" 
PERHAPS  YOU  CAN  TRY  AGAIN  LATER. 
" : GOSUB5 : TT=TT+18 : GOTO 3 1 

238  R=RND(3) : IFR=1  THEN240 

239  PRINT: PRINT"TRY  AGAIN  LATER. 
THERE'S  SURE     TO  BE  A  "MY$(12) 

+"  HERE" : PRINT "SOMETIME  TODAY.": 
GOSUB5:GOT031 


240  SOUND1,5:SOUND180,  3  :TT=TT+9: 
CLS:PRINT"ONE  OF  THE  LADIES  ON  T 
HE  FIRST     FLOOR  HAS  RETURNED  AND 

HAS  A" : PRINTMY$ ( 12 ) +" . " : GOSUB5 : 
FF$ ( 12 ) =MY$ ( 12 ) : GOT03 1 

241  GOSUB5 

242  CLS:SOUND99, 6:PRINT"TIME  USE 
D     -  "INT (TT/9) ; "MINUTES" 

243  PRINT: PRINT "SO  FAR  YOU  HAVE: 
" : PRINT 

244  FORR=20TO1  STEP-1 

245  IFFF$(R)=""  THEN  247 

246  PRINTFF$(R) , 

247  NEXT:GOSUB5:CLS 

248  PRINT"  NEEDED  ITEMS" : PRI 
NT 

249  FORR=1TO20 

250  T=RND(2j3) 

251  IFI(T)=3  THEN250 

252  IFFF$ (T) <>""THEN253ELSEPRINT 
MY$(T) , 

253  I(T)=3:NEXT 

254  FORT=1TO20:I (T) =1 : NEXT : GOSUB 
5:GOT031 

255  F0RR=1T05 

256  T=RND(476)+31 

257  IFT=369  THEN256 

258  N(R)=T 

259  IFPEEK(1024+T)  <>96  THEN  256 

260  F(R)=N(R) 

261  NEXT 

262  C=2: RETURN 

263  TT=TT+9:T=RND(5)+85:CLS:SOUN 
D1,5:SOUND180, 3 :PRINT@41,A$ (T) 

264  N(R)=F(R) :PRINT@137, "YOU  FOU 
ND  A" :FORT=1TO600:NEXT:PRINT@2  33 
,MY$(R)+". ":N(R)=1:FF$(R)=MY$(R) 
:GOSUB5:GOT031 

265  F0RR=1T05:CLSR:S0UNDRND(255) 
,RND(10) :NEXT:IFRR>0  THEN  314  EL 
SEIFFF$(13)<>""  THEN306  ELSECLS: 
PRINT"YOU'VE  ENTERED  THE  JUNKYAR 
D. 

2  66  PRINT "THE  BUSY  JUNKYARD  KING 
GRABS  YOUR  LIST  OF  ITEMS  AND 
SNARLS . 

267  PRINT: PRINT" 'THERE'S  A  ";MY$ 
(13): PRINT"  AROUND  HERE  SOMEPLAC 
E'.","HE  LAUGHS  AND  WALKS  AWAY. 
2  68  PRINT"' ALL  YOU  HAVE  TO  DO  IS 

FIND  IT! • ":GOSUB5 
2  69  CLS: PRINT" YOU  START  THE  SEAR 
CH  BUT  IT  IS     RATHER  DIFFICULT. 

THE  JUNKYARD  IS  CLUTTERED  AND  T 
HERE'S  MORE  ARRIVING  EVERY  MIN 
UTE. 

270  PRINT: PRINT "YOU  WON'T  BE  ABL 
E  TO  FIND  THE  NEEDED  "MY$(13): 
PRINT"UNLESS  YOU  STUMBLE  OVER  IT 
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271  PRINT :PRINT"AS  YOU  SEARCH  YO 
U'LL  HAVE  TO  MOVE  THE  JUNK  AR 
OUND,  AND  IT'S  POSSIBLE  THAT  YO 
U'LL  WIND  UP  UNABLE  TO  MOVE  0 
R  FIND  YOUR  WAY  OUT.":GOSUB5 

272  CLS:PRINT"YOU  AREN'T  ABLE  TO 
CONTROL  THE  NEXT  SCREEN.  JUST 
SIT  BACK  AND  WATCH  YOUR  MOVING 

FIGURE  SEARCH  FOR  THE  ORANGE  BLO 
CK  WHICH  REPRESENTS  THE  " ;M 

Y$ ( 13 ) +" . " : GOSUB5 : CLS2 

273  FORR=1TO60:Y=RND(2  54) :Z=RND( 
511) +1024 :  POKEZ  , Y:NEXT 

274  NL=Z+1 

275  IFPEEK(NL)=255  THENNL=NL+1 : G 
OT0274 

276  X=RND( 477) +1024 

277  FORR=1055TO1571STEP32:IFR=X 
THEN276  ELSENEXT 

278  POKEX,255:POKEX+l,255:POKEX+ 
32,255:POKEX+33,255 

279  POKENL,RND(2  54) 

280  LO=NL 

281  A=RND ( 8 ) 

282  IFA=1  THENNL=LO-3 2 

283  IFA=2  THENNL=LO-3 1 

284  IFA=3  THENNL=LO+l 

285  IFA=4  THENNL=LO+3  3 

286  IFA=5  THENNL=LO+3  2 

287  IFA=6  THENNL=LO+3 1 

288  IFA=7  THENNL=LO-l 

289  IFA=8  THENNL=LO-3  3 

290  IFNL>1536  THEN281 

291  IFNL<1024  THEN281 

292  IFPEEK(NL)=255  THEN297 

293  IFPEEK(NL)=159  THEN295 

294  IFPEEK(NL) <>159  THEN281 

295  POKENL,RND(254) 

296  LO=NL 

297  IFPEEK(NL)=255  THENPOKENL, Y : 
F0RR=1T04  4  4 : NEXT : GOTO30 0 

298  IFPEEK(LO-32)<>159  ANDPEEK (L 
0-31)<>159  ANDPEEK (LO+1) <>159  AN 
DPEEK(LO+33) <>159  ANDPEEK (LO+3 2 ) 
<>159  ANDPEEK(LO+31)<>159  ANDPEE 
K(LO-l)<>159  ANDPEEK (LO-3 3) <>159 

THEN302 

299  D=D+l:GOT0282 

300  TU=INT(D/10) :CLS:S0UND1,5:S0 
UND180 , 3 : PRINT"ALL  RIGHT  1 " : PRINT 
"YOU  FOUND  A  "MY$ ( 13 )+"!": PRINT" 
IT  ONLY  TOOK  YOU  " : PRINTTU ; "  MIN 
UTES. " :TT=TT+(TU*9) :UU=1 

301  FF$(13)=MY$(13) : G0SUB5 : G0T03 
1 

302  TU=INT(D/10) :S0UND1,9:PRINT" 
OH  NO! ! " :PRINT"LOST  IN  THE  JUNKY 
ARD! ": PRINT" AFTER  ONLY  "TU;"MINU 


303  R=RND(10) 

304  TT=TT+(TU*9)+(R*9) 

305  D=1:PRINT"Y0U'RE  LUCKY  IT  ON 
LY  TOOK  THE       JUNKMAN  ABOUT "R"  M 
INUTES  TO  " : PRINT"FIND  YOU  AND 
ESCORT  YOU  TO  THE  GATE . " : G0SUB5 : 
G0T031 

306  UU=0:IFFF$(14)<>""  THEN  311 
ELSECLS : PRINT"THE  JUNKMAN  COMES 
OVER,   LOOKS  ATYOUR  LIST  AND  SCRA 
TCHES  HIS  HEADFOR  A  WHILE. " : PRIN 
T: PRINT" 'THE  ONLY  THING  I  HAVE  0 
N  YOUR       LIST  IS  A  "MY$(14)+"." 

307  PRINT"   BUT  I  NEED  IT.  IT'S 
THE  ONLY       ONE  THAT  I  HAVE  AND  I 
'M  RATHER     FOND  OF  IT. 

308  PRINT: PRINT"  TELL  YOU  WHAT  I 
'LL  DO.  IF  YOU  CAN  CATCH  MY  "M 
Y$ (29) : PRINT"  I'LL  GIVE  YOU  WHAT 

YOU  NEED. ' " :G0SUB5 

309  IFFF$(21)=""  THEN31  ELSECLS: 
PRINT"WHY,  I  SEE  YOU  HAVE  A  BEAU 
TIFUL  JUNKY  DOG  THERE!  HERE'S  A 
" : PRINTMY$ ( 14 ) +" . " : FF$ ( 14 ) =MY$ ( 1 
4) :UU=1 

310  GOSUB5:GOT031 

311  IFFF$(22)<>""  THEN312  ELSECL 
S: PRINT "THE  JUNKMAN  COMES  OVER  S 
MILING. ": PRINT" 'YOU  DO  NICE  WORK 
.  TELL  YOU  WHAT,  I'VE  BEEN  LOOKI 
NG  FOR  A  GOOD" :PRINTMY$( 22 )+".": 
PRINT: PRINT" 'IF  YOU  CAN  FIND  ONE 

I'LL  GIVE  YOU  A  BUCK. '" : GOSUB 
5:  IFEF01THEN31 

312  CLS : PRINT "THE  JUNKMAN  COMES 
OVER  SHAKING     HIS  HEAD  AND  LAUGH 
ING.     HE  HANDS YOU  A  DOLLAR  AND  T 
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AKES  THE" : PRINTMY$ (22) +" . " 

313  RR=1 :  W=l:  PRINT:  PRINT'"  YOU' R 
E  SOMETHING  ELSE !  I  CAN'T  TELL 
YOU  HOW  LONG  I'VE  BEEN  LOOKI 
NG  FOR  THIS ! " : PRINT : PRINT" ' BUT  I 
'M  VERY  BUSY  TODAY.  THANK  YOU, 
BUT  GET  LOST  NOW. • " : GOSUB5 : GOT03 
1 

314  RR=RR+1:IFRR>3  THEN  316 

315  CLS : PRINT "THE  JUNKMAN  ISN'T 
HAPPY  TO  SEE     YOU.      HE  WARNS  YOU 

THAT  HE  IS  BUSY  AND  NOT  TO  BO 
THER  HIM.  HE  LEAVES  YOU  STANDIN 
G  THERE. " :GOSUB5:GOT031 

316  CLS0:SOUND1,9:PRINT"NOW  YOU' 
VE  DONE  IT!     THE  JUNKMANGRABS  YO 
U  AND  THROWS  YOU  IN  A       PILE  OF 
USED  TIRES. ": PRINT: PRINT" IT  SEEM 
S  THAT  YOU'RE  GOING  TO       BE  HERE 

FOR  THE  REST  OF  THE  HUNT,  I 

F  NOT  FOR  THE  REST  OF  YOUR  LI 
FE ! " : GOSUB5 

317  POKE3  59,60:CLS:SOUND1,9:PRIN 
T"WELL,   THE  HUNT  IS  OVER  AND  YOU 

DIDN'T  WIN. 

318  FORR=1TO20:IFFF$ (R)=""  THEN 
NEXT  ELSESC=SC+5:NEXT 

319  PRINT: PRINT"  YOUR  SCORE  I 
S"SC: IFSC<100  THEN320  ELSE  PRINT 
"  YOUR  BONUS  IS"240-INT(TT/9) 
: PRINT"  TOTAL  SCORE  IS"340-INT 
(TT/9) 

320  PRINT :PRINT"WOULD  YOU  LIKE  T 
0:  1)  PLAY  THE  SAM 
E  HUNT?                     2)    PLAY  ANOTHER 

HUNT?  3)    FORGET  THE  & 

%$#(*%  THING?" 

321  POKE359,126 

322  V$=INKEY$ 

323  IFV$=""  THEN3  22 

324  IFV$="2"  THENRUN 

3  25  IFV$="3"  THENCLS:  END 

326  IFV$="1"  THEN  CLS 2 : XY=0 : VW=R 
ND(800)+RND(800)  :  F0RR=1T02  2  :  FF$  ( 
R) =" " : NEXT : F0RR=1T05 : N (R) =F (R) : N 
EXT :  TT=0  :  FL=0  :  TU=0  :  SC=0  :  Q=3  67  :  RR 
=0:SS=1:GOTO31 

327  GOT0322 

328  CLS:SOUND99,7:PRINT"WHOA!  W 
ITH  THE  SPEED  OF  THE  WIND  A  J 
UNKY  DOG  RUNS  PAST!  HE'S  HEA 
DED  FOR  THE  JUNKYARD. 

329  INPUT" DO  YOU  WISH  TO  TRY  TO 
CATCH  HIM  NOW     Y/N" ;V$ 

3  30  IFV$=""THEN3  29ELSEIFV$="N"TH 
EN31ELSEIFV$<>"Y"THEN3  29 
331  TT=TT+18: CLS: PRINT" IF  YOU  CA 
N  CHASE  HIM  FOR  200         YARDS  WIT 
HOUT  RUNNING  INTO  THE     JUNK  YOU' 


LL  CATCH  HIM. ": PRINT: PRINT "USE  T 
HE  ARROW  KEYS  TO  CONTROL  THE  D 
IRECTION  OF  YOUR  MOVES.  YOU  A 
RE  THE  ORANGE  CURSOR. ": G0SUB5 

332  Q=322 : CLS0 : POKE65495 ,0 : K=0 : B 
=252 :A= 1039 :Y$=CHR$ (RND(254) ) +CH 
R$(RND(254) ) 

333  IFPEEK(A) <>128THEN339 

3  34  H=RND(95)+3  3:F0RT=1T03:R=RND 
(32) :POKE1471+R,H:NEXT 

335  POKEA,B:PRINT@480,STRING$(32 
,128) ; 

336  IFPEEK( 343)<>255  THENA=A-1EL 
SEIFPEEK(344) <>255  THENA=A+1 : I FA 
>1055THENA=1055 

337  K=K+l:IFA<1024THENA=1024 

338  IFK<200THEN333ELSEPOKE65494, 
0:CLS:SOUND1, 5:SOUND180, 3 : PRINT" 

ALL  RIGHT!  YOU  CAUGHT  HIM!":G 
0SUB5:UU=l:FF$ (21) ="1" :GOTO3  40 

339  POKE65494,0:CLS:SOUND1,9: : PR 
INT"  OH,  SORRY!.  AND  YOU  ONLY  H 
AD" : PRINT200-K"  YARDS  TO  GO!": PR 
INT: PRINT: PRINT"  DON'T  WORRY,  YO 
U'LL  HAVE  ANOTHER  CHANCE. 
":G0SUB5 

340  G0T031 

341  Z=4:CLS:I$="         WHAT  DO  YOU 
WISH  TO  DO?" 

342  SOUND99,7:PRINT"YOU  HAVE  FOU 
ND  THE  ENTRANCE  TO     AN  ANCIENT  I 
NDIAN  BURIAL     CAVE.   IT  SEEMS  AS 
IF  NO  ONE  HAS  ENTERED  HERE 

IN  CENTURIES. ": PRINT: PRINT" DO  Y 
OU  WISH  TO  ENTER  Y/N  ";V$ 

343  V$=INKEY$ 

344  IFV$=""THEN34  3ELSEIFV$o"Y"T 
HEN31 

3  45  TIMER=0:XY=1 

346  Z=Z-1: CLS: PRINT" YOU  ARE  IN  T 
HE  CAVE.      THERE  IS     DIM  LIGHT  FR 
OM  BOTH  FISSURES         ABOVE  AND  A 
GLOWING  OOZE  ON  THE  WALLS.  THE 
AIR  IS  MUSTY,   WITH     A  SLIGHT  ANI 
MAL  SCENT.     AHEAD       IS  A  NARROW 
PATH  LEADING  DOWN. " : GOSUB438 

347  PRINT"1  LEAVE  THE  CAVE", "2  F 
OLLOW  THE  PATH", "3  EXAMINE  THE  W 
ALLS","4  SEARCH  THE  ENTRANCE": IN 
PUT  N 

348  ON  N  GOTO31,350,426 

349  GOSUB425:GOT034  6 

350  CLS : PRINT"THE  PATH  DESCENDS 
STEADILY  FOR  A  FEW  HANDRED  YARD 
S.  YOU  PAUSE  A  BIT  TO  ALLOW  YOU 
R  EYES  TO  ADJUST  TO  THE  GROW 
ING  DARKNESS.  AS  YOU  STOP,  YOU  T 
HINK  YOU  HEAR  A  NOISE  BEHIND  YOU 
.":GOSUB4  38 


197 


351  PRINT"1  TURN  AROUND  SLOWLY", 
"2  RUN  AHEAD" : PRINT" 3  STAND  PERF 
ECTLY  STILL": INPUT  N 

352  IFN=2  THEN428  ELSE  IFN>3  THE 
NGOSUB4  2  5 : GOT03  5 0 

353  CLS: PRINT "EVERYTHING  SEEMS  F 
INE  AND  YOU       PROCEED  CAUTIOUSLY 

AHEAD.      YOU     STEP  OVER  A  SMALL 
DITCH  AND  SEE  A  GROUP  OF  WOODEN 
SPEARS  ALONG     ONE  WALL.      YOU  CHO 
OSE  ONE  AND       MOVE  ON.":GOSUB5 

354  CLS:PRINT"YOU  TRAVEL  A  DOZEN 
YARDS  AND         COME  TO  A  BRANCH  I 

N  THE  PATH.       FROM  THE  LEFT  YOU 
HEAR  A  VERY       DISTINCT  GROWLING. 
":GOSUB4  3  8 

3  55  PRINT" 1  HURL  THE  SPEAR  TO  TH 
E  LEFT" ,"2  CAUTIOUSLY  MOVE  TO  TH 
E  LEFT", "3  TAKE  THE  PATH  TO  THE 
RIGHT", "4  GO  BACK  UP  THE  PATH" : I 
NPUTN 

356  ON  N  GOTO430, 430,358 

357  GOT034  6 

358  CLS: PRINT "AFTER  A  HUNDRED  YA 
RDS  THE  PATH  TAKES  A  SHARP  TURN 
,  AND  FROM  AHEAD  COMES  A  FAIN 
T,  FLICKERING  LIGHT.  YOU  CREEP 
ON,  AND  THEN  A  SLIGHT  TURN  TAKE 
S  YOU  INTO  AN  IMMENSE  HALL.  YOU 

STILL  HAVE  THE  FEELING  THAT  S 
OMETHING  IS       FOLLOWING  YOU. 

359  GOSUB5:CLS 

3  6)3  PRINT  "THE  HALL  IS  A  BURIAL  C 
HAMBER.  ALONG  THE  PERIMETER  AR 
E  DOZENS  OF  RAISED  PLATFORMS  SU 
PPORTING  ANCIENT  SKELETONS.  A 
SINGLE,  ORNATE  TORCH  BLAZES  BR 
IGHTLY  IN  THE  ROOM'S  CENTER.  A 
NARROW  PASSAGEWAY  IS  TO  THE  L 
EFT. " :GOSUB4  3  8 

361  PRINT" 1  SEARCH  THE  SKELETONS 
","2  TAKE  THE  TORCH", "3  FOLLOW  T 
HE  PASSAGEWAY", "4  GO  BACK" : INPUT 
N 

362  ON  N  GOT0434,434,364 

363  GOT0354 

3  64  CLS: PRINT "YOU' RE  AT  ANOTHER 
BRANCH.      ITS     VERY  DARK  HERE.  A 
LONG  ONE  WALL  A  SMALL  TORCH  IS  B 
URNING . " : GOSUB4  3  8 

365  PRINT" 1  TAKE  TORCH  -  GO  LEFT 
","2  TAKE  TORCH  -  GO  RIGHT", "3  G 
0  TO  THE  LEFT", "4  GO  TO  THE  RIGH 
T": INPUT  N 

366  IF  N<>1  THEN437 

367  CLS: PRINT" YOU  FIND  A  HALF-GN 
AWED  BONE  AND  TUCK  IT  IN  YOUR  BE 
LT,  THINKING  IT  MIGHT  MAKE  A  GO 
OD  WEAPON  IN     A  HAND-TO-HAND  FIG 


HT.  THE  PATH  WIDENS  INTO  A  SMAL 
L  CAVERN  WITH  EXITS  BOTH  LEFT  AN 
D  RIGHT.":GOSUB438 

368  PRINT "1  EXIT  LEFT" : PRINT" 2  E 
XIT  RIGHT" : PRINT" 3  CHEW  THE  BONE 
":PRINT"4  SEARCH  THE  CAVERN" : INP 
UTN 

369  ON  N  GOT0437, 371,436 

370  GOSUB42  5:GOT0367 

371  CLS : PRINT "THE  PATH  BEGINS  TO 
CLIMB.     AS       YOU  CONTINUE,  YOU 

BECOME  AWARE  OF  A  TRACE  OF  SUNL 
IGHT  AHEAD.  SOON  YOU  SEE  A  SMA 
LL  OPENING  TO  THE  OUTSIDE.  JUST 
TO  THE  LEFT  OF  THE  HOLE  IS  A  D 
OG  WITH  HER  THREE  PUPS.":GOSUB 
5 

372  CLS: PRINT "FROM  THE  RUBBISH  A 
ROUND  HER  YOU  CAN  TELL  THAT  SHE 
OFTEN  VISITS     THE  TOWN.      SHE  SNA 
RLS  AS  YOU         APPROACH  HER  PUPS. 

THERE  SEEMS  TO  BE  ENOUGH  ROOM 
TO  PASS  HER       AND  FOLLOW  THE  PAT 
H. " :GOSUB438 

373  PRINT" 1  ATTACK  WITH  THE  SPEA 
R","2  ATTACK  WITH  THE  TORCH", "3 
TRY  TO  BE  FRIENDLY", "4  CLIMB  OUT 

THE  HOLE", "5  RUN  PAST  HER" : PRIN 
T"6  FOLLOW  THE  PATH" : INPUTN 

374  ON  N  GOT0434, 434, 376,431,428 
,381 

375  GOSUB425:GOT0372 

376  CLS : PRINT "THE  MOTHER  IS  STIL 
L  NERVOUS  BUT  HER  TAIL  BEGINS  TO 

WAG.  SHE  WON'T  LET  YOU  APPR 
OACH  THE  PUPS . SUDDENLY  YOU  NOTIC 
E  THAT  AMONG  THE  RUBBISH  IS  A  P 
ART I ALLY  TORN" : PRINTMY$ ( 19 ) : GOSU 
B438 

377  PRINT"1  GRAB  THE  ";:PRINTMY$ 
(19): PRINT" 2  REACH  FOR  THE  PUPS" 
,"3  PULL  OUT  THE  BONE", "4  LEAVE 
TO  LOOK  FOR  A  PUPPY  TOY" : INPUTN 

378  ON  N  GOTO429,429,380,381 

379  GOSUB425:GOT0376 

380  FF$(19)=MY$(19) : CLS : PRINT"BO 
TH  THE  MOTHER  AND  HER  PUPS  SE 
EM  DELIGHTED.  YOU  HAVE  NO  PR 
OBLEM  GETTING  THE" : PRINTMY$ ( 19 ) + 
".": PRINT: PRINT "YOU  LEAVE  AND  CO 
NTINUE  TO  FOLLOWTHE  PATH.":GOSUB 
5 

381  CLS: PRINT "YOU  CAN  HEAR  THE  F 
ADING  BARKS  ASYOU  CONTINUE.  THE 

PATH  AGAIN       DESCENDS.     ON  THE 
WALLS  YOU  CAN  NOW  SEE  SOME  PRIMI 
TIVE  DRAWINGS  OF  ANIMALS  AND  CAV 
E  LIFE. ":GOSUB438 

382  PRINT"1  EXAMINE  THE  PAINTING 
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S'V'2  CONTINUE  ON":INPUTN 

383  IFNOI  THEN386ELSECLS:GOSUB4 
38 

384  PRINT" 1  RUB  THE  PAINTINGS"," 

2  WRITE  YOUR  NAME  ON  THE  WALL"," 

3  FINISH  THE  DRAWINGS" ,"4  STUDY 
THE  DETAILS" : INPUTN 

385  IFN=4THENZZ=1ELSE434 

386  CLS: PRINT" JUST  AS  YOU  DECIDE 
TO  TURN  BACK  A  GIGANTIC  SHAPE  R 

EARS  AT  YOUR  SIDE.  IT'S  A  BEAR 
!":GOSUB438 

387  PRINT"1  FIGHT  HIM":PRINT"2  R 
UN" : INPUTN 

388  IFN<>2  THEN430 

389  CLS: PRINT "YOU  RACE  DOWN  THE 
PATH  WITH  A       YARD  LEAD.  SUDDEN 
LY  YOU  SEE  A     FRAYED  ROPE  BRIDGE 

CROSSING  A  NARROW  GORGE  AHEAD 
.  IT  LOOKS  AS  IF  YOU  COULD  LE 
AP  ACROSS. " :GOSUB43  8 

390  PRINT" 1  TRY  THE  BRIDGE", "2  L 
EAP  ACROSS" : PRINT "3  BE  FRIENDLY 
TO  THE  BEAR" : INPUTN 

391  ON  N  GOTO427,393,430 

392  GOT0427 

393  CLS:PRINT"FOR  A  MINUTE  YOU  L 
OOK  BACK  OVER  THE  GORGE.     YOU  TH 
EN     WANDER  ON  UNTIL  YOU  COME  TO 
A  SMALL  ROOM     ON  THE  RIGHT.  YOU 

CAN  SEE  A  COT,  A  BURNING  FIR 
E  AND  A  SMALL  PILE  OF  PERSONAL  B 
E LONGINGS . " : GOSUB4  3  8 


394  PRINT"1  EXAMINE  THE  ROOM", "2 
GO  ON": INPUTN 

395  IFNol  THEN407 

396  CLS: PRINT "YOU  HAVE  THE  FEELI 
NG  THAT  THE       OWNER  OF  THIS  ROOM 

WILL  BE  BACK  SHORTLY.  AS  YOU  L 
OOK  AROUND,  YOU  SUDDENLY  NOTIC 
E  IN  A  CORNER  A  " ;MY$ (20) +" . " : GO 
SUB438 

397  PRINT"1  TAKE  THE  ";MY$(20):P 
RINT"2  EAT  THE  DINNER", "3  WAIT  F 
OR  THE  OWNER", "4  LEAVE  THE  ROOM" 
: INPUTN 

398  ON  N  GOTO434,434,400 

399  GOTO407 

400  CLS :FORR=1TO1000: NEXT: PRINT" 
AFTER  A  SHORT  WAIT  YOU  HEAR  A 
SOUND  AND  LOOK  UP  TO  SEE  AN  AGED 
WARRIOR  STUDYING  YOU.  SILENCE 
BUILDS  TENSION  FOR  A  MINUTE. 
THEN  HE  SMILES  SLIGHTLY.   HE  HAD 
SEEN  YOU  STARING  AT  THE" : PRINTMY 
$(20)+"." 

401  PRINT"NOW  HE  PICKS  IT  UP  AND 
HANDS  IT  TO  YOU  IN  FRIENDSHIP. 
HE  SEEMS  TO  BE  WAITING  FOR  SOME 

THING. " :GOSUB5: CLS: PRINT" YOU  REA 
LIZE  THAT  HE  HAS  MADE  A     GIFT  TO 
YOU  AND  IS  WAITING  FOR     A  RESPO 
NSE . " : GOSUB4  3  8 

402  PRINT"1  ATTACK",, "2  RUN",, "3 
GIVE  HIM  A  GIFT": INPUTN 

403  IFN<>3  THEN434 


404  CLS: PRINT "WHAT  WILL  YOU  GIVE 
AS  A  GIFT" : INPUTN$ 

405  IFFF$(22)=""  THEN434  ELSEIFN 
$<>"RING"  THEN434  ELSEPRINT"THE 
INDIAN'S  FACE  BRIGHTENS  AS     HE  E 
XAMINES  THE  RING.      HE  SITS  CONT 
ENTEDLY  AND  YOU  LEAVE  THE  ROOM 

TO  CONTINUE  YOUR  JOURNEY. 

406  FF$(20)=MY$(20) : GOSUB5 

407  CLS: PRINT "YOUR  TORCH  IS  BEGI 
NNING  TO  DIM    AS  THE  PASSAGEWAY 
NARROWS  TO  A     CRAWLS PACE.  FROM 
AHEAD  COMES  A  MUFFLED  SOUND.": GO 
SUB438 

408  PRINT"1  SEARCH  THE  AREA", "2 
CRAWL  ON  AHEAD" ,"3  THROW  AWAY  TH 
E  TORCH", "4  BITE  THE  TORCH" : INPU 
TN 

409  IFN=2  THEN411  ELSEIFN=3  THEN 
437  ELSEIFN=4  THEN43  6 

410  GOSUB425:GOTO407 

411  CLS: PRINT "YOU'VE  MADE  IT  THR 
OUGH  THE  CRAWLSPACE  AND  CAN  NOW 
STAND  UPRIGHT. YOUR  TORCH  IS  OUT 
AND  YOU  TOSS     IT  AWAY.     THE  WALL 
S  HERE  ARE  ALLSHIMMERING  A  DULL 
GREENISH  GLOW. YOU  HAVE  JUST  ENOU 
GH  LIGHT  TO       MOVE  AHEAD . " : GOSUB 
5 

412  CLS: PRINT" YOU  GRADUALLY  REAL 
IZE  THAT  THE  SOUND  YOU  HAVE  BEE 
N  WALKING  TO     IS  THAT  OF  A  SMALL 

WATERFALL.  YOU  COME  TO  A  STON 
E  BRIDGE  WHICHCROSSES  A  NARROW  B 
UT  SWIFTLY  FLOWING  STREAM.  P 
AST  THAT  CAN     BE  SEEN  AN  OPENING 

FROM  WHICH 

413  PRINT" SUNLIGHT  ENTERS  THE  CA 
VERN.  THE  STREAM  IS  ABOUT  15 

FEET  BELOW  THE  BRIDGE.     A  N 

ARROW  PATH  LEADS  DOWN  TO  THE 

WATER'S  EDGE. " : GOSUB5 : CLS: GOSU 
B438 

414  PRINT"1  CROSS  THE  BRIDGE", "2 
GO  BACK",, "3  WALK  DOWN  THE  PATH 

","4  SEARCH  THE  AREA" : INPUTN 

415  ONN  GOTO417,407,419 

416  GOSUB425:GOT0412 

417  CLS:PRINT"YOU  MAKE  THE  CROSS 
ING  SAFELY  ANDMOVE  TO  THE  OPENIN 
G.  IT'S  A  TIGHT  FIT  BUT  YOU 
STRUGGLE  ON  THROUGH.  YOU'RE  B 
ACK  IN  THE  FOREST.  AFTER  MOV 
ING  JUST  TWO  STEPS  YOU  HEAR  A  R 
UMBLING  SOUND  BEHIND  YOU.  APPAR 
ENTLY  YOU  HAD 

418  PRINT" DISLODGED  A  BRACE  AS  Y 
OU  LEFT,  TRIGGERING  A  SMALL  ROC 
KSLIDE.       YOU  LEAP  TO  SAFETY,  BU 


T  THE  CAVEENTRANCE  IS  NOW  SEALED 
OFF. " : GOSUB5 : Q=500 : TT=TT+INT (TI 
MER/400) :GOT031 

419  CLS: PRINT "YOU 'RE  AT  THE  WATE 
R'S  EDGE.":IFZZ=1  THEN422  ELSEPR 
INT "YOU  TURN  DOWNSTREAM,   ONLY  TO 

SLIP  AND  TUMBLE  IN.     THE  CUR 
RENTWHIPS  YOU  ALONG.     SUDDENLY  T 
HE     STREAM  BREAKS  AND  PLUNGES  TO 
THECAVERN  WALL.     YOU  TAKE  ONE  D 
EEP  BREATH  AND  DIVE  DOWN. 

420  FORR=1TO900: NEXT :CLS0: PRINT" 
ALL  IS  DARK.    .    . " : FORR=1TO1100 : N 
EXT: CLS: PRINT "SUDDENLY  THERE  IS 
LIGHT  ABOVE       AND  YOU  SURFACE,  G 
ULPING  AIR . " : PRINT : PRINT" YOU ' RE 
CARRIED  DOWNSTREAM  AND  FINALLY 

DUMPED  ON  THE  SHORE .": GOSUB5 

421  TT=TT+INT (TIMER/ 400 ): CLS: PRI 
NT"EXHAUSTED,   YOU  STUMBLE  ALONG 
FORA  WHILE  BEFORE  YOU  RECOGNIZE 
THE  AREA . " : GOSUB5 : C=500 : GOT03 1 

422  CLS: PRINT "REMEMBERING  A  SCEN 
E  FROM  THE         WALL  DRAWINGS,  YOU 

TURN  UPSTREAMWHERE  YOU  KNOW  A  H 
IDDEN  EXIT  IS. YOU  PASS  BELOW  THE 

WATERFALL  ANDTURN  TO  THE  LEFT, 
FINDING  A  TINYOPENING  WHERE  YOU 
EXPECTED  IT. 

423  PRINT" YOU  USE  YOUR  SPEAR  TO 
ENLARGE       THE  OPENING,   WHEN  SUDD 
ENLY  YOU     FIND  A  " ;MY$ ( 18 ) +" . " 

424  GOSUB5 :TT=TT+ INT (TIMER/ 400 ) : 
CLS: PRINT" YOU  FIND  YOURSELF  OUTS 
IDE  THE  CAVE,  IN  THE  FOREST.": 
GOSUB5 : FF$ ( 18 ) =MY$ ( 18 ) : Q=505 : GOT 
031 

425  TT=TT+9:IFTT>2160  THEN  441  E 
LSECLS:  PRINT" YOU  FIND  NOTHING." 
: G0SUB5 : RETURN 

426  POKE3  59,60:CLS0:PRINT"THE  WA 
LLS  ARE  COATED  WITH  AN  ACID  W 
HICH  BURNS  YOUR  HANDS  BADLY. 

YOU'LL  HAVE  TO  LEAVE  FOR  IM 
MEDIATE  MEDICAL  HELP. " ; : GOT0439 

427  POKE359,60:CLS0:PRINT"YOU  AW 
AKE  TO  FIND  YOURSELF  NOT  BADLY 
INJURED  BUT  WITH  NO  DESIRETO  GO 
ON.     TODAY'S  HUNT  IS  OVER.";:GOT 
0439 

428  POKE359, 60: CLS0: PRINT" YOU  ON 
LY  MANAGE  TO  RUN  A  FEW  YARDS 
BEFORE  YOU  TRIP , TWISTING     YOUR  A 
NKLE.      BY  THE  TIME  YOU  CRAWL 
OUT  THE  SCAVENGER  HUNT         WILL  B 
E  LONG  OVER. " ; :GOT0439 

429  POKE3  59, 60: CLS0: PRINT "THE  MO 
THER  SNAPS  AT  YOUR  HAND  AND  YO 
U  JUMP  BACK  IN  PAIN.      YOU  KICK  V 
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ICIOUSLY  AT  HER . " : GOSUB5 : GOT04 3 4 

430  POKE359,60:CLS0:PRINT"ITS  NO 
T  NICE  TO  DISTURB  A  BEAR!  HE  SNA 
PS  YOUR  SPEAR  LIKE  A  TWIG  AND  BE 
LLOWS  AFTER  YOU.  LUCKILY  YOU  SC 
RAMBLE  UP  A  NARROW  CLEFT  AND  AR 
E  SAFE,  BUT  YOU'RE  STUCK  HERE  F 
OR  QUITE  A  WHILE. " ; :GOT04  39 

431  POKE3  59,60 

432  CLS0 :  PRINT  "YOU  MANAGE  TO  GET 
PARTIALLY  OUT  BUT  YOU'RE  STUCK. 
YOU  HEAR  THE  DOG  MOVING  TOWARD 
YOUR  LEGS  AND  FEEL  A  SUDDEN  TUG 
AT  YOUR  FEET.   " ; : FORR=1TO1000 : N 

EXT: PRINT "YOUR  SHOES  ARE  BEING  T 
ORN  AWAY! ! " ; : PRINT" YOUR  SCREAMS 
ECHO  IN  THE  FOREST!"; 

433  FORR=1TO1000:NEXT:PRINT"AND 
NOW  "  ;  :FORR=1TO1000:NEXT:PRINT"T 
HREE     PLAYFUL  TONGUES     LAP  AT  YO 
UR  TOES. " :GOT0439 

434  POKE359, 60 : CLS0 : PRINT"A  WITH 
ERED  HAND  GRASPS  YOU  IN  AN  IRO 
N  GRIP.  YOU'RE  SPUN  AND  SEE  TH 
E  GRIEVING  FACE  OF  AN  AGEDINDIAN 
.  YOU  KNOW  AT  ONCE  THAT  YOU  HA 
VE  COMMITTED  AN  ACT  OF  SACRIL 
IEGE.  IT  WILL  BE  SOME  TIME  B 
EFORE  YOU  ARE  SET  FREE. 

435  GOT0439 

43  6  CLS0:POKE3  59,60:PRINT"I  CANN 
OT  BELIEVE  YOU  DID  THAT !!!";: FOR 
R=1TO1000:NEXT:PRINT"WHAT  KIND  0 
F  ADVENTURE  DO  YOU  THINK  THIS 
IS! " ; :FORR=1TO1000: NEXT: PRINT" 
YOU'LL  HAVE  TO  GET  THE  SPLINTE 
RS  REMOVED  FROM  YOUR  TONGUE  AT  0 
NCE ! " : GOT0439 

437  CLS0:PRINT"THE  FLOOR  IS  PITT 
ED  WITH  HOLES.  BEFORE  YOU  CAN  RE 
ACT  YOU'VE  FALLEN  INTO  A  PIT 

IT  WILL  TAKE  HOURS  TO  CLI 

MB  OUT. " :GOT0439 

438  TT=TT+3:IFTT>2160  THEN441  EL 
SEPRINT : PRINTI $ : PRINT : RETURN 

439  GOSUB5:CLS0:SOUND1,9:IFZ=<0 
THENPRINT"THAT 1 S  ENOUGH  FOR  ONE 
DAY ! ! " : GOSUB5 : GOT03 17  ELSEPRINT" 
YOU  CANNOT  WIN  THE  SCAVENGER 
HUNT  NOW  BUT  YOU  CAN  PRACTICE 
THE  ADVENTURE "Z "MORE  TIMES.  DO 
YOU  WISH  TO  RETURN  TO  THE  CAVE 
Y/N" : INPUTN$:POKE3  59, 12  6 

440  IFN$o"Y"  THEN317  ELSE  FL=1: 
GOT0346 

441  CLS0 :  PRINT"  YOU  CAN  HEAR  THE 
DISTANT  CHIMES  OF  THE  TOWN  CLOCK 
.      ITS  NOW  4:00  AND  THE  SCAV 
ENGER  HUNT  IS     FINISHED .": IFZ<1 


THEN  EXEC44539 :GOT0317  ELSE439 

442  VW=2200:CLS2: :PRINT"A  JOGGER 
PAUSES  AND  OFFERS  YOU  A  CHOICE 
OF  TWO  ITEMS. ": PRINT: PRINT :R=RN 

D(2):IFR=1  THENPRINT"1  "MY$(15): 
PRINT"2  "MY$(28)  ELSEPRINT" 1  "MY 
$(28) :PRINT"2  "MY$ ( 15 ): PRINT 

443  PRINT :INPUT"WHICH  DO  YOU  WAN 
T" ;  T 

44  4  CLS:IFT=R  THENSOUND1 , 5 : SOUND 
180,3:PRINT"GOOD  CHOICE!  YOU  NEE 
D  THAT.":FF$(15)=MY$(15)  ELSESOU 
ND1 , 9 : PRINT"SORRY , CHECK  YOUR  LIS 
T! 

445  GOSUB5:GOT031 

446  FORR=1TO20:IFFF$(R)=""  THENR 
ETURN  ELSENEXT 

447  CLS:IFFL<>0  THEN  PRINT" YOU  H 
AVE  ALL  THE  NEEDED  ITEMS,  BUT  Y 
OU  WERE  DISQUALIFIED. " : GOSUB5 : CL 
S:GOTO3  20 

448  F0RR=1T0255  STEP5 : CLSRND ( 9 ) - 
1 : SOUNDR , 1 : NEXT : F0RT=1T08 : FORR=l 
T012  6:PRINTA$ (R) ; : NEXT : CLST : NEXT 
: F0RR=1T05 : FORT=1TO20 : PRINTFF$ (T 
) ; : NEXT : NEXT :CLS:PRINT@ 40, "CONGR 
ATULATIONS! " :PRINT@169, "YOU'VE  W 
ON  ! ! " :GOSUB5:CLS:GOT0318 

wry 
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Program  by 
  John  and  Pat  Everest 

TP  I  ■  :  

he  old  Silverton  house  has  fascinated  the 
M        residents  of  your  small  community  for  years. 

 '  Many  believe  the  elderly  couple  who  lived  there 

had  hidden  tremendous  amounts  of  money  in 
the  house  before  they  perished  in  an  automobile 
accident. 

They  did  not  have  an  account  in  any  of  the 
local  banks,  nor  did  they  make  any  investments. 
This  was  common  knowledge,  so  the  conclusion 
was  inevitable.  The  only  person  who  knows 
for  sure  is  Durango  Dan,  the  slightly  crazy  old 
man  who  was  employed  as  the  couple's  butler. 

Almost  as  many  stories  abound  about 
Durango  Dan  as  about  where  the  money  might 
be  hidden.  It  is  quite  common  for  passers-by 
to  hear  boisterous  laughter  coming  from  the 
old  mansion  where  he  still  lives.  The  only 
people  who  see  him  are  the  folks  down  at  the 
corner  grocery  where  Durango  Dan  pays  for 
his  monthly  supplies  with  $100  bills. 

Durango  Dan  has  terrorized  curious  children 
who  have  climbed  the  walls  surrounding  the 


house,  threatening  to  lock  them  up  in  the  musty  old  cellar  and  throw  away 
the  key.  City  officials  have  even  been  reluctant  to  send  building  inspectors 
into  the  house  out  of  concern  for  their  personal  safety. 

Then  one  day  a  small  classified  ad  appears  in  the  town  newspaper: 

TREASURE  HUNT 

Calling  all  Adventurers:  Hundreds  of  thou- 
sands of  dollars  can  be  yours  if  you  can 
unlock  the  secrets  of  the  old  Silverton  house. 
The  previous  owners  stated  in  their  will  that 
a  competition  should  be  held  and  that  the 
money  will  go  to  the  finder.  Starts  today. 

So  that's  what  Durango  Dan  has  been  cackling  about  all  these  years.  He's 
been  creating  diversions  and  "red  herrings"  throughout  the  mansion  in 
preparation  for  the  great  hunt. 

You  figure  that  you  have  as  good  a  chance  as  anybody  of  finding  the  money 
since  visions  of  it  have  been  floating  around  in  your  imagination  for  years. 
But  apparently  many  other  persons  have  shared  similar  ambitions  because 
everybody  in  town  appears  to  be  on  hand  when  you  arrive. 

Durango  Dan  sheepishly  explains  over  a  public  address  system  that  one 
person  at  a  time  will  be  allowed  into  the  house  until  the  money  has  been 
found.  "Don't  expect  it  to  be  easy  because  I've  created  some  ingenius  codes 
that  you'll  have  to  crack,"  he  says,  chuckling.  "You'll  either  break  them  or 
they'll  break  you." 

Over  several  days,  disappointed  fortune-hunters  leave  the  house  with 
bewildered  expressions.  Some  are  in  there  for  several  hours;  others  throw 
up  their  hands  after  only  a  few  minutes. 

Finally,  it's  your  turn. 


(John  and  Pat,  the  authors,  live  in  Durango,  Colo.  John  is  an  electronic 
technician.  His  wife,  Pat,  is  a  paramedic.) 
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SLVERTON      32K  ECB 


10  CLS:GOTO3400 

15  CLS3:PRINT@230, »****PLEASE  WA 
IT****" ; 

20  DIMR$  (44)  ,0$  (59)  ,0(59)  ,T(4  ,  43 
)  ,V$(20)  ,V(20) ,K$(3) ,L(43) ,Z$(3) 
,B$(50) 

30  DATABATHROOM ,  TV  ROOM,  GAME  ROO 
M,  OFFICE , CONFERENCE  ROOM, LONG  RO 
OM, CLOSET  ROOM, BEDROOM, AVIARY, TR 
OPHY  ROOM, PANELED  ROOM, GALLERY , 0 
FFICE, BEDROOM, LARGE  ROOM 
40  DATALIBRARY, FAMILY  ROOM, LITTL 
E  ROOM, COMPUTER  ROOM, COLORFUL  RO 
OM, KITCHEN, DINING  ROOM, LONG  HALL 
, LONG  NARROW  HALL, RECEPTION  ROOM 
, LARGE  ROOM, OFFICE, SM  DINING  ROO 
M 

50  DATASMALL  KITCHEN , LAUNDRY  ROO 
M, DEN, SITTING  ROOM, SMALL  BEDROOM 
, STATE  ROOM, SHORT  HALL, BEDROOM, U 
TILITY  ROOM, GARAGE, GREEN  HOUSE, S 
MALL  ROOM, FRONT  ENTRANCE , LIVING 
ROOM, PORCH 

60  DATABATHTUB, 1, SINK, 1, MEDICINE 
CABINET , 1 , TV , 2 , VCR , 2 , TABLE , 2 , GA 
MES , 3 , COUCH , 3 , DESK , 4 , TABLE , 5 , BOW 
L  OF  FRUIT, 5, PIECE  OF  PAPER, 6 
70  DATA 15  NUMBERED  CLOSETS , 7 , BIR 
DS , 9 , CABINETS , 10 , TROPHIES , 10 , STU 
FFED  ANIMALS , 10 , PAINTINGS  TO  N-S 
-W, 12, CURTAINS  TO  W-N-E , 13 , CANOP 
Y  BED, 14 

80  DATADESK, 15, ALCOVE, 15, BOOKCAS 
ES , 16 , FURNITURE , 17 , SHELF, 17 , COLO 
R  COMPUTER, 19 , COLORED  WALLS, 20, T 
ABLE ,21, CHANDELIER ,22, PAINTING , 2 
2 

90  DATAPAINTING ,25, GLASS  CASE, 25 
, DESK, 27 , TABLE , 28 , CONTAINER, 28 , D 
URANGO  DAN, 2  9, 2  CANS , 2 9 , LARGE  BO 
WL, 2 9, MIRROR, 31, CHAIR, 31, WINDOW, 
31 

100  DATAMONITOR ,32, BUNKBEDS , 3  3  ,  N 
OTEBOOK ,34, BED ,36, CHEST ,36, WASHE 
R , 3  7 , WINDOW ,37, PLANTS ,39, WINDOW , 
3  9 , CLOSET , 40 , PICTURE , 40 , WINDOW , 4 
0, FRONT  DOOR, 41, CURTAINS, 4 2, WIND 
OW, 4 2, SCREEN, 4 3, EMBROIDERED  SAMP 
LER,43 

110  DATA0 ,4,0,0,0,5,3,0,0,6,0,2, 
1,8,-1,0,2,0,0,4,3,10,0,0,0,14,- 
1,0,4,0,0,7,0,0,10,0,-4,0,11,9,0 
,-1,0,10,0,0,13,0,0,22,0,0,7,23, 
0,0,0,24,16,0,0,25,0,15,0,-1,18, 
0,11,0,19,17,0,28,20,18,0,0,0,-1 
120  DATA0, 30, 22 ,0, 13 ,0,0, 21, 14 , - 


4,0,0,15,33,0,0,16,0,0,0,-4,35,2 

7,0,0,0,0,-1,19,0,29,0,0,-1,0,28 

,21,0,31,0,0,0,32,-1,-1,39,33,-1 

,24,0,0,32,0,0,35,0,26,-1,0,34,0 

,43,37,0,0,0,38,36,29,0,0,37 

130  DATA32,0,-1,0,0,0,0,39,0,0,4 

2,0,35,0,0,41,36,0,0,0 

140  DATA  TAKE, 1, GET, 1, EXAMINE, 2 , 

LOOK, 2 , READ, 2 , OPEN , 3 , KICK, 4 , ASK, 

5 , USE , 6 , UNLOCK , 7 , TYPE , 8 , MOVE , 9 , P 

USH , 9 , HELP , 10 , VERB ,11, SAY , 12 , TOU 

CH , 13 , DIAL, 14 , PLAY , 15 , INVENTORY , 

16, GOLD  KEY, SILVER  KEY, LEAD  KEY 

150  FOR  X=1T04  3 :READR$ (X) :NEXT 

160  FOR  X=1T058:READ  0$(X),0(X): 

NEXT 

170  FOR  X=1T043:READ  T(1,X),T(2, 

X) ,T(3,X) ,T(4,X) : NEXT 

180  FOR  X=1TO20:READV$ (X) ,V(X) :N 

EXT 

190  F0RX=1T03 : READK$ (X) :NEXT 

200  T$(1)="N0RTHM :T$ (2) ="SOUTH" : 

T$  ( 3 )  ="EAST"  :  T$  ( 4  )  =" WEST 11 

210  R=25:GK=0:SK=0:LK=0:SA=0:CO= 

0 : CC=0 : C=0 : WW=0 : WX=0 : DI=0 : D=0 : KK 

=0:LC=0 

2  20  CLS: PRINT "YOU  ARE  IN  THE  ";R 
$(R) 

230  PRINT: PRINT" YOU  SEE  :"; 
240  FOR  X=1T058:IF  0(X)=R  THEN  P 
RINTTAB(10)O$ (X) 
2  50  NEXT 

2  60  IFR=3 5THENPRINT"A  CARVED  DOO 
R" 

270  PRINT: PRINT"EXITS  LEAD   : " ; 
280  FOR  X=1TO4:IFT(X,R)O0ANDT(X 
,R) <>-2THENPRINTTAB ( 14 ) T$ (X) 
290  NEXT 

300  PRINT: INPUT"WHAT  WOULD  YOU  L 

IKE  TO  DO  NOW  " ;C$ 

310  IF  LEN(C$) >1THEN370 

320  IFC$=llNl,THENC$="NORTH,, 

330  IFC$="S"THENC$="SOUTH" 

340  IFC$="E"THENC$  =  "EAST11 

350  IFC$="W"THENC$="WEST" 

360  GOTO450 

370  F0RX=1T0LEN(C$) :IFMID$(C$,X, 
1)="  "THENA$=LEFT$ (C$ , X-l) : B$=MI 
D$ (C$,X+1) :GOTO405 

3  80  NEXT 

390  IF  C$="NORTH"ORC$="SOUTH"ORC 
$="EAST"ORC$="WESTMTHEN4  50 
400  A$=C$ 

405  IFA$="GO"THENC$=B$:GOTO450 
410  FORX=1TO20:IFV$ (X) =A$THENA=V 
(X) :GOTO440 

4  20  NEXT 
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4  30  PRINT "SORRY  I  DO  NOT  UNDERST 
AND" : GOTO300 

440  ON  A  GOTO620, 720, 1450, 1560,1 

570,1610, 1700, 1930,2070,2170, 22  6 

0,2  320, 2390, 3110, 3190, 2190 

450  F0RX=1T04 : IFC$=T$ (X) THENDR=X 

:GOTO480 

460  NEXT 

470  PRINT"NOT  A  DIRECTION" : GOT03 
00 

480   I  FT  (DR,  R)  >0ANDT  (DR,  R)  O100TH 

ENR=T(DR,R) :GOTO2  20 

490  IFT (DR, R) =0THENPRINT" YOU  CAN 

'T  GO  THAT  WAY": GOTO 3 00 

500  IFT (DR, R) =-lTHENPRINT"A  LOCK 

ED  DOOR  BLOCKS  EXIT" 

510  IFR=32ANDDR=4THENPRINT" THERE 

IS  A  NOTE  ABOVE  A  COMBI 
NATION  LOCK" :GOTO300 
520  IFR=32ANDDR=1THENPRINT"THERE 

IS  A  SIGN  ABOVE  IT":GOTO300 
530  IF  T (DR, R) =0THENPRINT" YOU  CA 
N'T  GO  THAT  WAY":GOTO300 
540  IFR=31THENPRINT"THERE  IS  SOM 
ETHING  STRANGE  ABOUTTHE  DOOR" 
550  IFR=11ANDDR=2THENPRINT"THERE 

IS  AN  ENGRAVED  PLATE  ABOVETHE  D 
OOR" 

560  IFT  (DR,  R)  O-2THEN570 
570  IFT (DR, R) =-4THENPRINT" YOU  NO 
W  FIND  THE  HANDLE  ON  THE     DOOR  B 
ROKEN  AND  NO  WAY  BACK" : GOTO300 
580  IFT(DR,R)=100THEN590ELSE600 
590  CLS:SOUND20, 3 :PRINT"A  TRAP  D 
OOR  OPENS,   YOU  ONCE  AGAIN  FI 

ND  YOURSELF  AT  THE  START" : GOT03 2 
90 

600  'CONTINUE 
610  GOTO300 
620  'GET 

630  IFR=16ANDB$="BOOK"THENPRINT" 
THE  BOOKCASE  MOVED  REVEALING  A 
DARK  PASSAGE  EAST" : T ( 3 , 16 ) =100 : D 
P=1:GOTO300 

640  IFR=22ANDB$=0$ (30)THEN590 
650  IFR=12ANDB$="PAINTING"THENPR 
INT"WHICH  PAINTING  <N>  <S>  <W>  ? 
" ; :GOTO2  650 

660  IFR=28ANDB$=0$ (35) ANDCC=0THE 
NPRINT"YOU  NOW  HAVE  THE  CONTAINE 
R"  : CO=l : CC=1 : 0$ ( 3 5 ) =" " : GOTO300 
670  IFWW=1ANDRIGHT$(B$,4)="SIGN" 
ANDR=3  6THENPRINT" YOU  NOW  HAVE  TH 
E  ";B$:WX=1:GOTO300 
680  IFR=15ANDINSTR ( 1 , B$ , "KEY" ) =1 
ANDLKO3THEN590 

690  IFR=15ANDRIGHT$ ( B$ , 3 ) ="KEY"A 
NDLK=3THENPRINT"THE  KEY  IS  STUCK 
IN  THE  LOCK" :GOTO300 


700  IFR=3  9ANDKK=1ANDRIGHT$ (B$, 3) 
="KEY"THENPRINT"YOU  NOW  HAVE  THE 

SILVER  KEY":SK=1:GOTO300 
710  PRINT "YOU  CAN'T  ";A$;"  THE  " 
;B$:GOTO300 
720  'LOOK 

730  IF  A$=C$THEN220 

740  PRINT"YOU  SEE  :" 

750  IFR=25ANDB$=0$(31)THENPRINT" 

A  GIRL  IN  A  BLUE  DRESS  SITTING 

ON  A  SWING" :GOTO300 

760  IFR=40ANDB$=O$(52)THENPRINT" 

IT'S  A  PICTURE  OF  A  GIRL  IN  A 

RED  DRESS  SITTING  ON  A  STOOL" : GO 

TO300 

770  IFR=5ANDB$="TABLE"THEN1410 
780  IFR=15ANDB$="PENS "THENPRINT" 
THERE  ARE  11  PENS" : GOTO300 
785  IFR=1ANDB$=" CABINET "THENPRIN 
T"AN  EMPTY  CABINET" : GOTO300 
790  IFR=15ANDB$="PAPER"THENPRINT 
"THE  PAPER  SAYS: " :PRINT"BEHIND  T 
HE  CHEST  IS  THE  BACK         HIDDEN  T 
HERE  IS  A  FACT  AN  S-CUR 

VED  SPINE  WITH  TWO 

NOT  ONE  LINE  UNLESS  P 

ERSEVERANCE  YOU  LACK" : GOTO300 
795  IFR=2ANDLEFT$ (B$ , 4 ) ="TAPE"TH 
ENPRINT"FOUR  RECORDED  VIDEO  TAPE 
S" :GOTO300 

800  IFR=15ANDB$="B00K"THENPRINT" 
' ' 7TH  SON  OF  A  7TH  SON ' ' " : GOTO30 
P 

810  IFR=14ANDB$=O$(45)THEN1410 
820  I FR=2 5ANDRIGHT$ ( B$ , 4 ) = " CASE " 
THENPRINT " YOU  SEE  2  3   DOLLS": GOTO 
300 

830  IFR=32ANDB$=0$ (42) THENPRINT" 
THE  MONITOR  HAS  A  BUTTON" : GOTO30 

840  I FR=3 2 ANDB$= "NOTE "THENPRINT" 
R-#A'S     L-#E'S     R-#N'S" :GOTO300 
850  I FR=3 2 ANDB$=" SIGN" THENPRINT" 
SAY  UNCLOSED  SEED" : PRINT"THEN  PR 
OCEED" :PRINT"IF  YOU  LACK": PRINT" 
YOU  CAN'T  GO  BACK" : GOTO300 
860  IFR=5ANDB$="FRUIT"0RB$="B0WL 
"ANDR=5THENPRINT" THERE  ARE  6  ORA 
NGES  IN  THE  BOWL" : GOTO300 
870  IFR=40ANDB$=O$ (51) THENPRINT" 
SOME  GOWNS  AND  SHOES" : GOTO300 
880  IFR=40ANDB$="SHOES "THENPRINT 
"THERE  ARE  8  PAIRS  OF  SHOES" : GOT 
0300 

890  I FR=40ANDB$= "GOWNS "THENPRINT 
"THERE  ARE  8  GOWNS" : GOTO 3 00 
900  IFR=16ANDLEFT$ (B$, 4) ="BOOK"T 
HENPRINT"A  BOOK  ENTITLED    '43  ADV 
ENTURES ' " :GOTO300 
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910  IFR=31ANDB$="D00R"THENPRINT" 
THERE  IS  A  PUSH  BUTTON  PAD  THAT 
LOOKS  LIKE  A  IT  CAME  OFF  A  PHONE 
AND  THERE  ARE  INSTRUCTIONS" : GOTO 
300 

920  IFR=31ANDB$="INSTRUCTIONS"TH 
ENPRINT"TO  OPEN  -  THE  GIRL  IN  TH 
E  BLUE  DRESS  WAS  SITTING  ON  A  # 
-#-#-#-#" :GOTO300 

930  IFR=3ANDB$=0$ ( 7 ) THENPRINT" YO 
U  SEE  SOME  CARD  GAMES  AND  A  MO 
NOPOLY  BOARD" : GOTO 3 00 
940  IFR=3ANDLEFT$ ( B$ , 5 ) ="MONOP"0 
RR=3ANDRIGHT$ (B$ , 5) ="BOARD"THENP 
RINT"THREE  PROPERTIES  HAVE  HOTEL 
S  ON  THEM" :GOTO300 
950  IFR=3ANDLEFT$(B$,5)="PROPE"0 
RR=3ANDLEFT$ (B$ , 4 ) ="HOTE"THENPRI 
NT "THE  PROPERTIES  ARE  KENTUCKY, 
N.  CAROLINA  AND  ATLANTIC" :G 
OTO300 

960  I FR=16ANDB$=" BOOK" THENPRINT" 
YOU  DON'T  HAVE  THE  BOOK" : GOTO300 
970  IFR=15ANDB$="DESK"ANDLK=3THE 
NPRINT"A  LEAD  KEY  IN  THE  DESK" 
980  IFR=15ANDB$=0$ (21)THEN1420 
990  IFR=21ANDB$=0$ (28) THENPRINT" 
IN  A  FINE  COATING  OF  FLOUR  YOU 
SEE  WRITTEN:    'CURSES,  CURTAINS!' 
":GOTO300 

1000  IFR=7ANDLEFT$(B$,4)="CLOS"T 


HENPRINT"A  SIGN  READS:  TO  OPEN  T 
HE  EAST     DOOR  THE  CORRECT  CLOSET 

MUST  BE  OPENED.   THE  NO.   OF  THE 
CLOSET  IS=  TO  THE  SUM  OF  THE  SAF 
E  COMBINATION  DIVIDED  BY  THE  NO. 

OF  WORDSIN  DGO.  DAN'S  AUTOGRAPH 
":GOTO300 

1010  IFB$="WINDOW"THENPRINT"YOU 
SEE  AN  EAGER  CROWD  WAITING     AT  T 
HE  FINISH  LINE" :GOTO300 
1020  IFR=4ANDB$=0$ ( 9 ) THENPRINT"0 
N  THE  DESK  IS  A  PIECE  OF  PAPER  A 
ND  AN  OLD  BLACK  PHONE" : GOTO300 
1030  IFR=4ANDB$="PHONE"THEN1410 
1040  IFR=4ANDB$="PAPER"THENPRINT 
"THE  PAPER  SAYS:    86  6736  843 

3667  3425  1155" : GOTO300 
1050  IFR=6ANDRIGHT$ (B$, 5) =" PAPER 
"THENPRINT "THE  BARELY  LEGIBLE  PA 
PER  SAYS:      ...IS   ...    . NLY  PLAC. 
.N  .SA  WHER.   FOU.   STAT..  .EE 

T  ":GOTO300 

1060  IFR=9ANDB$=0$ (14) THENPRINT" 
YOU  SEE  A  SPARROW,   A  PARAKEET 
A  COCKATOO  AND  A  PARROT" : GOTO 3 00 
1070  IFR=15ANDB$=0$(22)THENGOSUB 
2860:PRINT"AND  BELOW  IS  WRITTEN 
:  THE  KEY  IS  THREE!": PR 

INT"TINONGTGTATHKHEEELTSEHIAELDG 
VKOEELRYDKSKEAEYYYSSSAIAYNYKGRI " 
:GOTO300 

1080  IFR=31ANDB$=0$ (39) THENPRINT 
"THE  MIRROR  IS  CLOUDY" : GOTO300 
1090  IFR=12ANDLEFT$ (B$ , 4 ) ="PAIN" 
THENPRINT "WHICH  PAINTING  <N>  <S> 

<W>  ?" ; :GOTO2590 
1100  IFR=2  2ANDB$=0$ (30) THENPRINT 
"YOU  SEE  A  PAINTING  SLIGHTLY  AJA 
R" : GOTO300 

1110  IFR=13ANDLEFT$ (B$ , 4 ) ="CURT" 
THENPRINT "CLOSED  CURTAINS" : GOT03 
00 

1120  IFR=12ANDSA=1ANDB$="SAFE"TH 
ENPRINT"YOU  FIND  A  PICTURE  OF  DG 
0  DAN       WITH  THIS  WRITTEN  ON  IT 
:  VIY  MIBLC,   ABBY  WRALC,  T 

RECES       THIN,   TROBHOAM  LAWL 

LOVE,   DURANGO  DAN": GOTO 3 

00 

1130  IFR=12ANDB$="SAFE"ANDSA=0TH 
ENPRINT"THE  SAFE  IS  LOCKED": GOTO 
300 

1140  I FR=1ANDB$=" WALL" THENPRINT" 
ON  THE  WALL  IS  SCRIBBLED 
SILVER  IS  THE  KEY  AND  FOR  A 

GOOD  TIME  CALL  303-259-5880" : GOT 
0300 

1150  IFR=10ANDB$=O$ (16) THENPRINT 
"YOU  SEE  72  TROPHIES" :GOTO300 
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1160  IFR=10ANDLEFT$ (B$ , 4 ) ="ANIM" 
ORB$=0$ ( 17 ) ANDR=10THENPRINT"THER 
E  IS  A  BEAR,   A  DEER,   AN  ELK, A  LI 
ON,  AND  A  TIGER" :GOTO300 
1170  IFR=11ANDLEFT$ (B$ , 4) ="ENGR" 
ORB$=" PLATE " ANDR=1 1THENPRINT " TO 
UNLOCK  THE  DOOR  ANSWER  THE  ELK 
•S  QUESTION" :GOTO300 
1180  IFR=19ANDB$="COMPUTER"THENP 
RINT"THE  COCO  IS  ON  AND  THE  CURS 
OR  ISFLASHING" :GOTO300 
1190  IFLEFT$ (B$ , 4 ) ="UNDE"THENPRI 
NT "TRY  MOVING  SOMETHING" : GOTO300 
1200  IFR=2 0ANDLEFT$ ( B$ , 4 ) = "WALL" 
THENPRINT " THE  WALLS  ARE  COLORED 
AS  FOLLOWSN-GREEN     S-BLUE  E-RED 

W-YELLOW" : PRINT : PRINT"A  VOICE 
SAYS-TO  ESCAPE,   TOUCH       ONLY  THE 
SE  WALLS  IN  THIS  ORDER  ATLANTIC 
, KENTUCKY , N .   CAROLINA" : GOTO300 
1210  IFR=28ANDB$="TABLE"THEN1410 
1220  IFC0=1ANDLEFT$ ( B$ , 4 ) =" CONT " 
ORR=2  8ANDB$=0$ (35) THENPRINT" THE 
CONTAINER  READS-DO  NOT  OPEN  UNTI 
L  ABSOLUTELY  NECESSARY" : GOTO300 
1230  IFR=29ANDB$=" CANS "THENPRINT 
"THE  TWO  CANS  ARE  FILLED  WITH 

WATER" :GOTO300 
1240  IFR=36ANDB$="CHEST"THENPRIN 
T"THE  CHEST  HAS  FOUR  DRAWERS": GO 
TO3130 

1250  IFR=3  6ANDLEFT$(B$,4)="DRAW" 
THEN3130 

1260  IFR=43ANDRIGHT$(B$,4)="PLER 
"THENPRINT "THE  SAMPLER  :  ";"= 
======" : PRINTTAB ( 17 ) " :  KT  : " : PR 

INTTAB(17) " :  C  S  :": PRINTTAB ( 17 ) 
":  E  E  :":PRINTTAB(17) ":  H  H  :": 
PRINTTAB ( 17) " :  C  C  :": PRINTTAB ( 1 
7 )":::::::" : PRINTTAB ( 17 ) " !  !  !  ! 
":GOTO300 

1270  IFR=17ANDB$="SHELF"THENPRIN 
T"YOU  SEE  A  KEYBOARD  AND  A  DIARY 
":GOTO300 

1280  IFR=17ANDDI=0ANDB$="DIARY"T 
HENPRINT " THE  FIRST  PAGE  OF  THE  D 
IARY  SAYS": PRINT "TO  OPEN  DOOR  TY 
PE  THE  FIRST  LETTER  OF  EACH 

STATE  IN  ALPHABETICAL  OR 

DER  ":DI=1:GOTO300 

1290  IF  DI>0ANDR=17ANDB$=" DIARY" 

THENPRINT"  THE  DOOR  IS  CARVE 

D  WITH         SHAPES  OF  STATES.  YOU 
ONLY  NEED  TO  TYPE  THESE  STATES." 
:GOTO300 

1300  IFR=27ANDPP=1ANDB$="PAPER"T 
HENPRINT"TYPE  DURANGO  AND  YOU  CA 
N  GO":GOTO300 

1310  IFR=27ANDB$=" DESK" THENPRINT 


"YOU  SEE  A  LAMP  AND  A  TYPEWRITER 
" :GOTO300 

1320  IFR=35ANDRIGHT$(B$,4)="DOOR 
" THENPRINT " THE  SOUTH  DOOR  LOOKS 

LIKE  THIS  *"*PRINT"  *-- 

*  *  -*  ***  *-  -* — * — * 

1330  IFR=34ANDB$=0$ (44) THENPRINT 
"THE  NOTEBOOK  SAYS  -" : PRINT "REME 

MBER    CURSES,    CURTAINS" : GOT03 

00 

1340  IFR=17ANDB$="DOOR"THEN2440 
1350  IFR=3 9ANDKK=1ANDB$= " DOOR" AN 
DSK<>1THENPRINT"A  SILVER  KEY  IS 
IN  THE  DOOR":GOTO300 
1360  IFR=2ANDB$="TABLE "THENPRINT 
"ON  THE  TABLE  YOU  SEE  FOUR  VIDEO 

TAPES": GOTO 3 00 
1365  IFR=17ANDLEFT$ (B$ , 4) ="TYPE" 
THEN1410 

1370  IFR=27ANDB$=" LAMP" THENPRINT 

"THE  LAMP  IS  ON":GOTO300 

1375  IFB$="DOOR"THEN1410 

1380  F0RX=1T058:IFB$=0$(X)THENM= 

1:GOTO1400 

1390  NEXT 

1400  IFO(X)OR  ANDM=1THENPRINT" I 
DO  NOT  SEE  IT  HERE" :M=0 : GOTO300 
1410  PRINT"NOTHING  UNUSUAL" : GOTO 
300 

1420  PRINT 11  THE  ";B$; 
1430  IFL (R) =0THENPRINT"  IS  LOCKE 
D"ELSEPRINT"   IS  OPEN" : GOTO1890 
1440  GOTO300 

1450  IFR=15ANDB$=O$(21)THEN1540 
1460  IFR=7ANDLEFT$(B$,6)="CLOSET 
"THENINPUT"WHICH  CLOSET  NO.  ";CN 
:GOTO2980 

1470  IFR=13ANDLEFT$ (B$ , 4) ="CURT" 
THENPRINT"WHICH  CURTAIN  <E>  <W> 
<N>  ?"; :GOSUB2720:GOTO2750 
1480  IFR=35ANDLEFT$ (B$ , 4) ="CONT" 
ANDCO=1ANDC=0ANDLC=1THENPRINT"YO 
U  FIND  A  PIECE  OF  PAPER  -": PRINT 
"A:*-    E:*     L:*-**     T:-     P:* — * 

S:***    0:   N:-*    Y:-* — ":GOT 

0300 

1490  IFB$=0$ (35) ANDCO=0THENPRINT 
"YOU  DON'T  HAVE  THE  CONTAINER" :G 
OTO300 

1495  IFLEFT$ (B$ , 4 ) ="C0NT"ANDC=1A 
NDLC= 1THENPRINT " YOU  SEE  AN  EMPTY 

CONTAINER" : GOTO300 
1500  IFR<>35ANDLEFT$(B$,4)="CONT 
" ANDCO= 1ANDLC= 1THENPRINT " YOU  SEE 

A  PIECE  OF  PAPER  BUT,  BEFORE 
YOU  CAN  READ  IT  IT  BURNS  IN  A  FL 
ASH  OF  SMOKE" :C=l:GOTO300 
1510  IFR=36ANDLEFT$(B$,4)="DRAW" 
THENPRINT" WHICH  DRAWER  <1>  <2>  < 
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3>  <4>  ?":GOTO3050 

1520  IFR=4  2ANDB$=0$ (55) THEN590 

1530  IFR=1ANDRIGHT$  (B$  ,  4 )  =IIINET11 

THENPRINT" IT  IS  EMPTY"  :  GOTO300 

1540  PRINT "THE  " ;B$+"  IS  LOCKED" 

:GOTO300 

1550  PRINT" YOU  CAN'T  OPEN  THE  "; 
B$:GOTO300 

1560  PRINT"HOW  WOULD  YOU  LIKE  IT 
IF  A  ";B$;"  WERE  TO  KICK  Y 

OU  ?":GOTO300 

1570  I FR=9ANDB$=" COCKATOO "THENPR 
INT"THE  BIRD  CACKLES   ...FREEZE  W 

ATERFREEZE  WATER  ":GOTO300 

1580  I FR=  1,0 ANDB$=" ELK" THENPRINT" 
THE  ELK  SAYS  -  ANSWER  THIS  AND 
REMEMBER,   HOW  MANY  CUBIC  FEET  OF 
DIRT  IN  A  HOLE  7'   X  14'   X  31  ?": 
GOTO300 

1590  IFR=2  9ANDRIGHT$(B$,3)="DAN" 
THENPRINT" I  WILL  UNLOCK  THE  SOUT 
H  DOOR  FORYOU  IF  YOU  CAN  TELL  ME 
HOW  I  CANPUT  THE  CONTENTS  OF  TH 
E  TWO  CANSINTO  THE  BOWL  AND  STIL 
L  TELL  THEM  APART"  :  GOTO 302 0 
1600  PRINT "THE  ";B$;"  DOESN'T  AN 
SWER" :GOTO300 

1610  FORL=lTOLEN(B$) 

1611  IFINSTR (L, B$ , "KEY" ) >0THEN16 
20 

1612  NEXT 

1615  IFLEFT$ (B$, 3) <>"KEY"THENPRI 
NT" IT  DOES  NOT  HELP  TO  USE  THE 

";B$;"  HERE" : GOTO 300 
1620  INPUT"WHICH  KEY  ";Z$ 
1630  IFSK=0ANDLEFT$(Z$/4)="SILV" 
THEN1690 

1640  IFLK=0ANDLEFT$ (Z$, 4) ="LEAD" 
THEN1690 

1650  IFGK=0ANDLEFT$ ( Z$ , 4 ) ="GOLD" 
THEN1690 

1660  IFLEFT$(Z$,4)="SILV"ANDR=41 
THEN3300 

1665  IFLEFT$(Z$,4)="LEAD"ANDR=15 
THEN1880 

1670  IFC0=1ANDLEFT$ (Z$ , 4 ) ="GOLD" 
ANDR<>41THENPRINT"THE  CONTAINER 
IS  NOW  UNLOCKED" : LC=1 : GOTO300 
1680  PRINT"IT  DOESN'T  WORK  HERE" 
:GOTO300 

1690  PRINT "YOU  DON'T  HAVE  THE  "; 
Z$:GOTO300 

1700  IFR=15ANDB$=O$(21)THEN1810 
1710  IFR=39ANDB$="DOOR"THEN1810 
1720  IFR=32ANDB$="DOOR"THENINPUT 
"WHICH  DOOR  <N>  OR  <W>  ";Q$:GOTO 
2510 

1730  I FR=4ANDB$=" DOOR" THENPRINT" 
HOW  ?":GOTO300 


1740  I FR=31ANDB$=" DOOR" THENPRINT 
"HOW?" : GOTO 3 00 

1750  IFR=12ANDB$="SAFE"THEN2790 
1760  IFR=11ANDB$="DOOR"THEN3000 
1770  IFR=41ANDB$="DOOR"THENPRINT 
"HOW" :GOTO300 

1780  I FCO< > 1ANDB$= " CONTAINER" THE 
NPRINT"YOU  DON'T  HAVE  THE  ";B$:G 
OTO300 

1790  IFC0=1ANDB$=" CONTAINER" THEN 
PRINT"HOW  ?":GOTO300 
1800  PRINT"HOW?  ORDINARY  METHODS 
LIKE  USINGKEYS  WILL  NOT  WORK  HE 
RE" :GOTO300 

1810  INPUT"WITH  WHAT";Z$ 

1820  IFGK=0ANDZ$=K$ (1)THEN1910 

1830  IFSK=0ANDZ$=K$(2)THEN1910 

1840  IFLK=0ANDZ$=K$ (3)THEN1910 

1850  IFR=39ANDSK=1ANDZ$=K$(2)THE 

NPRINT"THE  DOOR  OPENS" : T (3 , 39) =4 

0 : SK=0 : KK=1 : GOTO300 

1860  IFR=15ANDLK=1ANDZ$=K$ ( 3 ) THE 

N1880 

1870  PRINT"IT  WON'T  WORK  HERE" : G 
OTO300 

1880  PRINT "THE  DESK  OPENS  REVEAL 
ING  SOME":L(R)=1:GOTO1900 
1890  PRINT "THERE  ARE  SOME  "; 
1900  PRINT" PENS, A  PIECE  OF  PAPER 

AND  A  BOOK" :LK=3 :GOTO300 
1910  PRINT"YOU  DON'T  HAVE  THE  "; 
Z$:GOTO300 
1920  L(R)=l:GOTO300 
1930  IFR=19ANDB$=" RUN "THENPRINT" 
ON  THE  SCREEN  APPEARS  -":PRINT"0 
NE  THING  IN  COMMON" : PRINT" YOU  CA 
N  SEE" : PRINT"THESE  LETTERS  HAVE" 
: PRINT "LOOK  UNDER  ME" : PRINT : PRIN 
T"         Z  X  C  V  B  N  M":GOTO300 
1940  IFR=17THEND=0:GOTO2000 
1950  I FR=2  7ANDB$="DURANGO" THENPR 
INT "THE  WEST  DOOR  IS  NOW  OPEN":T 
(4,27)=26:GOTO300 

1960  IFR=27THENINPUT"TYPE  WHAT  " 
;Z$:GOTO1980 

1970  PRINT" YOU  CAN'T  TYPE  HERE": 
GOTO300 

1980  IFZ$="DURANGO" THENPRINT" THE 
WEST  DOOR  IS  NOW  OPEN" : T ( 4 , 27 ) = 
26:GOTO300 

1990  PRINT "SORRY  IT  DOESN'T  HELP 

TO  TYPE",  Z$; 11  HERE"  :GOTO300 
2000  PRINT " LETTER  PLEASE  "; 
2010  D=D+1 

2020  B$ (D) =INKEY$ : IFB$ (D) =" "THEN 
2020 

2030  PRINTB$(D) 

2040  IFB$ ( 1) ="A"ANDB$ (2 ) ="C"ANDB 
$ ( 3 ) ="N" ANDB$ ( 4 ) ="U" THENPRINT "TH 
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E  SOUTH  DOOR  IS  NOW  OPEN" :T (2, 17 
)=26:GOTO300 

2050  I FD=> 50THENPRINT " YOU  DIDN'T 
HAVE  TO  TYPE  ALL  50     STATES,  T 
HE  ANSWER  ONLY  HAS  4     STATES  IN 
IT" : FORPP=1TO3000 : NEXT : GOTO590 
2060  GOTO2000 

2070  I FR=3 2 ANDB $=" BUTTON " THENCLS 
:PRINT"A  MESSAGE  READS  :":PRINT: 
PRINTTAB(15) "A" : PRINTTAB ( 13 ) "PEN 
NY":PRINTTAB(11) "SAVED  IS  A":PRI 
NTTAB (9) "A  PENNY  EARNED" : F0RX=1T 
03  50)3:  NEXT  :CLS:GOTO220 
2080  IFR=31ANDLEFT$(B$,6)="BUTTO 
N"THEN2910 

2090  IFR=31ANDB$="PAD"THEN2910 
2100  IFR=22ANDB$=O$(30)THEN590 
2110  IFR=12ANDLEFT$ (B$ , 4 ) ="PAIN" 
THEN650 

2120  IFR=19ANDB$="C0MPUTER"THENP 
RINT"NICE  TRY,   BUT  NOTHING  UNDER 

THE  COMPUTER" :GOTO300 
2130  IFR=17ANDB$="KEYB0ARD"THENP 
RINT"NICE  TRY,   BUT  NOTHING  HERE" 
:GOTO300 

2140  IFR=27ANDB$="TYPEWRITER"THE 
NPRINT"YOU  FIND  A  PIECE  OF  PAPER 
UNDER  THE  TYPEWRITER" : PP=1 : GOTO 
300 

2150  IFR=3  6ANDB$="CHEST"THENPRIN 
T"YOU  FOUND  A  PLASTIC  DOLLAR  SIG 
N  TAPED  TO  THE  BACK  OF  THE  CHEST 
":WW=l:GOTO300 

2160  PRINT "YOU  CAN'T  ";A$;"  THE 

";B$:GOTO300 

2170  'HELP 

2180  CLS: PRINT "YOU* RE  SUPPOSED  T 

0  BE  A  BIG  TIMEADVENTURER,    BUT  I 

F  YOU  NEED  HELPTYPE  <VERB>  TO  GE 

T  A  VERB  LIST" :GOTO300 

2190  PRINT"YOU  HAVE  :   "  ; 

2200  IFLK=1THENPRINTTAB ( 11) "A  LE 

AD  KEY" 

2210  IFSK=1THENPRINTTAB ( 11) "A  SI 
LVER  KEY" 

2220  IFGK=1THENPRINTTAB ( 11) "A  GO 
LD  KEY" 

2230  IFC0=1THENPRINTTAB ( 11) "A  LA 
RGE  CONTAINER" 

2240  IFWW=1THENPRINTTAB ( 11) "$$  D 
OLLAR  SIGN  $$" 
2250  GOTO300 
2260  'VERB 

2270  CLS:PRINT@8, "**VERB  LIST**" 
: PRINT 

2280  FORX=1TO20:PRINTV$ (X) , : NEXT 
2290  PRINT@449,"     PRESS  ANY  KEY 
TO  CONTINUE" 

2300  IF  INKEY$=""THEN2300 


2310  GOTO220 

2320  IFR=15ANDB$="RING"THENPRINT 
"YOU  NOW  HAVE  THE  GOLD  KEY" : GK=1 
:GOTO300 

2330  IFR=15ANDB$="KING"THENPRINT 
"YOU  NOW  HAVE  THE  SILVER  KEY" : SK 
=1:GOTO300 

2340  IFR=15ANDB$="SING"THENPRINT 
"YOU  NOW  HAVE  THE  LEAD  KEY" : LK=1 
:GOTO300 

2350  IFR=32ANDB$="UNCLOSED  SEED" 
THENPRINT " DO  NOT  TAKE  THE  STATEM 
ENT  WORD  FOR  WORD,  THIS  IS  A  PU 
ZZLE":GOTO300 

2360  IFR=32ANDB$="OPEN  SESAME"TH 

ENPRINT"THE  DOOR  NORTH  DOOR  OPEN 

S":T(1,32)=23:GOTO300 

2370  IFR=3  5ANDB$="PLEASE"THENPRI 

NT "THE  SOUTH  DOOR  IS  NOW  OPEN":T 

(2,35)=42:GOTO300 

2380  PRINT" IT  WON'T  HELP  TO  SAY 

";B$:GOTO300 

2390  IFR<>20THENPRINT"IT  DOESN'T 

HELP  TO  TOUCH  THE" , B$ : GOTO300 
2400  F0RX=1T03 

2410  PRINT"NO.   ";X;"     WHICH  WALL 
": INPUT"  <N>  <S>  <E>  <W>";Z$(X) 
2420  NEXT 

2430  IFZ$ (1) ="W"ANDZ$ (2 ) ="E"ANDZ 
$ ( 3 ) = " N " THENPRINT " THE  WEST  DOOR 
OPENS" : T ( 4 , 20 ) =19 : GOTO300ELSE590 
2440  CLS : PRINT"THE  DOOR  IS  CARVE 
D  LIKE  THIS  -": PRINT 
2450  F0RM=1T05 

2460  PRINTTAB(16) CHR$ (138) : NEXT 
2470  PRINTTAB(7)STRING$(9,140) ;C 
HR$(136) ;STRING$(9,140) 
2480  F0RM=1T05 

2490  PRINTTAB ( 16 ) CHR$ (138) : NEXT 

2500  GOTO300 

2510  IFQ$="W"THEN2530 

2520  IFQ$="N"THEN300 

2530  PRINT" COMBINATION  LOCK" 

2540  INPUT "RIGHT  " ;A 

2550  INPUT "LEFT  ";B 

2560  INPUT "RIGHT  ";C 

2570  IFA=5ANDB=5ANDC=5THENPRINT" 

THE  DOOR  OPENS":T(4,32)=31:GOT03 

00 

2580  PRINT" SORRY  THAT  IS  WRONG": 
GOTO 3 00 

2590  Q$=INKEY$:IFQ$=""THEN2590 
2600  PRINTQ$ 

2610  IFQ$o"N"ANDQ$o"S"ANDQ$<>" 
WTHEN1090 

2620  IFQ$="N"THENPRINT"IT'S  A  PA 
INTING  OF  A  WINDOW  WITHSOME  VELV 
ET  CURATINS":GOTO300 
2630  IFQ$="W"THENPRINT"THE  PAINT 
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ING  IS  OF  A  BROWN  DOG" : GOTO300 

2640  IFQ$=MS"THENPRINT"THE  PAINT 

ING  IS  OF  A  SPOTTED  COW" : GOTO300 

2650  Q$=INKEY$:IFQ$=""THEN2650 

2660  IFQ$="N"THEN590 

2670  IFQ$="W"THENPRINT"YOU  FIND 

A  SAFE": GOTO 300 

2680  GOTO710 

2690  KL$=LEFT$(C$,4) 

2700  KR$=RIGHT$ (C$, 3) 

2710  RETURN 

2720  Q$=INKEY$:IFQ$=""THEN2720 
2730  PRINTQ$ 

2740  IFQ$<>"N"ANDQ$<>I,S"ANDQ$<>" 
E"ANDQ$o"W"THENPRINT"NOT  A  DIRE 
CTION" : PRINT" DIRECTION  <N>  <S>  < 
E>  <W>  ? " : GOT02 7 2 0ELSERETURN 
2750  I FQ $ = " S " THENPRINT " THERE  IS 
NO  CURTAIN  THERE": GOTO 14 70 
2760  IFQ$="N"THEN590 
2770  I FQ $= " E " THENPRINT " YOU  SEE  A 
WALL  WITH  FOLLOWING   :   TO  OPEN  S 
AFE  : " : PRINT "L-DOLLS,  R-SON  X  SO 
N,   L-PENS,       R-SHOES" :GOTO300 
2780  IFQ$="W"THENPRINT"YOU  FIND 
A  PASSAGE  LEADING  WEST" : T (4 , 13 ) = 
12:GOTO300 

2790  PRINT" COMBINATION  LOCK" 
2800  INPUT" LEFT  " ;A 
2810  INPUT"RIGHT  ";B 
2820  INPUT "LEFT  ";C 


2830  INPUT"RIGHT  ";D 
2840  IFA=23ANDB=49ANDC=11ANDD=16 
THENPRINT " THE  SAFE  OPENS  ":SA=1: 
GOTO 3 00 

2850  PRINT "SORRY  WRONG  COMBINATI 
ON" :GOTO300 

2860  IF  GK=0THENPRINTK$ (1) ;"  " 

2870  IF  SK=0THENPRINTK$ (2) ;"  " 

2880  IF  LK=0THENPRINTK$ ( 3 ) ; "  " 

2890  IFGK>0ANDSK>0ANDLK>0THENPRI 
NT "THREE  EMPTY  KEY  HOOKS" : GOTO30 

2900  PRINT: RETURN 

2910  PRINT"NUMBERS  PLEASE" 

2920  F0RX=1T05 

2930  P$ (X) =INKEY$ : IFP$ (X) =" "THEN 
2930 

2940  PRINTP$ (X) ; :NEXT 

2950  PP$=P$(1)+P$(2)+P$(3)+P$(4) 

+P$(5) 

2960  P=VAL(PP$) :IFP=79464THENPRI 
NT: PRINT "THE  DOOR  OPENS" : T (4 , 31) 
=30:GOTO300 

2970  PRINT: PRINT "SORRY  WRONG  NUM 
BER" : GOTO300 

2980  IFCN=9THEN2990ELSE590 

2990  T( 3, 7) =8: PRINT" CORRECT,  THE 

DOOR  IS  NOW  OPENED" :GOTO300 
3000  INPUT "ENTER  NUMBER  PLEASE  " 

;z 

3010  IFZ=0THENPRINT"THE  SOUTH  DO 
OR  OPENS" : T (2 , 11) =18 : GOTO300ELSE 
PRINT "SORRY  THE  NUMBER  DOES  NOT 
WORK     HERE " : GOTO  300 
3020  INPUT "IN  TWO  WORDS  INPUT  YO 
UR  ANSWER" ;Z$ 

3030  IFZ$o"FREEZE  WATER" THENPRI 
NT "SORRY  THAT'S  NOT  RIGHT" :GOT03 
00 

3040  PRINT "CORRECT-  DURANGO  DAN 
PULLS  A         SKELETON  KEY  FROM  HIS 
JACKET  ANDOPENS  THE  SOUTH  DOOR" 
:T(2,29)=38:GOTO300 
3050  INPUTZ 

3060  IFZ=1THENPRINT"Y0U  SEE  6  SO 

CKS,   3  SHIRTS,   AND     2  BELTS  IN  T 

HE  TOP  DRAWER": CD ( 1) =1 : GOTO300 

3070  IFZ=2THENCD(2)=2:PRINT"THE 

DRAWER  IS  EMPTY" :GOTO300 

3080  IFZ=3THENPRINT"YOU  SEE  2  BL 

ANKETS" : CD ( 3 ) =3 : GOTO 3 00 

3090  IFZ=4THENPRINT"YOU  SEE  A  NU 

MBER  OF  SPINAL  VERTABRAE" : C 

D(4)=4:GOTO300 

3100  PRINT "THERE  WAS  ONLY  4  DRAW 
ERS":GOTO300 
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3 lip  IFR=4ANDB$=" 1155 "THENPRINT" 
THE  EAST  DOOR  OPENS" : T ( 3 , 4 ) =5 : GO 
TO300 

3120  PRINT "SORRY  WRONG  NUMBER" :G 
OTO300 

3130  F0RI=1T04 

3140  PRINT " DRAWER  NO.";I;"  IS  " ; 
3 150  IFCD  ( I )  <>0THENPRINT"OPEN"EL 
SEPRINT"CLOSED" 
3160  NEXT 
3170  GOTO300 

3190  I FR< > 2 THENPRI NT "IT  DOESN'T 
HELP  TO  PLAY  THE  ":PRINTB$;"  HER 
E" :  GOTO300 

3200  IFLEFT$  (B$  ,  4 )  ="TAPE "THENPRI 

NT"WHICH  TAPE  ?"; 

3210  Q$=INKEY$:IFQ$=""THEN3210 

3220  Q=VAL(Q$) 

3230  PRINTQ 

3240  IFQ<10RQ>4THENPRINT"THERE  A 
REN'T  THAT  MANY  TAPES" : PRINT "WHI 
CH  TAPE": GOTO 3 2 10 

3250  IFQ=1THENPRINT"Y0U  SEE  SEVE 
RAL  EPISODES  OF  GILLIGAN'S  I 

SLAND":GOTO300 

32  60  I FQ=2 THENPRINT "DGO  DAN  APPE 
ARS  ON  THE  SCREEN  AND  SAYS  :": 
PRINT "YOU  ARE  HALF  WAY  THERE": PR 
INT"SO  DON'T  DESPAIR" : PRINT" IT'S 
ABSURD": PRINT "BUT  ASK  THE  BIRD" 
: GOTO 300 

3270  IF  Q=3 THENPRINT "YOU  SEE  THE 

MOVIE   ' 'STAR  WARS' ,M:GOTO300 
3280  IFQ=4THENPRINT"YOU  SEE  SEVE 
RAL  EPISODES  OF  I  LOVE  LUCY" 

:GOTO300 

3290  PRINT@418 , "TO  START  OVER  PR 
ESS  <ENTER>" : INPUTX: CLEAR: GOTO20 
3300  I FWX= 1THENPRI NT " CONGRATULAT 
IONS  YOU  MADE  IT  THROUGH  THE 

SILVERTON  HOUSE  WITHTHE  DOLLAR 
SIGN. ": PRINT" YOU  LEAVE  DURANGO  W 
ITH  RICH  REWARDS.   YOU  TRULY 

ARE  A  GREAT     ADVENTURER" : END 
3310  PRINT" YOU  MADE  IT!  HOWEVER 
YOU  HAVE     BEEN  DISQUALIFIED.  AS 
YOU  DIDN'TRETURN  WITH  THE  DOLLA 
R  SIGN  HIDDEN  WITHIN  THE  HOU 

SE": PRINT: PRINT "PLAY  AGAIN  ?" 
3320  Z$=INKEY$:IFZ$=""THEN3320 
3330  I F Z  $= " Y " THENRUN 
3340  I F Z $= " N " THENEND 
3350  GOTO3320 

3400  PRINT" $$$$$  SILVERTON  ADVEN 

TURE  $$$$$$»; 

3410  PRINTSTRING$(32,61) 

3420  PRINT "BEING  ONE  OF  THE  TOP 

ADVENTURERS O F  THIS  CENTURY  YOU  H 

AVE  BEEN       INVITED  TO  THE  FIRST 


PUZZLERS  ADVENTURE  GA 


GOAL  IS  SIMPL 
SILVERTON  HOU 
SLIGHTLY  CRAZ 
NAME  OF  DURAN 
DOLLAR  SIGN  H 
HOUSE  AND  EXI 
CROWD  OUTSIDE 


DURANGO 
ME .  "  ; 

3430  PRINT"  YOUR 
E.   ENTER  THE 
SE,   OWNED  BY  A 
Y  OLD  MAN  BY  THE 
GO  DAN,   FIND  A 
IDDEN  WITHIN  THE 
T  TO  A  WAITING 

THE  HOUSE  " 

3440  GOSUB4000 

3450  CLS: PRINT: PRINT"  TOP  H 

ONORS  GO  TO  THE  MOST  PERSISTENT 
AND  PUZZLE  HAPPY  PERSON  WHO 

CAN  SOLVE  THE  PUZZLES AND  PROCEED 
WITHOUT  ENDING  UP       BACK  AT  THE 
BEGINING. " 
3460  PRINT"  IN  THIS  GAME  DI 

RECTIONS       CAN  BE  GIVEN  AS:  EXAM 
PLE  <NORTH><GO  NORTH>  OR  <N>.  MO 
ST  OTHER       COMANDS  WILL  BE  TWO  W 
ORDS  OR         LESS:   EXAMPLE  <LOOK> 
<LOOK  DESK><HELP>  <GET  KEY>." 
3470  PRINT"  GOOD  LUCK!!":PR 

INT"P.S.  A  PIECE  OF  PAPER  MIGHT 
COMEIN  HANDY. " :GOSUB4000: GOTO 15 
4000  PRINT@482, "<PRESS  ANY  KEY  T 
0  CONTINUE>"; 

4010  J$=INKEY$:IFJ$=""THEN4010 
4020  SOUND175,3:RETURN  /X\ 
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TMFOFP/RLOC 


  Program  by  Mike  Fahy 

r-p   .  

here  once  was  a  time  when  your  ancestors,  the 
JL.       Gastons,  were  among  the  wealthiest  and  most 

 influential  families  in  the  known  world.  They 

were  powerful  because  they  were  in  possession 
of  precious  jewels  that  had  been  handed  down 
through  the  ages. 

Any  treasure  of  such  magnitude  is  destined 
to  attract  the  greedy  and  when  it  became 
obvious  that  an  attempt  would  be  made  to  steal 
the  jewels,  the  head  of  the  family  ordered  them 
hidden  within  the  mansion  walls.  That  duty 
fell  to  Rebecca,  the  oldest  and  most  trusted 
daughter. 

The  inevitable  assault  on  the  Gastons  was 
led  by  the  Dirlocs,  a  rival  family,  which  had 
been  eyeing  the  jewels  for  years.  Upon  learning 
that  the  jewels  were  to  be  sealed,  the  Dirlocs 
launched  a  merciless  attack,  slaying  anyone 
who  dared  stand  in  their  way  and  inflicting 
massive  damage  to  the  mansion.  After  a  few 
short  hours,  the  Gastons  were  driven  from  their 
home,  broken  and  penniless. 
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The  Dirlocs  assumed  the  power  position  formerly  held  by  the  Gastons  but 
never  the  respect  of  the  natives  —  first,  because  of  the  way  they  took  control 
and,  secondly,  because  the  Dirlocs  were  never  able  to  find  the  jewels.  They 
are  still  hidden  in  the  mansion  today  where  they  were  secreted  by  Rebecca 
before  she  was  seized.  The  Gastons  have  since  changed  their  name  to  Liton. 

Centuries  later,  you,  as  the  lone  surviving  descendant,  have  decided  that 
it  is  time  to  restore  the  family's  honor.  The  stories  your  great  grandmother 
related  to  you  during  your  childhood  have  prepared  you,  you  believe,  for 
what  lies  ahead. 

Armed  only  with  a  small  pouch  of  food,  you  enter  the  mansion  in  search 
of  what  is  rightfully  yours.  As  you  begin  your  exploration  in  the  strange 
and  eerie  corridors,  the  heavy  entrance  doors  slam  shut,  separating  you  from 
the  rest  of  the  world.  The  doors  have  been  mysteriously  bolted  from  the 
outside,  leaving  you  no  choice  but  to  wander  in  the  darkness  to  find  another 
means  of  escape. 

As  the  Adventure  begins,  you  are  in  the  House  of  Dirloc,  suddenly  feeling 
completely  unprepared  for  the  many  dangers  locked  up  in  the  three-story 
mansion.  You  may  use  N,  S,  E,  W,  U  and  D  for  directions  while  collecting 
clues,  miscellaneous  items  and  the  precious  jewels  —  a  giant  gem  and  a  diamond 
pendant. 

If  your  computer  has  a  disk  drive  attached,  you  should  unplug  the  disk 
controller  in  order  to  prevent  an  OM  Error.  Once  you  have  loaded  the  program, 
run  it.  You  will  be  instructed  to  wait  while  the  Adventure  is  being  set  up. 
It  is  possible  to  save  or  load  a  game  at  any  time. 

The  following  verbs  may  be  used:  CLIMB;  KILL;  READ;  CUT;  LIST; 
SAVE;  DROP;  LOAD;  SAY;  EXAM;  LOOK;  THROW;  FEED;  OPEN; 
TOUCH;  GET;  PLAY;  TURN;  HIT;  PULL;  UNLOCK;  INVENT;  PUT; 
YELL;  KICK  and  QUIT. 


(Mike  Fahy,  of  More  head  City,  N.C.,  is  an  llth-grade  student  at  West 
Carteret  High  School.) 


Caution  —  Packed  Lines!! 

Some  of  the  lines  in  this  program  may  be  too  long  to  enter  in  a  normal  fashion.  If  the  CoCo  stops  accepting 
characters,  press  ENTER,  go  into  the  EDIT  mode,  press  'X'  and  then  type  the  rest  of  the  line  in. 
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r-  DIRLOC 


32K  ECB 


10    '        THE  THIEF  OF  DIRLOC 

20   '  ADVENTURE 

30    1  MIKE  FAHY 

40   '  12/19/83-03/31/84 

50  ' 

60  PLAY"05" : CLS : PRINT@198 , "THE  T 
HIEF  OF  DIRLOC" : GOSUB2 150: CLS: PR 
INT @ 201, "BY  MIKE  FAHY" : GOSUB2 150 
: CLS : PRINT@198 , "ONE  MOMENT  PLEAS 
E. . . " :GOSUB2150 

70  CLEAR400:Q=15:NV=29:DIMC$(NV) 
,OB$(Q) ,OB(Q) ,DD(21) ,DD$(21) ,L(4 
,5,3) :QQ$="YOU  CAN'T  GO  THAT  WAY 
.":PLAY"V31T30211 

80  DATA  EXAM, VIEW, GET  ,INVE,LIST 
,SAY  , TURN, TOUC, CUT  , THRO, DROP, 0 
PEN , UNLO , PULL , FEED , READ , CLIM , SME 
L, SAVE, LOAD, LOOK, WEAR, QUIT, PUT  , 
PLAY, HIT  , KICK, KILL, YELL 
90  FORX=lTONV : READ  C$ (X) : NEXTX : F 
0RL=1T03 : F0RV=1T05 : F0RH=1T04 : REA 
DL(H,V,L) :READD(H,V,L) :NEXTH,V,L 
:F0RX=1T021:READDD(X) ,DD$(X) :NEX 
TX:FORX=lTO  Q:READOB$ (X) : NEXTX :P 
RINT@192,"DO  YOU  WANT  TO  LOAD  AN 

OLD  GAME?" 
100  R$=INKEY$ : IFR$="Y"THEN1390EL 
SEIFR$="N"THEN110ELSE100 
110  CLS:H=1:V=3 :L=2 
120  ONL(H,V,L)GOSUB  1600,1610,16 
30, 1660, 1670, 1690, 1720, 1740, 1760 
,1770, 1780, 1790, 1800, 1810, 1840, 1 
860, 1910, 1920, 1930, 1940, 19  60,200 
0,2010, 2020, 2030, 2040, 2050, 2060, 
2070,2080,2090,2100,2110,2120,21 
40 

130  GOSUB2160 

140  PRINTSTRING$(32,"-") ; : LINEIN 
PUT"WHAT  IS  YOUR  WISH  ?  ";GC$ 
150  IFGC$="QUIT"ORGC$="LIST"ORGC 
$=" LOOK" ORGC $=" SAVE "ORGC$=" LOAD" 
THENG$=GC$ : GOTO170 
160  G$=LEFT$(GC$,4) :D$=LEFT$(GC$ 
, 1) : IFLEN (GC$) <6THEN170ELSEED$=R 
IGHT$ (GC$,LEN(GC$) -5) :0$=RIGHT$ ( 
GC$,LEN(GC$) -3) : DO$=RIGHT$ (GC$ , L 
EN (GC$) -4 ) : OD$=RIGHT$ (GC$ , LEN (GC 
$)-6) 

170  FORX=lTONV:IFG$=C$ (X)THEN190 
ELSENEXTX : GOSUB2 10 : IFP=0THENPRIN 
T"EXCUSE  ME?  I  DON'T  UNDERSTAND. 
" : GOSUB290 : GOTO140ELSEIFP=2THEN1 
40 

180  GOTO120 

190  ON  X  GOSUB330, 330, 440, 630, 63 
0, 690, 710, 730, 760, 800,8  60, 870,98 


0, 1160, 1200, 1220, 1260, 1340, 1360, 
1390,1420,1430,1470,1480,1500,15 
30, 1570, 1580, 1590 
200  GOTO140 

210  IFLEN (G$) <>1THENP=0: RETURN 
220  IFD$="N"ANDN=1THEN  V=V-1:P=1 
:D$=" ": RETURN 

230  IFD$="S"ANDS=1THEN  V=V+1:P=1 
:D$=" ": RETURN 

240  IFD$="E"ANDE=1THEN  H=H+1:P=1 
:D$=" ": RETURN 

2  50  IFD$="W"ANDW=1THEN  H=H-1:P=1 
:D$=" ": RETURN 

2  60  IFD$="U"ANDU=1THEN  L=L+1:P=1 
:D$=" ": RETURN 

270  IFD$="D"ANDD=1THEN  L=L-1:P=1 
:D$=" " : RETURN 

280  IFD$="N"ORD$="S"ORD$="E"ORD$ 
="W"ORD$="U"ORD$="D"THENPRINTQQ$ 
: P=2 : D$=" " : RETURNELSEP=0 : RETURN 
290  IFL<1THENL=1: PRINT :PRINTQQ$: 
PRINTELSEIFL>3THENL=3 
300  IFV<1THENV=1: PRINT :PRINTQQ$: 
PRINTELSEIFV>5THENV=5 : PRINT : PRIN 
TQQ$ : PRINT 

310  IFH<1THENH=1 : PRINT : PRINTQQ$ : 
PRINTELSEIFH>4THENH=4 : PRINT : PRIN 
TQQ$ : PRINT 
320  RETURN 

330  IFL(H,V,L)=4ANDDO$="  CHEST"T 
HENPRINT"IT  IS  JUST  A  SMALL  CHES 
T,  BUT  THERE  IS  A  RATHER  PECUL 
IAR  SCENTEMANATING  FROM  IT.": RET 
URN 

340  IFL(H,V,L)=7ANDDO$=OB$ (13)OR 
OB ( 13 ) =1ANDD0$=0B$ ( 13 ) THENPRINT" 
ON  THE  HANDLE  OF  THE  SWORD,  YOU 
FIND  A  MESSAGE  ENGRAVED. ": RETURN 
350  IFL(H,V,L)=10ANDDO$="  DRAWER 
S"ORL(H, V, L) =10ANDDO$="  DRAWER "T 
HENPRINT"THEY  ARE  JUST  YOUR  AVER 
AGE,  EVERYDAY  DRAWERS,   AS  FA 

R  AS  I       CAN  SEE.": RETURN 
360  IFL(H,V,L)=llANDDO$=OB$ (6)TH 
ENPRINT"IT  APPEARS  TO  BE  WRITTEN 

LONG       AGO.   IT  IS  HAND-WRITTEN 
IN  A         WAY  THAT  IS  BARELY  LEGIB 
LE . " : RETURN 

370  IFL(H,V,L)=25ANDOB(5)=0ANDDO 
$="  COFFIN"THENPRINT"THERE  IS  A 
KEY  IN  THE  COFFIN .": RETURNELSEIF 
L(H,V,L)=25AND0B(5)=1ANDD0$="  CO 
FFIN"THENPRINT"IT  IS  EMPTY. ":RET 
URN 

380  IFL(H,V,L)=27ANDDO$="  BOOK"T 
HENPRINT"THERE  IS  A  STRING  ATTAC 
HED  TO       THE  BOOK,   WHICH  LEADS  B 
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EHIND  THEBOOKCASE . " : RETURN 

390  IFL(H,V,L)=31ANDDO$="  MUSIC" 

THENPRINT "APPARENTLY,   THE  MUSIC 

IS  RATHER  OLD.   IT  APPEARS  TO  BE 

OF  THE         EIGHTEENTH  CENTURY. ":R 

ETURN 

400  IFL(H,V,L)=17ANDD(H,V,L)=1AN 
DDO$="  WALL" THENPRINT" EXAMINING 
THE  WEST  WALL,   YOU         FIND  A  TIN 
Y  RING  NEAR  THE  CEIL-  ING.":RETU 
RN 

410  IFL(H,V,L)=12ANDDO$="  FUSE  B 
OX"ANDOB (4) <>20RL(H, V, L) =12ANDDO 
$="  BOX"ANDOB (4) <>2THENPRINT"THE 
RE  SEEMS  TO  BE  A  FUSE  MISS-  ING 
.": RETURN 

420  IFL(H,V,L)=33ANDDO$=OB$ (9)TH 
ENPRINT"YIKES!   THERE'S  A  SCORPIO 
N  UNDER  THE  LEFT  SHOE .": RETURN 
430  PRINT" BIG  DEAL!   IT'S  JUST  A" 
; DO $".": RETURN 

440  IFL(H, V, L) =20ANDO$=OB$ (1) AND 
OB (1)=0THENPRINT" YOU'VE  GOT  IT." 
: OB (1)=1: RETURN 

450  IFL(H,V,L)=21ANDO$=OB$ (2) AND 

OB ( 2 ) =0ORL(H, V , L) =14ANDO$=OB$ ( 2 ) 

ANDOB (2) =2 THENPRINT "YOU'VE  GOT  I 

T.":OB(2)=l:RETURN 

460  IFL(H,V,L)=21ANDO$=OB$ (3) AND 

OB(3)=2THENPRINT"YOU'VE  GOT  IT." 

:OB(3)=l:RETURN 

470  IFL(H, V, L) =21ANDO$=OB$ (3) AND 
OB(3)=0THENPRINT"IT  IS  NAILED  TO 
THE  WALL-IT  MUSTBE  CUT.": RETURN 
480  IFL(H,V,L)=24ANDO$=OB$(4)AND 
OB(4)=0THENPRINT"YOU'VE  GOT  IT." 
:OB(4)=l:RETURN 

490  IFL(H,V,L)=14ANDST=1ANDDP=0A 
NDO $= "  PENDANT " THENPRINT " YOU ' VE 
GOT  IT. " :DP=1: RETURN 
500  IFL(H,V,L)=25ANDO$=OB$(5)AND 
OB(5)=0THENPRINT"YOU'VE  GOT  IT." 
: OB (5) =1: RETURN 

510  IFL(H,V,L)=27ANDO$=OB$(6)AND 
D(H,V,L)=10THENPRINT"AS  YOU  TUG 
ON  THE  BOOK,  THE  WALLSUDDENLY  SL 
IDES  OPEN,  REVEALING  A  PASSAGE  T 
0  ANOTHER  ROOM" : D (H, V, L) =14 : PRIN 
T : GOSUB2 160: RETURN 
520  IFL(H,V,L)=llANDDO$=OB$ (6)AN 
DOB (6) =0THENPRINT" YOU'VE  GOT  IT. 
":OB(6)=l:RETURN 

530  IFL(H, V, L) =28ANDO$=OB$ (7) AND 
OB(7)=0THENPRINT"YOU'VE  GOT  IT." 
:OB(7)=l:RETURN 

540  IFL(H, V, L) =3  2ANDO$=OB$ (8) AND 
OB(8)=0THENPRINT"WHOOPS!   AS  YOU 
TUG  ON  THE  TILE,   THE  REST  OF  THE 
FLOOR  GIVES  WAY, AND  YOU  FALL  BA 


CK  DOWN  TO  THE  LEVEL  BELOW..." 
: L=L-1 : OB ( 8 ) =1 : FORM=1TO1000 : NEXT 
M : GOSUB1 4  2 0 : RETURN 

550  IFL(H, V, L) =33ANDO$=OB$ (9) AND 

OB ( 9 ) =0THENGOSUB14  3 0 : RETURN 

560  IFL(H,V,L)=33ANDO$=OB$(10)AN 

DOB ( 10 )=0THENPRINT" YOU'VE  GOT  IT 

." :OB( 10) =1: RETURN 

570  IFL(H,V,L)=4ANDO$=OB$(ll)AND 

OB ( 11) =0ANDCH=2 THENPRINT "YOU ' VE 

GOT  IT. " : OB ( 11 )=1: RETURN 

580  IFL(H,V,L)=6ANDO$=OB$ (12) AND 

OB ( 12 )=0THENPRINT" YOU'VE  GOT  IT. 

": OB ( 12 )=1: RETURN 

590  IFL(H,V,L)=7ANDO$=OB$ (13)AND 
OB ( 13 ) =0ORL(H, V, L) =14ANDO$=OB$ ( 1 
3) ANDOB ( 13 )=2THENPRINT" YOU'VE  GO 
T  IT. ": OB (13) =1: RETURN 
600  IFL(H,V,L)=8ANDO$=OB$(14)AND 
OB ( 14 )=0THENPRINT" YOU'VE  GOT  IT. 
": OB ( 14 )=1: RETURN 

610  IFL(H,V,L)=10ANDO$=OB$(15)AN 
DOB(15)=0ANDWO$="BOTTOM"THENPRIN 
T"YOU'VE  GOT  IT . " : OB ( 15) =1 : RETUR 
N 

620  PRINT"YOU  CAN'T  GET  THE";0$; 
" . " : RETURN 

630  PRINT"YOU  ARE  CARRYING  :":IF 
KD=1THENPRINT"  THE  MOUSE'S  KEY"E 
LSEPRINT"  A  FEW  MORSELS  OF  FOOD" 
640  IFDP=1THENPRINT"  THE  DIAMOND 

PENDANT" 
650  FORTT=lTOQ 

660  IFOB (TT) =1THENPRINT"  A";OB$( 
TT) 

670  NEXTTT 
680  RETURN 

690  IFL(H,V,L)=17ANDO$="  IT'S  OV 
ER" THENPRINT "THE  GRIM  LOOK  ON  TH 
E  OLD  LADY'S  FACE  SOFTENS  AS  SHE 

TURNS  YOUR     DIRECTION.  STARING 
AT  YOU  WITH     COLD  GLASSY  EYES,  S 
HE  SAYS   :         IF  YOU  WISH  TO  END 
YOUR  QUEST       YOUR  ESCAPE  LIES  IN 

THE  WALL         OF  THE  WEST." 
700  IFL(H,V,L)=17ANDO$="  IT'S  OV 
ER"THENRETURNELSEPRINT"I  SAID  IT 

BUT  NOTHING  HAPPENED. ": RETURN 
710  IFL(H,V,L)=15ANDDO$="  PORTRA 
IT " THENPRINT " THE  PORTRAIT  SWINGS 

IN,  REVEAL-  ING  A  SECRET  PASSAG 
E  TO  THE  NORTH. ":PC=1:D(H,V, 

L) =8 : GOSUB2 160 : RETURN 
720  PRINT"THE";DO$;"  WON'T  TURN. 
" : RETURN 

730  IFL(H,V,L)=17ANDED$="  RING"A 
NDD(H, V, L) =1THENPRINT"THE  WALL  S 
LIDES  OPEN,  AND  THE  BRILLIANT 
SUNLIGHT  POURS  INTO       THE  ROOM." 
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:  D  (H ,  V ,  L)  =9  : G0SUB2 1 60 : RETURN 
740  PRINT"YOU  TOUCHED  IT  BUT  NOT 
HING  SEEMED  TO  HAPPEN .  ": RET 

URN 

750  RETURN 

760  PRINT"CUT  THE"  ; 0$  ;  "  WITH  WHA 

T  ?  " ; : LINEINPUTWW$ 

770  IF0B(15)=1ANDL(H,V,L)=21AND0 

$="  R0PE"ANDWW$="KNIFE"AND0B(3)= 

0THENPRINT " YOU  SUCCEEDED  IN  CUTT 

ING  IT . " : OB ( 3 ) =2 : RETURN 

780  IFOB(3)=0ANDO$="  ROPE"ANDL(H 

,  V,  L)  =21AND0B  (15)  =0ANDWW$=" KNIFE 

"THENPRINT" YOU  DON'T  HAVE  A  KNIF 

E . " : RETURN 

790  PRINT" YOU  CAN'T  CUT  THE" ; ED$ 
; " . " : RETURN 


800  IFL(H,V,L)=14AND0B(13)=1ANDE 
D$=OB$ (13)ANDST<>1AND0B(4)=20RL( 
H, V, L) =14AND0B (2 ) =1ANDED$=0B$ (2 ) 
ANDSTo  1AND0B  ( 4 )  =2 THENPRINT " THE 
STATUE  SHATTERS,  REVEALING  AS PAR 
KLING  PENDANT  WHICH  HAS  BEENHIDD 
EN  INSIDE. " :ST=1: RETURN 
810  IFL(H,V,L)=14AND0B(2)=1ANDED 
$=0B$ (2) AND0B(4) <>2THENPRINT"WAY 
TO  GO,  STUPID!  YOU  JUST  LOSTYOU 
R  HAMMER  IN  THE  DARKNESS .": OB ( 2 ) 
=2 : RETURN 

820  IFL(H,V,L)=14AND0B(13)=1ANDE 
D$=OB$ ( 13 ) ANDOB ( 4 ) <>2THENPRINT"W 
ELL,  YOU  SURE  SCREWED  THAT  ONE  U 
P,  DIDN'T  YOU?  YOU  JUST  LOST  Y 
OUR  SWORD  IN  THE  DARKNESS .": OB ( 1 
3) =2: RETURN 


830  IFL(H,V,L)=35ANDED$=OB$(10)A 
NDOB ( 10) =1ANDD (H, V, L) =1THENPRINT 
"THE  BLANKET  SMOTHERS  THE  FLAMES 
, GIVING  YOU  ACCESS  TO  THE  DOOR." 
: D (H, V,L) =9 :G0SUB2 160: RETURN 
840  PRINT "YOU  DON'T  WANT  TO  THRO 
W  THAT !": RETURN 
850   '  DROP 

860  F0RY=1T0  Q:IF  OB$(Y)=DO$  AND 
0B(Y)=1  THEN  OB(Y)=0:PRINT"OKAY 
,  YOU'VE  DROPPED  IT.  DON'T  COUN 
T  ON  SEEING  IT  AGAIN RETURNE 
LSENEXTY : IFDO$="  PENDANT "ANDDP=1 
THENDP=0:PRINT"I  DROPPED  IT.": RE 
TURNELSEPRINT"YOU  WOULD  IF  YOU  H 
AD  IT.": RETURN 

870  ER=0:IFL(H,V,L)=4ANDDO$="  CH 
EST"THENER=1 

880  IFL(H,V,L)=34ANDDO$="  DOOR"T 

HENPRINT"NOT  ONLY  IS  IT  CLOSED, 

BUT  IT'S  LOCKED. ": RETURN 

890  IFER=1ANDCH=1THENPRINT"INSID 

E  THE  CHEST,   YOU  FIND  A  SPARK 

LING  GEM.   THIS  IS  OBVIOUSLYTHE  L 

OST  GEM. " :CH= 2 : RETURN 

900  IFER=1ANDCH=0THENPRINT"IT'S 

LOCKED. ": RETURN 

910  IFER=1ANDCH=2THENPRINT"IT'S 
ALREADY  OPEN .": RETURN 
920  IFL(H,V,L)=10ANDDO$="  DRAWER 
"ORL(H,V,L)=10ANDDO$="   DRAWERS "T 
HENLINEINPUT" WHICH  ONE   (TOP  OR  B 
OTTOM)    :";W0$:ER=2: PRINT 
930  I FER=2ANDW0$="T0P" THENPRINT" 
AS  THE  DRAWER  SLIDES  OPEN,  YOU 
ARE  ATTACKED  BY  A  FEROCIOUS 
SERPENT  WHICH  SPRINGS  FROM  THE 
DRAWER."; :IF0B(1)=1THENPRINT"  HO 
WEVER,   AS  THE  DEADLY     VENOM  FIND 
S  ITS  WAY  INTO  YOUR       SYSTEM,  TH 
E  JAR  THAT  YOU  FOUND" ELSEEND 
940  IFER=2ANDW0$="T0P"AND0B(1)=1 
THENPRINT "IN  THE  LABORATORY  IMME 
DIATELY       EXPLODES,   COVERING  YOU 
R  LIFELESSBODY  WITH  TINY  DROPLET 
S  OF  COOL  LIQUID.   YOU  QUICKLY  RE 
GAIN  YOUR  CONSCIOUSNESS  AND  CONT 
INUE  YOUR  EXPEDITION. ": OB (1) =2 :R 
ETURN 

950  IFER=2ANDOB(15)=0ANDWO$="BOT 
TOM"THENPRINT" IN  THE  DRAWER,  YOU 
FIND  A  LONG     KNIFE  ALONG  WITH  A 
SHORT  MESSAGEWRITTEN  IN  THE  DUS 
T  :  BEWARE  OF  THE 

TOP  DRAWER! ": RETURN 
960  IFER=2ANDOB(15)=lANDWO$="BOT 
TOM"THENPRINT" IN  THE  DRAWER,  YOU 
FIND  A  SHORT  MESSAGE  WRITTEN  IN 
THE  DUST   :  BEWARE  OF  THE  T 
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OP  DRAWER  ! 11 :  RETURN 

970  PRINT" YOU  CAN'T  OPEN  THE"; DO 

$;".": RETURN 

980  IFL(H,V,L)=4ANDOD$="  CHEST"T 
HENRT=1  ELSERT=0 

990  IFRT=1ANDCH>0THENPRINT" IT ' S 
ALREADY  UNLOCKED .": RETURN 
1000  IFRT=1ANDCH=0ANDKD=0ANDOB ( 5 
)=0THENPRINT"YOU  DON'T  HAVE  A  KE 
Y.": RETURN 

1010  IFRT=1ANDCH=0ANDKD=1ANDOB ( 5 
)=0THENPRINT"THE  KEY  THAT  THE  MO 
USE  GAVE  YOU  DOES  NOT  WORK.": RET 
URN 

1020  IFRT=1ANDCH=0ANDKD=0ANDOB ( 5 
)=1THENPRINT"THE  KEY  THAT  YOU  FO 
UND  IN  THE  CRYPT  UNLOCKED  IT." 
:CH=1: RETURN 

1030  IFRT=1ANDCH=0ANDKD=1ANDOB(5 
)=1THENLINEINPUT"WITH  WHICH  KEY? 

( 1=THE  KEY  THAT  THE  MOUSE  GAVE 
YOU/  2=THE  KEY       YOU  FOUND  IN  TH 
E  COFFIN)    : " ;WK$:WK=VAL(WK$) : IFW 
K<1ORWK>2THEN1030ELSEONWK  GOTO  1 
130,1140 

1040  IFL(H,V,L)=34ANDOD$="  DOOR" 
THENRT=3 

1050  IFRT=3 ANDOB ( 5 ) =1ANDKD=1THEN 
LINEINPUT"OPEN  THE  DOOR  WITH  WHI 
CH  KEY  ?  (l=MOUSE'S  KEY  2=COFF 
IN  KEY)  : ";KY$:IFKY$="2"THENPRIN 
T"THE  DOOR  OPENS .": D (H, V, L) =11 : G 
OSUB2160 :RETURNELSEPRINT"THE  KEY 

DOESN'T  WORK.": RETURN 
1060  IFRT=3ANDOB ( 5 ) =0ANDKD=1THEN 
PRINT" YOU  DON'T  HAVE  THE  RIGHT  K 
EY . " : RETURN 

1070  IFRT=3ANDOB ( 5 ) =1ANDKD=0THEN 

PRINT"USING  YOUR  KEY,   YOU  SUCCEE 

DED  INUNLOCKING  THE  DOOR":D(H,V, 

L)  =11 :GOSUB2 160: RETURN 

1080  IFL(H,V,L)=21THENRT=4 

1090  IFRT=4ANDOB ( 5 ) =1ANDKD=0THEN 

PRINT"YOUR  KEY  FAILS  TO  UNLOCK  T 

HE         DOOR. ": RETURN 

1100  IFRT=4ANDOB ( 5 ) =0ANDKD=1THEN 

PRINT "YOUR  KEY  UNLOCKS  THE  DOOR, 

AND  A  FAINT  BUZZING  SOUND  FILL 
S  THE  ROOM  AS  THE  DOOR  OPENS . " : D 
(H, V, L) =7 :GOSUB2160 : RETURN 
1110  IFRT=4 ANDOB ( 5 ) =1ANDKD=1THEN 
LINEINPUT"OPEN  THE  DOOR  WITH  WHI 
CH  KEY  ?  (l=MOUSE'S  KEY  2=COFF 
IN  KEY)  : " ;KY$:IFKY$="1"THENPRIN 
T"THE  DOOR  OPENS,  AND  YOU  HEAR  A 
FAINT  BUZZING  SOUND. ": D (H,V, L) 
=7 : GOSUB2160 : RETURNELSEPRINT " THE 

KEY  DOESN ' T  WORK . " : RETURN 
1120  PRINT" YOU  CAN'T  UNLOCK  THE" 


; OD$ ; " . " : T=0 : RETURN 

1130  PRINT "THE  MOUSE'S  KEY  DOES 

NOT  WORK. ": RETURN 

1140  PRINT"YOU  HAVE  MANAGED  TO  U 
NLOCK  THE     CHEST .": CH=1 : RETURN 
1150  RETURN 

1160  IFL(H,V,L)=27ANDDO$=OB$ (6) 0 
RL(H,V,L)=27ANDDO$="  STRINC'THEN 
PRINT"AS  YOU  PULL  ON  THE" ; DO$ ; " , 
THE" :PRINT"NORTH  WALL  SLIDES  OP 
EN,  REVEAL-  ING  A  PASSAGE  TO  ANO 
THER  ROOM. " : D (H, V, L) =14 : PRINT : GO 
SUB2 160: RETURN 

1170  IFL(H,V,L)=32ANDDO$=OB$(8)T 
HENO$=OB$(8) :GOTO540 
1180  IFL(H,V,L)=17ANDDO$="  RING" 
ANDD (H, V, L) =1THENPRINT" CRACK!  TH 
E  WALL  SLOWLY  SLIDES  OPEN  ALLO 
WING  THE  BRILLIANT  SUN-LIGHT  TO 
POUR  INTO  THE  ROOM. " : D (H, V, L) =9 : 
GOSUB2 160: RETURN 

1190  PRINT "PULLING  THE";DO$;"  SE 
EMS":PRINT"TO  HAVE  NO  EFFECT. ":R 
ETURN 

1200  IFL(H,V,L)=3ANDZ=1ANDD0$=" 
MOUSE"THENPRINT" SNATCHING  THE  FO 
OD  AND  DEVOURINGIT  QUICKLY,  THE 
MOUSE  SUDDENLY     SURPRISES  YOU  BY 

HANDING  YOU  A     KEY  AND  SAYING  ' 
BEWARE!   FOR  THISIS  SURELY  THE  KE 
Y  TO  DEATH. '" :KD=1: RETURN 
1210  PRINT" IT  DOESN'T  SEEM  TO  BE 

HUNGRY . " : RETURN 
1220  IFL(H,V,L)=28ANDDO$=OB$ (7)0 
ROB ( 7 ) =1ANDD0$=0B$ ( 7 ) THENPRINT" I 
T  SAYS  :  'FEAR  HER  NOT,  FOR  SHEW 
ISHES  ONLY  TO  HEAR  THE  WORDS:  ' 
IT'S  OVER ' " : RETURN 
1230  IFL(H,V,L)=7ANDD0$="  SWORD" 
OROB ( 13 ) =1ANDD0$=0B$ (13 ) THENPRIN 
T"IT  READS:  'AN  EFFECTIVE  WEAPON 
,  BUT  ONLY  WHEN  THROW 

N  AT  THE  TIRELESS  MAN 

WITH  LEGS  OF  STONE. 

' " : RETURN 

1240  IFL(H,V,L)=11ANDD0$=0B$(6)0 
ROB ( 6 ) =1ANDD0$=0B$ ( 6 ) THENPRINT" I 
T  SAYS  SOMETHING  ABOUT  A  HUMAN  T 
HAT  HAS  BEEN  TURNED  INTO  A  SOL-I 
D  ROCK  FORM.  APPARENTLY,  HE  CANB 
E  FOUND  SOMEWHERE  IN  THIS  HOUSE" 
; : RETURN 

1250  PRINT "YOU  CAN'T  READ  THE " ; D 
0$: RETURN  - 
1260  IFED$<>"  ROPE "THENPRINT "YOU 

CAN ' T  CLIMB  THAT ! " : RETURN 
1270  IFL(H,V,L)=5ANDED$="  ROPE"A 
ND0B(3)=1THENLINEINPUT"WHICH  DIR 
ECTION?   (U/D)  :";DI$:WE=1 
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1280  IFWE=1ANDL=1ANDDI$="U"THENL 

=1+1 : GOSUB1420 : RETURN 

1290  IFWE=1ANDL=2ANDDI$="U"THENL 

=L+1 : G0SUB14 20 : RETURN 

1300  IFWE=1ANDL=2ANDDI$="D"THENL 

=L-1: G0SUB14  2 0 : RETURN 

1310  IFWE=1ANDL=3ANDDI$="D"THENL 

=L- 1 : G0SUB1 4  2  0 : RETURN 

13  20  IFWE=1THENPRINT"Y0U  CAN'T  C 

LIMB  THAT  WAY . " : RETURN 

1330  PRINT" YOU  CAN'T  CLIMB  IT.": 

RETURN 

1340  IFL(H,V,L)=4ANDED$="  CHEST" 
THENPRINT" IT  SMELLS  OF  PERFUME." 
: RETURN 

1350  PRINT"I  DON'T  SMELL  ANYTHIN 
G . " : RETURN 

13  60  CLS:LINEINPUT"TO  WHICH  DEVI 
CE  ?  (-1=CASSETTE  1=DISK)  :  "; 
00$:00=VAL(00$)  :IFOOO-1ANDOO<>1 
THEN1360 

1370  LINEINPUT" FILENAME    (8  CHARA 

CTERS  OR  LESS) :   " ;F$ 

1380  OPEN"0" , #00 , F$ : PRINT#00 ,  D  ( 4 

,5,3) ,D(1,1,2) ,D(1,5,3) ,D(2,5,3) 

,H,V,L,Z,ST,PC,KD,DP,CH:F0RCV=1T 

015 : PRINT#00 , OB ( CV) : NEXTCV : CLOSE 

#00: RETURN 

1390  CLS: LINEINPUT" FROM  WHICH  DE 
VICE  ?  (-1=CASSETTE  1=DISK)  :  "; 
00$:00=VAL(00$)  :IFOOO-1ANDOO<>1 
THEN1390 

1400  LINEINPUT" FILENAME  (8  CHARA 
CTERS  OR  LESS) :  " ;F$ 
1410  0PEN"I", #00,F$:INPUT#00,D(4 
,5,3),D(1,1,2),D(1,5,3),D(2,5,3) 
, H , V , L , Z , ST , PC , KD , DP , CH : F0RCV=1T 
015: INPUT#00,OB(CV) : NEXTCV: CLOSE 
#00 : GOSUB1420 : RETURN 
1420  GOTO120 

1430  IFL(H,V,L)=33ANDDO$=OB$(9)0 
RL(H, V, L) =33ANDO$=OB$ (9) THENPRIN 
T"AS  YOU  ATTEMPT  TO  PUT  THE  SHOE 
S  ON,  A  TINY  SCORPION  SCURRIES  0 
UTFROM  UNDER  THE  HEEL  OF  THE  SHO 
ESAND  BITES  YOUR  ANKLE . " ; : TY=4 : I 
FOB (1) =1THENPRINT"  HOWEVER," 
1440  IFTY=4AND0B (1) =1THENPRINT"T 
HE  JAR  YOU  FOUND  IN  THE  LABOR-  A 
TORY  QUICKLY  EXPLODES,  COVERINGY 
OUR  LIFELESS  BODY  WITH  ITS  CON-T 
ENTS  AND  REVIVING  YOU.  AFTER  A  S 
HORT  REST,  YOU  ARE  ABLE  TO  CON-T 
INUE  YOUR  EXPEDITION. ": OB (1) =3 :R 
ETURN 

1450  IFTY=4AND0B(1)  OITHENPRINT" 
SORRY. ": END 

14  60  PRINT" YOU  WOULD  LOOK  AWFUL 
SILLY  WEARING  A" ; D0$ ; " ! " : RE 


TURN 

1470  CLS: INPUT "WANT  TO  SAVE  THE 
GAME   (Y/N) ";YN$:IFYN$="Y"THEN13  6 
0ELSEEND 

1480  IFL(H,V,L)=12AND0$=0B$ (4)TH 
ENINPUT"PUT  THE  FUSE  WHERE  ";PF$ 
: IFPF$="BOX"ORPF$="FUSE  BOX"THEN 
PRINT: PRINT "OKAY.  IT'S  IN.": OB (4 
) =2 :RETURNELSEPRINT"YOU  CAN'T  PU 
T  IT  THERE .": RETURN 
1490  PRINT "PUT  THE";0$;"  WHERE  " 
;  :INPUTPF$: PRINT" YOU  CAN'T  PUT  T 
HAT  THERE !": RETURN 

1500  A$="L8FDDDFDDO+DL16CO-B-AGL 

8FE-DE-L4FL8FDDDFDDO+DL16CO-B-AG 

L8FF+L4GP4L8B-GGGO+CO-AAAO+CO-AO 

+CO-AO+DO-B-0+DO-B-" 

1510  IFL(H,V,L)=31ANDD0$="  MUSIC 

"ORL (H, V, L) =3 1ANDD0$="  PIANO"THE 

NPLAY"XA$ ;XA$ ; L8FDDDFDDO+DL16CO- 

B-AGL8FAB-" :PRINT"HEY!   YOU'RE  PR 

ETTY  GOOD !": RETURN 

1520  PRINT" YOU  CAN'T  PLAY  THAT." 

:  RETURN 

1530  PRINT"HIT  THE";0$;"  WITH  WH 
AT  " ; : INPUTW$ : W$="  "+W$ 
1540  IFL(H,V,L)=14AND0$="  STATUE 
"ANDW$=OB$ ( 13 ) ANDOB ( 13 ) =1AND0B ( 4 
)=2ANDST=0ORL(H,V,L)=14ANDO$="  S 
TATUE" ANDW$=OB$ ( 2 ) ANDOB ( 2 ) =1AND0 
B(4)=2ANDST=0ORL(H,V,L)=14ANDO$= 
"  STATUE "ANDW$=OB$ (12) ANDOB (12)= 
1 ANDOB ( 4 ) =2 ANDST=0THENKJ=1 
1550  IFKJ=1THENPRINT"AS  THE  STAT 
UE  SHATTERS,  A  SMALL  SPARKLING  P 
ENDANT  FALLS  TO  THE  FLOOR. ":ST= 
1 : RETURN 

1560  PRINT "THAT  WASN'T  VERY  NICE 
,   WAS  IT?": RETURN 

1570  PRINT"WHAT  WAS  THAT  FOR?":R 
ETURN 

1580  PRINT "DOES  YOUR  MOTHER  KNOW 
HOW  VIOLENT  YOU  ARE?": RET 

URN 

1590  PRINT" YEEEEEOOOOOOWWWWWW ! 1 ! 
! " :  RETURN 

1600  PRINT"YOU  ARE  IN  A  NARROW  H 
ALLWAY . " : RETURN 

1610  PRINT "OUCH!  YOU  HAVE  FALLEN 
INTO  A  DEEP  PIT  SWARMING  WIT 
H  THOUSANDSOF  ANGERED  WASPS.  AS 
YOU  TRY  TO  CLAMBOR  YOUR  WAY  UP  T 
HE  STEEP  SIDES,  YOU  ARE  OVERWH 
ELMED  BY  THE  STINGING  AND  FALL 
BACK  INTO  THE  PIT,  WHERE  YOU  DI 
E  A  SLOW  AND  PAINFUL  DEATH." 
1620  END 

1630  PRINT"YOU  FIND  YOURSELF  IN 
THE  WINE       CELLAR.   HUNDREDS  OF  V 
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ARIOUS  BOT-TLES  LINE  THE  WALLS . " 
;  :Z=Z+1:IFZ=1THENPRINT"  A  SMALL 

MOUSE,   WHICH  HAS  BEEN  OBSERVI 
NG  YOU  FROM  THE  UPPER  SHELVES  SU 
D-  DENLY  JUMPS  ON  YOUR  SHOULDER 
AND"  ; 

1640  IFZ=1THENPRINT"GESTURES  THA 
T  HE  IS  HUNGRY .": RETURN  ELSEPRIN 
T 

1650  RETURN 

1660  PRINT "YOU  ARE  IN  THE  FAMILY 

TREASURE     ROOM.   SCATTERED  UPON 
THE  FLOOR,   YOU  FIND  HUNDREDS  OF 
RUBIES,         SAPPHIRES,   AND  OTHER 
VARIOUS         GEMS.   THERE  IS  ALSO  A 
CHEST" :IFCH=0THENPRINT"WHICH  IS 
SECURED  BY  A  HEAVY  PAD-LOCK. ":R 
ETURNELSEPRINT" . ": RETURN 
1670  PRINT "YOU  ARE  ON  THE  OUTER 
RIM  OF  AN     ELEVATOR  SHAFT.  LOOKI 
NG  UP,   YOU  SEE  THE  SEVERED  CABLE 

WHICH  WAS  APPARENTLY  USED  AS  A 
PULLEY  FOR  THE  ELEVATOR  AT  ONE  T 
IME.   BELOW  YOU,   YOU  CAN  SEE  WHAT 
APPEARS       TO  BE  THE  BATTERED  RE 
MAINS  OF       AN  ELEVATOR  CAR. 
1680  RETURN 

1690  PRINT "YOU  ARE  NOW  IN  WHAT  I 
S  OBVIOUSLYTHE  RECREATION  ROOM. 
ALONG  THE     NORTH  WALL  IS  A  LARGE 
RACK" ; : IFOB (12 ) =0THENPRINT"  CON 
-  TAINING  A  SINGLE  POOL  CUE.  IN 
THE  CENTER,   THERE  IS  A  LARGE 
BILLIARDS  TABLE . 11 :  RETURN 
1700  PRINT".    IT     IS  EMPTY.    IN  TH 
E  CENTER  OF  THE     ROOM,   THERE  IS 
A  LARGE  BILLIARDSTABLE. ": RETURN 
1710  PRINT: RETURN 

1720  IFOB(13)=0THENPRINT"YOU  FIN 
D  YOURSELF  IN  THE  DEN.  ALONG  W 
ITH  A  FEW  ANIMAL  HEAD  TROPHIE 
S,   YOU  NOTICE  A  SWORD  HANGING 

OVER  THE  FIREPLACE.": RETURN 
1730  IFOB(13)=lTHENPRINT"YOU  FIN 
D  YOURSELF  IN  THE  DEN.        THERE  I 
S  NOTHING  MORE  THAN  A  FEWANIMAL 
HEADS  HERE .": RETURN 
1740  IFOB(14)=0THENPRINT"THIS  IS 

OBVIOUSLY  THE  DINING         ROOM.  S 
URROUNDED  BY  CHAIRS,  A       LONG  DI 
NNER  TABLE  STANDS  IN  THE  CENTER 
OF  THE  ROOM.  A  LARGE  CRYSTAL 

GOBLET  SITS  IN  THE  CEN-  TER  OF 
THE  TABLE .": RETURN 
1750  IFOB(14)=lTHENPRINT"YOU  ARE 

IN  THE  DINING  ROOM.  SUR-ROUNDED 

BY  CHAIRS,  A  LONG  DINNERTABLE  S 
TANDS  IN  THE  CENTER  OF  THE  ROO 
M.": RETURN 


1760  PRINT "CONTAINING  NOTHING  MO 
RE  THAN  A  FEW  WICKER  CHAIRS  AND 
A  GLASS-  TOPPED  TABLE,  THE  BRE 
AKFAST  ROOMSEEMS  UNINTERESTING." 
: RETURN 

1770  PRINT"YOU  ARE  IN  THE  KITCHE 
N.   THERE       ARE  TWO  DRAWERS  NEXT 
TO  AN  OLD     WOOD  STOVE  AGAINST  TH 
E  WEST  WALL" ; : RETURN 
1780  PRINT "YOU  ARE  IN  A  STRANGE 
ROOM  CON-     TAINING  AN  OLD  DUSTY 
BOOK  LYING  UPON  A  SMALL  DESK.  AN 

UN-  LIT  CANDLE  RESTS  ON  TOP  OF 
THE  BOOK. ": RETURN 
1790  PRINT"YOU  ARE  IN  WHAT  APPEA 
RS  TO  BE  A  SMALL  CHILD'S  ROOM. 
"; :IFMB=0THENPRINT" THERE  IS  A  FU 
SE  BOX  IN  THE  FAR  CORNER .": RETUR 
N 


1800  PRINT "A  SMALL  BED  AND  BATTE 
RED  FOOT-     LOCKER  INDICATE  THAT 
THIS  MUST     BE  THE  GUEST'S  ROOM." 
: RETURN 

1810  IFOB(4)<>2THENPRINT"YOU  ARE 
COMPLETELY  IN  THE  DARK.  THERE  M 
UST  BE  SOMETHING  WRONG  WITH  TH 
E  FUSE  BOX.": RETURN 
1820  IFST=0THENPRINT"YOU  ARE  NOW 
IN  A  ROOM  CONTAININGWHAT  APPEAR 
S  TO  BE  A  STATUE. ": IFOB (13) =2THE 
NPRINT"YOUR  LOST  SWORD  LIES  ON  T 
HE  FLOOR . " : RETURNELSEIFOB ( 2 ) 

=2 THENPRINT " YOUR  LOST  HAMMER  LIE 
S  ON  THE  FLOOR. 11 : RETURNELSERE 
TURN 

1830  IFST=1THENPRINT"Y0U  ARE  IN 
A  ROOM  CONTAINING         NOTHING  MOR 
E  THAN  BROKEN  FRAG-     MENTS  OF  A 
SCULPTURE . " : IFDP=0THENPRINT"A  DI 
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AMOND  PENDANT  LIES  ON  THE  FLOO 

R . " : RETURNELSERETURN 

1840  IFPC=0THENPRINT"THIS  IS  THE 

MASTER  BEDROOM.  OTHER  THAN 

THE  USUAL  BED,   DRESS-ER,   AND  OTH 
ER  ITEMS  OF  FURN-         ITURE ,  THER 
E  IS  NOTHING  BUT  A       LARGE  PORTR 
AIT  OF  A  STERN-FACED  MAN  WITH  A 
CAP  UNDER  HIS  ARM . " : RETURN 
1850  IFPC>0THENPRINT"YOU  ARE  IN 
THE  MASTER  BEDROOM.      IT  CONTAINS 

THE  USUAL  BED,  DRESSER,  AN 

D  OTHER  ITEMS  OF  FURNITURE. 
ON  THE  NORTH  WALL,       THERE  IS  A 
SMALL  OPENING  WHICH     LEADS  TO  AN 
OTHER  ROOM" : RETURN 
I860  PRINT "CONGRATULATIONS!    !  ! 

YOU  HAVE  ESCAPED  THE 
MANSION  AS  ONLY  A  TRULY  SKILLED 
THIEF  COULD,"; 
1870  IFOB(11)=0ANDDP=1THENPRINT" 

BUT  YOU  DIDN'T  GET  THE  GEM.": 
END 

1880  IFOB(11)=1ANDDP=0THENPRINT" 
BUT  YOU  DIDN'T  GET  THE  PENDAN 
T. " : END 

1890  IF0B(11)=1ANDDP=1THENPRINT" 
AND  YOU  MANAGED  TO  GET  ALL  OF 
THE  TREASURE !": END 

1900  IFOB(ll) =0ANDDP=0THENPRINT" 
BUT  YOU  DIDN'T  COMPLETE     YOUR  M 

ISSION  -  YOU  FAILED  TO  GETTHE  TR 

EASURES ! ! ! " : END 

1910  PRINT "YOU  ARE  IN  A  DARK,  MU 
STY  ROOM.     SITTING  QUIETLY  IN  A 
DILAPIDATEDOLD  ROCKING  CHAIR,  AN 

OLD  WOMAN  SEEMS  TO  HAVE  NO  RE AC 
TION  TOWARDYOUR  PRESENCE.  WITHOU 
T  EVEN  MAK-ING  AN  EFFORT  TO  LOOK 

AT  YOU,       SHE  SILENTLY  CONTINUE 
S  ROCKING . " : RETURN 
1920  PRINT"YOU  FIND  YOURSELF  IN 
AN  EMPTY       ROOM. ": RETURN 
1930  PRINT"YOU  ARE  IN  THE  SERVAN 
T'S  QUART-  ERS.": RETURN 
1940  IFOB (1) =0THENPRINT"CLIMBING 

OUT  FROM  THE  ELEVATOR     SHAFT,  Y 
OU  FIND  YOURSELF  IN  WHATAPPEARS 
TO  BE  AN  OLD  LABORATORY . THE  WALL 
S  ARE  LINED  WITH  SHELVESCONTAINI 
NG  EVERYTHING  FROM  BOOKSTO  A  JAR 

LABELED  'RESTORER  OF  LIFE'.": 
RETURN 

1950  PRINT"YOU  ARE  IN  A  LABORATO 
RY.   THE         WALLS  ARE  LINED  WITH 
SHELVES         HOLDING  BOOKS  AND  OTH 
ER  VARIOUS  ODDITIES. ": RETURN 
19  60  PRINT"STEPPING  INSIDE  THE  C 
LUTTERED       STORAGE  ROOM,   YOU  FIN 


D  A  STRANGE ASSORTMENT  OF  TOOLS  A 
ND  OTHER  EQUIPMENT."; : IFOB (2)= 
0THENPRINT"  LEANING  AGAINST  ONE 

WALL,   THERE  IS  A  HAMMER  WITH  A 

WOODEN  HANDLE."; 
1970  IFOB(2)=1ANDOB(3)=0THENPRIN 
T"  A  TATTERED  ROPE  HANGS FROM  A  R 
USTING  NAIL.   THERE  IS  A  DOOR  TO 
THE  SOUTH .": RETURN 
1980  IFOB(3)=0ANDOB(2)=0THENPRIN 
T"  ON  THE  OPPOSITE     WALL,   A  TATT 
ERED  ROPE  HANGS  FROMA  RUSTING  NA 
IL.   THERE  IS  ANOTHERDOOR  TO  THE 
SOUTH . " : RETURNELSEIFOB ( 3 ) =0THENP 
RINT"  A  TATTERED  ROPE  HANGS FROM 
A  RUSTING  NAIL.   THERE  IS  A  DOOR 
TO  THE  SOUTH. ": RETURN 
1990  PRINT: RETURN 

2000  PRINT "YOU  ARE  IN  AN  EMPTY  R 
OOM,   WITH  ASTAIRWAY  WHICH  LEADS 
UPWARD  TO     THE  MANSION  ABOVE. ":R 
ETURN 

2010  PRINT"UNDOUBTEDLY,   THIS  MUS 
T  BE  SOME     KIND  OF  TORTURE  CHAMB 
ER.    IN  ONE  CORNER  OF  THE  ROOM  ST 
ANDS  A  HUGECAULDRON  OF  BUBBLING 
OIL. ": RETURN 

2020  PRINT" FINDING  YOURSELF  IN  T 
HE  DARK,       MUSTY  DUNGEON,   YOU  DO 

NOT  NOTICEANYTHING  OF  ANY  INTER 
EST" ; : IFOB ( 4 ) =0THENPRINT"  OTHER 

THAN  A  SMALL  FUSE  IN  THE  CORNER 
. " : RETURNELSEPRINT" . " : RETURN 
2030  PRINT" FINDING  YOURSELF  SURR 
OUNDED  BY  DOZENS  OF  FOUL-SMELLI 
NG  ROTTING  CORPSES,  YOU  REALIZE 
THAT  YOU  HAVE  STUMBLED  INTO  TH 
E  FAMILY  CRYPT.  HOWEVER,  YOU  Q 
UICKLY  NOTICE  ONE  PARTICULAR 

COFFIN  THAT  SEEMS  TO  BE  UNOC 
CUPIED. ": RETURN 

2040  PRINT"YOU  ARE  NOW  IN  THE  CO 
NSERVATORY. HOWEVER,  THE  PLANT-LI 
FE  IN  THIS  PARTICULAR  ROOM  IS  NO 
T  YOUR  AVERAGE  HORTICULTURE. 

THE  DOZENSOF  VENUS  FLY-TRAPS  QU 
ICKLY  REACTTO  YOUR  PRESENCE  BY  S 
NAPPING  AT  YOU  WITH  THEIR  POWERF 
UL  JAWS .": RETURN 

2050  PRINT"YOU  ARE  IN  THE  LIBRAR 
Y.  HUNDREDSOF  BOOKS  LINE  THE  WAL 
LS,  ALL  OF  WHICH  ARE  RAGGED  AND 
DUSTY.  ONE, HOWEVER,  HAS  NO  DUST 
HIDING  ITS  TITLE,  'LOST  TREASURE 
S ' ,  INDI-  CATING  ITS  RECENT  USE 
. " : RETURN 

2060  IFOB(7)=0THENPRINT"YOU  FIND 
YOURSELF  IN  A  ROOM  CONTAINI 
NG  A  TYPE-WRITER  AND  A     SHORT  LE 
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AF  OF  TYPED  PAPER  WHICH  HAS  BEEN 
LEFT  IN  THE  MACHINE .": RETURNELS 
EPRINT"THIS  ROOM  CONTAINS  NOTHIN 
G  MORE  THAN  A  TYPE -WRITER. ": RETU 
RN 

2070  PRINT" YOU  ARE  IN  THE  ENTRY 
HALL.   THE     ENTRANCE  DOORS  HAVE  B 
EEN  MYSTER-IOUSLY  BARRED  FROM  TH 
E  OUTSIDE.   YOU  MUST  FIND  ANOTHER 

WAY  OUT.": RETURN 
2080  PRINT  "STILL  IN  THE  CORRIDOR 
S,  YOU  ARE  AT  THE  TOP  OF  A  STAIR 
WAY  LEADINGDOWNWARDS . " : RETURN 
2090  PRINT  "YOU  ARE  NOW  IN  THE  MU 
SIC  ROOM.  ATOP  THE  PIANO,  YOU  N 
OTICE  A  FEWPIECES  OF  MUSIC": RET 
URN 


2100  IFOB(8)=0THENPRINT"YOU  ARE 
IN  THE  WASH  ROOM.  AMONG  THE  MANY 
TILES  ON  THE  FLOOR,  YOUNOTICE  O 
NE  THAT  APPEARS  TO  BE  LOOSE.": 
RETURNELSEPRINT"WHAM1  YOU  HAVE  F 
ALLEN  THROUGH  A  HOLE  IN  THE  FLOO 
R  AND  LANDED         DOWNSTAIRS  AGAIN 


. ":L=L-1: RETURN 

2 lip  PRINT" YOU  ARE  IN  AN  OLD  DUS 
TY  CLOSET.  SCATTERED  ABOUT  ON  TH 
E  FLOOR,  YOU  FIND  A  PAIR  OF  SH 
OES" ; :IFOB(10)=0THENPRINT"  AND  A 
BLANKET . " : RETURNELSEPRINT" . " : R 
ETURN 

2120  PRINT" YOU  ARE  STILL  IN  THE 
HALLWAY,       BUT  THERE  IS  A  DOOR  0 
N  THE  SOUTHWALL. "; 
2130  IFD(H,V,L)=11THENPRINT"  IT 
IS  OPEN.": RETURNELSEPRINT"  IT  IS 

CLOSED.": RETURN 
2140  PRINT" YOU  ARE  AT  THE  END  OF 

THE  HALL.  THERE  IS  A  DOOR  TO  TH 
E  WEST"; :IFD(H,V,L)=1THENPRINT", 

BUTTHERE  IS  A  BLAZING  FIRE  IN  F 
RONTOF  IT . " : RETURNELSEPRINT" . " ; : 
RETURN 

2150  PLAY"V310-T255L255":F0RX=1T 

030 : PLAY "V- ABA" : NEXTX : RETURN 

2160  WW=D(H,V,L) : PRINT: PRINT "OBV 

IOUS  DIRECTIONS  ARE  :" 

2170  IFMID$(DD$(WW) , 1 , 1) ="N"THEN 

PRINT "NORTH  " ; : N=1ELSEN=0 

2180  IFMID$ (DD$ (WW) , 2 , 1) ="S"THEN 

PRINT"SOUTH  " ; : S=1ELSES=0 

2190  IFMID$ (DD$ (WW) , 3 , 1) ="E"THEN 

PRINT "EAST  " ; : E=1ELSEE=0 

2200  IFMID$ (DD$ (WW) ,4,1) ="W"THEN 

PRINT"WEST  " ; :W=1ELSEW=0 

2210  IFMID$ (DD$ (WW) , 5 , 1) ="U"THEN 

PRINT"UP  " ; :U=1ELSEU=0 

2220  IFMID$ (DD$ (WW) ,6,1) ="D"THEN 

PRINT"DOWN  " ; : D=1ELSED=0 

2230  PRINT: RETURN 

2240  DATA  18,10,1,13,1,12,34,4, 
19,14,1,18,20,5,21,1,1,8,1,15,22 
,16,2,17,2  3,10,1,15,1,13,1,18,24 
,8,1,19,25,19,3,9,4,2,1,10,1,13, 
2  6,11,27,10,1,18,5,1,28,7,29,14, 
1,15,30,20,1,18,6,8,1,15,7,13,8, 
18,31,3,1,19,9,9,10,1,11,10,1,13 
,32,12, 12, 11,1,8, 1, 15,5,4,1,7, 1 
2250  DATA  3,1,15,33,11,1,7,14,2, 
1,14, 1, 19, 1, 18, 15, 3, 35,1, 16,3, 17 
,1 

2260  DATA  1,N  ,  2  ,  -S  ,3, — 

E  ,4,  W — ,5,  U-,6,  D, 

7  ,  NS  ,  8  ,  N-E  ,  9  ,  N — W — ,  10  ,  -S 

E  ,  11 ,  -S-W — ,  12  ,  — EW — ,  13  ,  -SE 

W — ,  14  ,  NSE  ,  15 ,  NSEW — ,  16 ,  — EWU 

- ,  17  ,  ,  18  ,  NS-W — ,  19  ,  N-EW — , 

20,~EW-D,21,N  UD 

2270  DATA"  JAR","  HAMMER","  ROPE 
","  FUSE","  KEY","  BOOK","  PAPER 
","  TILE","  SHOES","  BLANKET"," 
GEM","  CUE","  SWORD","  GOBLET"," 
KNIFE" 
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World  War  III 


  Program  by  Scott  Settembre 

It  is  1998  and  the  unthinkable  has  happened: 
A  powerful  Asian  country  has  dropped  the 

 1  bomb  on  Russia,  eliminating  the  Soviet  Union 

forever  as  a  world  power.  The  world  is  in 
turmoil  because  rumors  abound  that  the  next 
blow  will  be  dealt  to  the  United  States. 

You  receive  an  urgent  call  from  the  president, 
asking  if  you  will  volunteer  for  the  dangerous 
mission  of  preventing  such  an  attack. 

"Me,  Mr.  President?"  you  ask,  incredulously. 
"What  good  could  I  do?  I  barely  made  it 
through  basic  training  in  the  Army." 

The  president  says  you  have  been  selected 
because  you  represent  the  hopes  and  ideals  of 
the  American  people.  "We  want  somebody  we 
can  count  on  when  the  going  gets  tough,"  he 
explains. 

His  response  to  your  question  doesn't  make 
a  lot  of  sense,  and  you  discard  it  as  just  some 
more  political  rhetoric. 

"Give  it  to  me  straight,  Mr.  President!"  you 
demand. 
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For  a  moment  the  phone  is  silent.  You  hear  whispering  in  the  background 
as  the  president  confers  with  his  advisors. 

"But  we  can't  tell  him  the  truth,"  the  president  says  above  the  whispering. 
"You  must,"  says  another  voice.  "It's  our  only  chance!" 
The  president  returns  to  the  telephone. 

"You  win,"  he  says.  "You  were  chosen  in  a  nationwide  lottery  of  former 
servicemen.  If  you  do  not  volunteer,  you  will  be  convicted  of  treason  and 
hung  by  the  neck  by  sundown  tomorrow." 

"I'll  go!"  you  say  as  enthusiastically  as  possible,  feeling  little  confidence 
in  your  ability  to  prevent  such  a  major  holocaust. 

Before  you  realize  it,  you  are  aboard  a  military  jet.  Then  you  are  transferred 
to  a  helicopter.  Since  they  have  blindfolded  you,  you  really  don't  know  the 
exact  location.  You  suspect  it  must  be  an  Asian  country  since  it  takes  forever 
to  get  there. 

Finally,  the  blindfold  is  removed.  You  receive  a  brief  set  of  instructions 
and  are  told  to  jump  the  10  feet  to  the  ground. 

You  land  on  your  feet,  fortunately.  The  scene  is  a  vast  desert,  and  just 
over  a  few  sand  dunes  is  the  location  of  the  secret  nuclear  base  you  must 
put  out  of  commission. 

You  will  need  to  enter  a  P0KE25,G:NEW  to  reserve  enough  memory  prior 
to  loading  this  Adventure. 

The  president  sends  his  best  wishes  for  a  successful  mission. 


(Scott  Settembre  is  an  honor  student  at  Woodbury  High  School  in  Monroe, 
N.  Y.  He  has  won  several  computer  programming  honors  in  district  and 
state  competitions.) 
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-  WARIII 


32K  ECB 


0  CLS 

1  CLEAR2000:DIM  Al$  (33)  ,A2$  (33)  , 
A3$(33) ,IN$(19) ,IN(19) 

2  CLS: FOR  X=l  TO  17: READ  A$,S:IN 
$ ( X) =A$ : IN ( X) =S : NEXT  X : IN$ ( 18 ) =" 
CIRCUT":IN(18)=100 

3  PRINT@480,"  WELCOME  TO  WORLD  W 
AR  III (UNLESSYOU  CAN  PREVENT  IT! 
)•" 

4  PRINT 

5  FOR  X=l  TO  33: READ  A$,S$:A1$(X 
)=A$:A2$(X)=S$:NEXT  X 

6  A1$(18)=A1$(10) :A1$(20)=A1$(10 
) :A1$(27)=A1$(10) 

7  A$=INKEY$:IF  A$=""  THEN  7  ELSE 
8 

8  ' 

9  SC=1:TU=1:WA=1.00 

10  PRINTA1$(SC) :GOSUB50:IF  SC=3 
OR  SC=9  THEN  IF  TU>2  4  AND  TU<3  2 
THEN  PRINT"  YOU  CAN  SEE  A  TROOP 
OF  SOLDIERSIN  THE  DISTANCE.  WATC 
H  OUT!" 

11  PRINT" :"; :AA=481:AA$="" 

12  PRINT@AA , CHR$ (239) ; : A$=INKEY$ 
:IF  A$=""  THEN  12 

13  IF  A$=CHR$(13)   THEN  20 

14  IF  A$=CHR$(12)  THEN  AA$="":PR 
INT@ 4  80  ,  "  :  "  ;  STRING$  ( 3 J3  ,  CHR$  (32)) 
; :AA=481: :GOT012 

15  IF  A$=""  THEN  12  ELSE  IF  A$=C 
HR$ ( 8 )  THEN  PRINT @AA , "  " ; : AA=AA- 
1:IF  AA<481  THEN  AA=481 : AA$=" " : G 
OTO  12  ELSE  AA$=MID$ ( AA$ , 1 , LEN (A 
A$) -1) :GOTO  12 

16  AA=AA+1:IF  AA>510  THEN  AA=AA- 
l:GOTO  12 

17  AA$=AA$+A$:PRINT@AA-1,A$; :GOT 
0  12 

20  PRINT@AA, "  "; :A$=AA$: PRINT :DD 
=0:IF  A$="N"  OR  A$="NORTH"  THEN 
DD=l:GOTO  45 

21  IF  A$="S"  OR  A$="SOUTH"  THEN 
DD=3 :GOT045 

22  IF  A$="W"  OR  A$="WEST"  THEN  D 
D=5:GOTO  45 

2  3  IFA$="E"  ORA$="EAST"  THENDD=7 
:GOT045 

24  IFA$="U"  OR  A$="UP"  THEN  DD=9 
:GOTO  45 

25  IF  A$="D"  OR  A$="DOWN"  THEN  D 
D=ll:GOTO  45 

26  IF  A$="TELL  TIME "ORA$= "READ  W 
ATCH"ORA$="READ  CLOCK" ORA$=" LOOK 

WATCH" ORA$=" LOOK  CLOCK"ORA$="LO 
OK  TIME "THEN  PRINT"  IT  IS  NOW  "; 


: PRINTUSING"## . ##" ;WA; : PRINT" . " ; 
:GOT04  5 

27  F$="":G$="":F$=MID$(A$,l/3) :F 
OR  X=l  TO  LEN(A$):IF  MID$(A$,X,1 
)=CHR$(32)  THEN  G$=MID$ (A$ , X+l , 3 
)   ELSE  NEXT  X 

28  IF  F$="GET"ORF$="TAK"ORF$="ST 
E"ORF$="GRA"ORF$="CAR"THENGOSUB3 
00: GOTO  45  ELSE  IF  F$="DRO"  OR  F 
$="LEA"  OR  F$="PUT"  OR  F$="LOS" 
THEN  GOSUB310:GOTO  45 

29  IF  F$="INV"  OR  F$="POS"  THEN 
GOSUB9j3:GOTO  45 

30  IF  F$="EXA"ORF$="LOO"THEN  92 

31  IF  F$="REA"  OR  F$="TRA"  THEN 
110 

32  IF  F$="TOS"  OR  F$="THR"  THEN 
130 

33  IF  F$="INS"  THEN  150 

34  IF  F$="PRE"  OR  F$="PUS"  THEN 
160 

35  IF  F$="KIL"  OR  F$="HIT"  THEN 
180 

36  IF  F$="FIX"  THEN  190 

37  IF  F$="LOA"  THEN  191 

38  IF  F$="WEA"  THEN  220 

39  IF  F$="SHO"  THEN  IF  G$="PER" 
OR  G$="MAN"  THEN  181  ELSE  IF  F$= 
"SHO"  THEN  PRINT"  NO  WAY!":GOTO 
45 

40  IF  F$="OPE"  THEN  GOSUB  710: GO 
TO  45 

41  IF  F$="PIC"  THEN  230 

42  IF  F$="UNS"  THEN  240 

43  IF  F$="REM"  THEN  245 

44  IF  A$=""  THEN  45  ELSE  PRINT" 
I  DONT  KNOW  HOW  TO  "A$" ." 

45  IF  DD>0  THEN  GOSUB320:IF  L0<1 
OR  LO>39  THEN  47  ELSEGOSUB200 : G 

OSUB800:GOSUB340:GOTO  10 

46  1 

47  GOSUB  800 

48  GOSUB  200:GOSUB340: 

49  IF  AA$=""  THEN  GOTO  11  ELSE  P 
RINT: GOTO  11 

50  FOR  X=l  TO  18: IF  IN(X)=SC  THE 
N  GOSUB  60 

51  NEXT  X: RETURN 

60  IF  X=8  THEN  PRINT "THERE  IS  TE 
AR  GAS  HERE .": RETURN 

61  IF  X=16  THEN  PRINT"THERE  ARE 
MISSILE  PLANS  HERE . 11 : RETURN 

62  PRINT "THERE  IS  A  "IN$(X)H  HER 
E.  " 

63  RETURN 

90  PRINT"  YOU  HAVE  THE  FOLLOWING 
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91  FOR  X=l  TO  18: IF  IN(X)=0  THEN 
PRINT"   ";IN$(X) :NEXT  X : RETURN  E 

LSE  NEXT  X: RETURN 

92  IF  A$="LOOK"  THEN  GOSUB200:GO 
TO  10 

93  IF  IN(1)=0  AND  G$="CAR"  THEN 
PRINT"  IT'S  A  COMPUTER  CARD.": GO 
TO  45 

94  IF  IN(3)=0  AND  G$="BOX"  THEN 
PRINT"  THERE  IS  WRITING  ON  IT.": 
GOTO  45 

95  IF  IN(8)=0  THEN  IF  G$="GAS"  O 
R  G$="TEA"  THEN  PRINT"  THERE  IS 
WRITING  ON  IT.": GOTO  45 

96  IF  IN(9)=0  AND  IN=0  AND  G$="G 
UN"  THEN  PRINT"  IT  IS  BROKEN. 11  :G 
OTO  45 

97  IF  IN (14)  AND  G$="BUL"  THEN  P 
RINT"  THERE  ARE  THREE  BULLETS  HE 
RE.": GOTO  45 

98  IF  IN(17)=0  AND  G$="FLA"  THEN 
PRINT"  THERE  IS  WRITING  ON  IT." 

:GOTO  45 

99  IF  SC=32  AND  G$="MIS"  THEN  PR 
INT"  THIS  MISSILE  LOOKS  LIKE  A 

NUCLEAR  MISSILE! ! ":IF  D1=0  T 
HEN  PRINT"  THE  MAN  SEES  YOU  LOOK 
ING  AT         HIS  MISSILE.   HE  SHOOTS 
YOU  13       TIMES  IN  THE  HEAD.  YOU 
R  DEAD!": GOTO  999  ELSE  GOTO  45 

100  IF  SC=19  OR  SC=14  THEN  IF  G$ 
="GRA"  THEN  PRINT"   IT  CAN  BE  REM 
OVED  WITH  A  SCREW-DRIVER. ": GOTO 
45 

101  IF  SC=21  OR  SC=28  THEN  IF  G$ 
="GUA"  THEN  PRINT"  THEY  ARE  BIG 
AND  UGLY!":GOTO  45 

102  IF  IN(10)=0  AND  G$="CHA"  THE 
N  PRINT"  IT  LOOKS  STURDY .": GOTO 
45 

103  IF  G$="TIM"  OR  G$="BOM"  THEN 
IF  IN(15)=0  THEN  PRINT"  THERE  I 

S  WRITING  ON  IT.": GOTO  45 

105  IF  IN(16)=0  THEN  IF  G$="PLA" 
OR  G$="MIS"  THEN  PRINT"  THEY  AR 

E  top*secret!":GOTO  45 

106  IF  IN(6)=0  AND  G$="WAT"  THEN 
PRINT"  IT'S  AN  DIGITAL  WATCH.": 

GOTO  45 

107  IF  IN(2)=0  THEN  IF  G$="HOO" 
OR  G$="GRA"  THEN  PRINT"  THERE'S 
NOTHING  SPECIAL  ABOUT     IT.": GOTO 

45 

108  FOR  X=l  TO  19: IF  MID$(IN$(X) 
,  1,3)=G$  THEN  109  ELSE  NEXT  X:IF 

G$="HOO"  OR  G$="GAS"  OR  G$="BOM 
"  OR  G$="PLA"  THEN  PRINT"  YOU  DO 
N'T  HAVE  IT!": GOTO  45  ELSE  PRINT 
"  I  DON'T  KNOW  WHAT  IT  IS!":GOTO 
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109  IF  IN(X)=0  THEN  PRINT"  THERE 
'S  NOTHING  STRANGE  ABOUT  IT!":G 
OTO  45  ELSE  PRINT"  YOU  DON'T  HAV 
E  IT!": GOTO  45 

110  IF  IN(3)=0  AND  G$="BOX"  THEN 
PRINT"  IT  SAYS, ' top* secret ! '":G 

OTO  45 

111  IF  IN(4)=0  AND  G$="MES"  THEN 
PRINT"  THE  MESSAGE  READS,    'AT  1 

.23  A  GROUP  OF  GUARDS  WILL  RETR 
EVE  THEMISSILE  CIRCUT . ' " : GOTO  45 

112  IF  IN(8)=0  THEN  IF  G$="TEA" 
OR  G$="GAS"  THEN  PRINT"  THROW  GA 
S  AND  RUN!!":GOTO  45 

113  IF  IN(15)=0  THEN  IF  G$="TIM" 
OR  G$="BOM"  THEN  PRINT"  PRESS  B 

UTTON.   BOMB  WILL  EXPLODE 1  HOUR  A 
FTER.   TOTAL  DESTRUCTION  WITHIN  1 
CUBIC  MILE.": GOTO  45 

114  IF  IN(17)=0  THEN  IF  G$="FLA" 
THEN  PRINT"  HOLD  FLAIR  UP  IN  AI 

R  AND  PRESS  BUTTON .": GOTO  45 

119  PRINT"   I  CAN'T  READ  IT.": GOT 

0  45 

130  IF  G$="TEA"  OR  G$="GAS"  THEN 
TI=TU+1 : TE=1 : IN ( 8 ) =SC : CA=CA-1 : G 

OTO  46 

131  IFG$="GRA"ORG$="HOO"THENIFIN 
(2)=0ANDSC=2  THEN  IN (2) =100 : Al$ ( 
2)="  THERE  IS  A  STEEP  CLIFF  TOWE 
RINGOVER  YOU.  A  GRAPPLING  HOOK  H 
ANGSOVER  THE  CLIFF. " : A2$ (2) ="400 
104050300" :A2$ (3) ="414141410002" 
: PRINT " OK. " :CA=CA-1: GOTO  45 

132  GOSUB  3 10: GOTO  45 

150  IF  SC=8  AND  G$="CAR"  AND  IN ( 
1)=0  THEN  PRINT"  THE  SLOT  EATS  U 
P  THE  CARD  WITH  A  WHIRR  AND  THE 
DOOR  OPENS. " :A2$ (8) ="00100709090 
0" :A2$ (10) ="08000000000000": IN (1 
) =100 :CA=CA-l: GOTO  45 

151  IF  SC=8  AND  G$="CAR"  AND  IN ( 
1)>0  THEN  PRINT"  YOU  DON'T  HAVE 
IT!": GOTO  45 

152  IF  SC=8  THEN  PRINT"  NOTHING 
OTHER  THAN  A  CARD  WILL  FIT  IN  TH 
E  SLOT.": GOTO  45 

153  IF  SC<>8  THEN  PRINT"  WHAT  AM 
I  SUPPOSED  TO  INSERT  ITIN,  SILL 

Y!":GOTO  45 

154  PRINT"NO! " :GOTO  45 

160  IF  SC=10  OR  SC=18  OR  SC=20  0 
R  SC=27  THEN  AP=VAL (G$ ) : GOTO  178 

161  IF  G$="BUT"  AND  IN(15)=0  THE 
N  PRINT"  THE  TIME  BOMB  IS  SET  TO 

EXPLODEIN  ONE  HOUR. ": SE=1 : GOTO 
45 

162  IF  G$="BUT"  AND  IN(17)=0  AND 
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SC<7  THEN  PRINT"  THE  FLARE  SHOO 
TS  UP  INTO  THE  SKY  AND  EXPLODE 
S  INTO  A  SHOWER  OF  SPARKS.  YOU 
HERE  A  HELICOPTERIN  THE  SKY.  YOU 
R  SAVED!  HURRY  AND  GET  ON  THE 
CLIFF  SO  IT  CAN  PICK  YOU  UP.":P 
L=5:GOTO  45 

163  IF  G$="BUT"  AND  IN(17)=0  AND 
SC>5  THEN  PRINT"  DON'T  SHOOT  IT 
INSIDE! 11  :GOTO  45 

165  IF  G$="BUT"  THEN  PRINT"  THER 
E  IS  NO  BUTTON  TO  PRESS! ":GOTO  4 
5 

166  PRINT"  I  CAN'T  PRESS  THAT!": 
GOTO  45 

170  PRINT"  THE  ELEVATOR  MOVES  SU 
DDENLY  ANDTHEN  STOPS.  A  DOOR  OPE 
NS  TO  THE  NORTH.": IF  AP=1  THEN  S 
C=10 : GOSUB2  00 : GOSUB8 0 0 : PRINT : GOT 
0  10 

171  IF  AP=2  THEN  SC=18 : GOSUB200 : 
GOSUB800: PRINT: GOTO  10 

172  IF  AP=3  THEN  SC=20 : GOSUB200 : 
GOSUB800: PRINT: GOTO  10 

173  IF  AP=0  AND  G$="B"  THEN  SC=2 
7 : GOSUB200 : GOSUB800 : PRINT : GOTO10 

174  GOTO  161 

178  IF  AP>0  AND  AP<4  THEN  170 

179  IF  AP=0  AND  G$="B"  THEN  170 
ELSE  161 

180  IF  G$="GUA"  THEN  IF  SC=2  8  OR 
SC=21  THEN  PRINT"  NO,   I  DON'T  T 

HINK  SO! ": GOTO  45 

181  IF  G$="PER"  OR  G$="MAN"  THEN 
IF  SC=32  THEN  IF  LC=1  AND  FI=1 

AND  IN(9)=0  THEN  PRINT"  YOU  SHOT 

THE  MAN!":A1$(32)="  YOU  ARE  IN 
A  LARGE  AREA.  A  MISSILE  IS  I 

N  THE  CENTER  OF  THE  ROOM.  A  PERS 
ON  IS  ON  THE  FLOOR  DEAD!":LC=0: 
D1=1:IN(14)=100:GOTO  45 

182  IF  G$=" TAR"  THEN  IF  IN(5)=0 
THEN  PRINT"  NOT  ONLY  DID  YOU  KIL 
L  IT,   BUT     YOU  HIT  IT  A  MILE!":S 
V=1:A1$(3)="  YOU  ARE  AT  THE  TOP 
OF  A  STEEP     CLIFF.": GOTO  45  ELSE 

PRINT"  YOU  DON'T  HAVE  THE  STICK 
!":GOTO  45 

183  PRINT"  WHY  DON'T  YOU  LEAVE  I 
T  ALONE! " :GOTO  45 

190  IF  G$="GUN"  AND  IN(9)=0  THEN 
PRINT"  YOU  FIXED  IT ! " : FI=1 : GOTO 
45  ELSE  PRINT"  IT  IS  FIXED.": GO 

TO  45 

191  IF  G$="GUN"  AND  IN(9)=0  AND 
IN(14)=0  AND  FI=1  THEN  PRINT"  IT 

LOADED  AND  READY  TO  SHOOT": IN (1 
4)=100:LC=1:CA=CA-1:GOTO  45 

192  IF  G$<>"GUN"  THEN  PRINT"  I  C 


AN'T  LOAD  THAT!": GOTO  45 

193  IF  IN(9)>0  THEN  PRINT"  GET  A 
GUN!": GOTO  45 

194  IF  IN(14)>0  THEN  PRINT"  GET 
SOME  BULLETS !": GOTO  45 

195  IF  FK1  THEN  PRINT"  FIX  THE 
GUN!": GOTO  45 

196  PRINT"  I  CAN'T  LOAD  THAT ! " : G 
OTO  45 


200  TU=TU+1:WA=WA+.01: IF  WA-INT( 
WA)=.60  THEN  WA=INT(WA) 

201  RETURN 

220  IF  G$="UNI"  THEN  IF  IN(7)<>0 
THEN  PRINT"  YOU  DON'T  HAVE  IT!" 

:GOTO  45  ELSE  UN=1 : IN (7 ) =100 : PRI 
NT"  YOU  ARE  NOW  WEARING  IT.": GOT 
0  45 

221  PRINT"  I  CAN'T  WEAR  THAT ! " : G 
OTO  45 

230  IF  G$="DOO"  OR  G$="LOC"  THEN 
IF  SC=31  AND  IN(13)=0  THEN  A2$( 

31) ="002900320000": PRINT"  THE  DO 
OR  IS  UNLOCKED  AND  OPEN.": GOTO  4 
5  ELSE  IF  SC=3  2  THEN  PRINT"  YOU 
CAN'T  PICK  WITHOUT  A  NAILF 
ILE!":GOTO  45  ELSE  PRINT"  I  CAN' 
T  PICK  THAT  DOOR!":GOTO  45 

231  PRINT"  I  CAN  ONLY  PICK  A  DOO 
R  OR  A        LOCK.": GOTO  45 
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240  IF  S014  THEN  241  ELSE  PRINT 
■  YOU  CAN'T  UNSCREW  THAT!11: GOTO 
45 

241  IF  G$="GRA"  THEN  242  ELSE  PR 
INT"  WHY  NOT  UNSCREW  THE  GRATE IN 
G?":GOTO  45 

242  IF  IN(10)=14  THEN  IF  IZ=1  TH 
EN  PRINT"  YOU  ALREADY  DID!": GOTO 
45  ELSE  GR=1: PRINT"  YOU  STEPPED 
ON  THE  CHAIR  AND       UNSCREWED  THE 

GRATEING . " : IZ=1 : GOTO  45  ELSE  PR 
INT"  YOU  CAN'T  REACH  IT!": GOTO  4 
5 

245  IF  SC=14  THEN  246  ELSE  PRINT 
"  I  CANNOT  REMOVE  THAT!": GOTO  45 

246  IF  IZ=0  AND  G$="GRA"  THEN  PR 
INT"  YOU'LL  HAVE  TO  UNSCREW  IT 

FIRST.": GOTO  45 

247  IFGR=1ANDG$="GRA"THENIFIZ=2T 
HENPRINT"  YOU  ALREADY  DID!": GOTO 
45ELSEIFIN(10)=14THENPRINT"  YOU 
STEPPED  ON  THE  CHAIR  AND  REMOV 
ED  THE  GRATEING. " : GOSUB249 : A2$ (1 
4)  ="151217191900"  :A2$  (19)  ="00001 
4240024" :IZ=2: GOTO  45  ELSE  PRINT 
"  YOU  NEED  A  CHAIR!": GOTO  45 

248  PRINT"  YOU  CANNOT  REMOVE  THA 
T!":GOTO  45 

249  Al$(14)="  YOU  ARE  IN  A  HALLW 
AY  THAT  LEADSNORTH, SOUTH  AND  WES 
T.  THERE  IS  A  SMALL  AIR  SHAFT  I 
N  THE  EAST  WALL.  A  SMALL  GRAT 
EING  LIES  ON  THE  FLOOR .": RETURN 

300  GOSUB  700: IF  G$="HOO"  AND  IN 
(2)=100  OR  G$="GRA"  AND  IN(2)=10 
0  THEN  PRINT"  YOU  CAN'T  GET  IT." 
:  RETURN  ELSE  FOR  X=l  TO  18 : IF  MI 
D$(IN$(X) ,1,3)=G$  THEN  304  ELSE 
NEXT  X 

301  IF  G$="PLA"  THEN  X=16:GOTO  3 
04 

302  IF  G$="HOO"  THEN  X=2:GOTO304 

303  IF  G$="BOM"  THEN  X=15:GOTO  3 
04  ELSE  IF  G$="GAS"  THEN  X=8 : GOT 
0  304  ELSE  PRINT"  IT  ISN'T  HERE! 
" : RETURN 

304  IF  IN(X)=0  THEN  PRINT"   YOU  A 
LREADY  HAVE  IT ! " : RETURN  ELSE  IF 
IN(X)=SC  THEN  305  ELSE  PRINT"  IT 
'S  NOT  HERE !": RETURN 

305  IF  CA>6  THEN  PRINT"  YOU'LL  H 
AVE  TO  DROP  SOMETHING .": RETURN  E 
LSE  IN (X)=0: PRINT"  OK. " : CA=CA+1 : 
RETURN 

310  FOR  X=l  TO  18: IF  MID$(IN$(X) 
,1,3)=G$  THEN  314  ELSE  NEXT  X 

311  IF  G$="PLA"THEN  X=16:GOT0314 
ELSE  IF  G$="HOO"  THEN  X=2  :GOTO 
314  ELSE  IF  G$="GAS"  THENX=8 : GO 


TO  314 

312  IF  G$="BOM"  THEN  X=15:GOTO  3 
14 

313  PRINT"  I  DON'T  KNOW  WHAT  THA 
T  IS!":RETURN 

314  IF  IN(X)=0  THEN  315  ELSE  PRI 
NT"  YOU  DON'T  HAVE  IT!": RETURN 

315  IN(X)=SC:CA=CA-l:PRINT"OK. " : 
RETURN 

320  LO=VAL(MID$(A2$(SC) ,DD,2) ) 

321  IF  LO=0  THEN  PRINT"  YOU  CAN' 
T  GO  THAT  WAY!": RETURN 

322  IF  LO=40  THEN  PRINT"THE  CLIF 
F  IS  BLOCKING  YOUR  WAY ! " : RETURN 
32  3  IF  LO=41  THEN  PRINT"  NO  WAY! 
" : RETURN 

324  IF  LO=43  THEN  PRINT"  THE  MET 
AL  DOOR  IS  CLOSED! ": RETURN 

325  IF  LO=44  THEN  PRINT"  YOU  WIL 
L  HAVE  TO  REMOVE  THE  GRATEING 
! " : RETURN 

32  6  IF  LO=45  THEN  PRINT"  THE  GUA 
RDS  WON'T  LET  YOU  PASS !": RETURN 

327  IF  LO=42  THEN  330 

328  SC=LO:GOSUB3 40: RETURN 

3  30  IF  SC=3  OR  SC=2  THEN  PRINT" 
YOU  FELL  TO  YOUR  DEATH  WHILE  C 
LIMBING.   YOU  SHOULD  HAVE  USED  T 
HE  GRAPLING  HOOK! " : GOT0999 
3  39  PRINT "OH  NO!   YOUR  DEAD!": GOT 
0  999 

340  IF  UN=0  THEN  IF  LO=21  OR  LO= 
28  THEN  PRINT"  YOU  WALK  INTO  TWO 

GUARDS.   ONE     YELLS, 1   SHOOT  HIM! 
HE ' S  NOT  ONE  OF  US ! '   BEFORE  YOU 
COULD  ESCAPE, YOUR  BODY  FALLS  DE 
AD!": GOTO  999 

341  IF  IN(18)=100  THEN  IF  TU>120 
THEN  PRINT"  YOU  CAN  HEAR  A  ROCK 

ET  PASS  OVERHEAD  AND  EXPLODE 

.  WORLD  WAR  III  HAS  STARTED! ":GO 
TO  999 

342  IF  IH=1  THEN  343  ELSE  IF  IN ( 
18)=101  AND  LO=32  THEN  Al$(32)=" 

YOU  ARE  IN  A  VERY  LARGE  AREA.  A 
LONG  MISSILE  IS  IN  THE  CENTER  OF 
THE  ROOM.  A  MAN  IS  SLEEPING  WITH 
A  PLESANT  SMILE  ON  HIS  FACE.":IH 
=1: RETURN 

343  IF  TU>22  AND  TU<34  THEN  READ 
D:IF  LO=D  OR  SC=D  THEN  PRINT"  A 
GROUP  OF  SOILDERS  SEE  YOU.  TH 

EY  SHOOT  YOU  ON  SIGHT.  YOUR  DE 
AD!":GOT0999  ELSE  GOSUB3  50 : RETUR 
N 

344  IF  TE=1  AND  TU=TI+1  AND  SC=I 
N(8)  THEN  PRINT"  YOU  ARE  OVERCOM 
E  BY  THE  GAS,  I  DOUBT  YOU  WILL  W 
AKE  UP.": GOTO  999 


3  45  IF  B0=1  AND  TU>OB  THEN  PRINT 
"  YOUR  TIMEBOMB  JUST  BLEW  UP.  YO 
UHAVE  COMPLETED  YOUR  MISSION,  BU 
TYOU  DIDN'T  ESCAPE  ALIVE !": GOT09 
99 

34  6  IF  TE=1  AND  TU>TI  THEN  TE=0 : 
IF  IN(8)=28  THEN  IN ( 8 ) =100 : Al$ ( 2 
8)="  YOU  ARE  IN  A  N/S  HALLWAY.  A 

CLOSET  IS  IN  THE  EAST  WALL. 
TWO  GUARDS  ARE  ASLEEP  ON  THE  FLO 
OR.  »  :A2$  (28)  ="29100/3330000"  :RETU 
RN 

349  RETURN 

350  IF  IN(18)=D  THEN  IN(18)=101: 
RETURN  ELSE  IF  IN (18) =100  AND  IN 
(3)=D  THEN  IN (18) =101: RETURN 

351  RETURN 

700  IF  G$="BOX"  AND  SC=3  AND  SV= 
0  THEN  PRINT"  THE  TARANTALLA  IS 
GUARDING  THE  BOX.":GOT045  ELSE  R 
ETURN 

710  IF  G$<>"BOX"  THEN  PRINT"  YOU 
CAN'T  OPEN  THAT !": RETURN 

711  IF  G$="BOX"  AND  IN(3)=0  AND 
IN (18) =100  THEN  PRINT"  YOU  OPEN 
THE  BOX  AND  A  CIRCUT     FALLS  TO  T 
HE  GROUND. ": IN (18) =SC: RETURN  ELS 
E  PRINT"  THE  BOX  IS  EMPTY! ":RETU 
RN 

712  PRINT"  YOU  DON'T  HAVE  IT!":R 
ETURN 

800  IF  PL=5  AND  SC=3  THEN  2000 

801  IF  TU=SE  THEN  820 

802  IF  TU>300  THEN  PRINT"  THIS  G 
AME  IS  HARD,    ISN'T  IT!" 

819  RETURN 

820  PRINT"  YOUR  TIME  BOMB  JUST  B 
LEW  UP.        YOU  HAVE  COMPLETED  YOU 

MISSION,    BUT  YOU  DIDN'T  ESCAPE 
ALIVE !":GOTO  999 

999  GOTO  999 

1000  DATA  CARD, 4, GRAPPLING  HOOK, 
9 , BOX , 3 , MESSAGE , 7 , STICK , 5 , WATCH , 
0, UNI FORM, 16, TEAR  GAS , 11 , GUN , 19 , 
CHAIR, 17 , SCREWDRIVER, 13 , FOLDER, 2 
3,NAILFILE,2  6,BULLETS,22,TIME  BO 
MB, 33, MISSILE  PLANS , 3 2 , FLARE , 2 8 

1001  DATA  "  YOU  ARE  IN  THE  MI DDL 
E  OF  THE       DESERT. " ,020604050000 

1002  DATA  "  THERE  IS  A  STEEP  CLI 
FF  TOWERINGOVER  YOU. ", 4001040542 
00 

1003  DATA  "  YOU  ARE  AT  THE  TOP  O 
F  A  STEEP  CLIFF.  A  TARANTULA  AC 
COMPANIES     YOU. ",41414141004  2 

1004  DATA  "  YOU  ARE  IN  AN  ENDLES 
S  DESERT. " ,040404010000 

1005  DATA  "  YOU  ARE  IN  AN  ENDLES 
S  DESERT. " ,050501050000 


1006  DATA  "  YOU  ARE  ON  AN  OLD  WO 
RNOUT  AIRSTRIP.   THERE  IS  AN 

ABANDONED  CONTROL  TOWER  TO  THE 
SOUTH. " ,010704050000 

1007  DATA  "  YOU  ARE  IN  THE  OFFIC 
E  OF  THE  CONTROL  TOWER.  DUST  B 
ALLS  AND  BROKEN  GLASS  LITTER  T 
HE  ROOM. " ,060000080000 

1008  DATA  "  A  FLIGHT  OF  STAIRS  L 
EADS  UP  IN  THE  EAST  AND  A  STRANG 
E  METAL  DOOR  WITH  A  LIGHTED  S 
LOT  IS  ON  THE  SOUTH  WALL. ",0043 
07090900 

1009  DATA  "  YOU  ARE  IN  THE  CONTR 
OL  TOWER.     IN  THE  NORTH  YOU  CAN 
SEE  A  LARGECLIFF.    PARTS  OF  A  TWO 
-WAY  RADIO  CLUTTER  THE  FLOOR. ",0 
00000080008 

1010  DATA  "  YOU  ARE  IN  AN  ELEVAT 
OR.  BUTTONSON  THE  WALL  READ  '1', 
•2', '3'  AND'B' .",430000000000 

1011  DATA  "  YOU  ARE  IN  THE  ARMOR 
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Y.  EMPTY  BALLISTIC  BOXES  ARE  S 
TACKED  IN  THE  CORNER. 00001200 
0000 

1012  DATA  "  YOU  ARE  IN  A  HALLWAY 
THAT  LEADSIN  ALL  DIRECTIONS .", 1 

41813110000 

1013  DATA  "  YOU  ARE  IN  A  HALLWAY 
THAT  LEADSNORTH  AND  EAST.  A  SWE 

ET  AROMA  FILLS  THE  AIR. 11 , 17000 
0120000 

1014  DATA  "  YOU  ARE  IN  A  HALLWAY 
THAT  LEADSNORTH, SOUTH  AND  WEST. 
AN  AIR         GRATEING  IS  HIGH  ON  T 

HE  EAST         WALL. ", 151217444400 

1015  DATA  11  YOU  ARE  IN  ANOTHER  H 
ALLWAY.   A     SOILDERS  BARRACKS  IS 
TO  THE  EAST.  11 ,001400160000 

1016  DATA  "  YOU  ARE  IN  A  ROOM  WI 
TH  MANY  BEDS  AND  LOCKERS.  EVE 
RYTHING  IS  NEAT. ",000015000000 

1017  DATA  "  YOU  ARE  IN  THE  CAFIT 
ERIA. ",001300140000 

1018  DATA  "",120000000000 

1019  DATA  "  YOU  ARE  IN  AN  AIR  SH 
AFT.  THE  SHAFT  LEADS  DOWN. ",00 
0044240024 

1020  DATA  "",210000000000 

1021  DATA  "  YOU  ARE  IN  A  HALLWAY 
THAT  LEADSNORTH  AND  WEST.   TWO  G 

UARDS  BLOCKYOUR  WAY .  ' LEAVE ! • , TH 
EY  SHOUT. ",452045450000 

1022  DATA  »  YOU  ARE  IN  AN  EAST/W 
EST  HALL. ",002125230000 

102  3  DATA  "  YOU  ARE  IN  A  LARGE  L 
ABORATORY.  A  CLOSET  IS  IN  THE  NO 
RTH  WALL. ",240022000000 

1024  DATA  11  YOU  ARE  IN  A  CLOSET. 
AIR  SEEMS  TO  BE  BLOWING  DOWN.", 

002300001900 

1025  DATA  "  YOU  ARE  IN  A  HALLWAY 
.   A  FLIGHT  OF  STAIRS  IN  THE  WEST 

LEAD  DOWN. ",002630220030 
102  6  DATA  "  YOU  ARE  IN  AN  HALLWA 
Y.   IT  LEADSEAST  AND  NORTH  FROM  H 
ERE. " ,250000210000 
1027  DATA  "",280000000000 
102  8  DATA  »  THERE  ARE  TWO  GUARDS 

HERE.  ONE  SAYS,'  THIS  AREA  IS  R 
ESTRICTED  TO  YOU,  SIR! '", 452745 
450000 

1029  DATA  "  YOU  ARE  IN  A  HALLWAY 
.  IT  LEADS  NORTH, SOUTH  AND  WEST. 
",312830000000 

1030  DATA  "  YOU  ARE  IN  A  STAIRWE 
LL.  THE  STAIRS  LEAD  UP. ",2500 
00292500 

1031  DATA  "  YOU  ARE  IN  A  CORRIDO 
R.   A  METAL  DOOR  ON  YOUR  EAST  IS 
LOCKED. " ,002900430000 


1032  DATA  "  YOU  ARE  IN  A  VERY  LA 
RGE  AREA.  ALONG  MISSILE  IS  IN  TH 
E  CENTER  OFTHE  ROOM.  A  PERSON  BY 

THE  MISSILE  IS  MUTTERING 

SOMETHING     ABOUT  A  CIRCUT.   HE  DO 
ESN'T  SEE     YOU. " ,000031000000 
103  3  DATA  "  YOU  ARE  IN  A  CLOSET 
THAT  HAS       MANY  CLOSED  CASES  OF 
WEAPONS  ANDBOMBS.   ONE  CASE  IS  ON 

THE  FLOOR  OPEN. " ,000028000000 
1099  DATA  8,7,6,1,2,3,2,1,6,7,8, 
8,7,6,1,2,3,2,1,6,7,8 

2000  IFSE=1ANDIN(15)=0ANDIN(16)= 
0THENPRINT"  YOU  HAVE  ESCAPED  IN 
THE  HELI-  COPTER  WITH  THE  PLANS 
.  YOU  ARE  SURE  TO  GET  A  PROMOTI 
ON  FOR  IT.  OH  NO!  YOU  HAVE  FORGO 
TTEN  ONE       VERY  IMPORTANT  THING! 

YOU  STILL  HAVE  THE  BOMB!  OH  WEL 
L,   IT  WAS": GOTO  2050 

2001  IF  SE=1  AND  IN(16)=0  THEN  P 
RINT"  YOU  HAVE  ESCAPED  IN  THE  HE 
LI-  COPTER  WITH  THE  MISSILE  PLA 
NS.  YOU  ARE  SURE  TO  GET  A  PROMO 
TION  FOR  IT.   AS  YOU  FLY  AWAY  YOU 

HEREA  BIG  BOOOOM!   YOU  HAVE  COMP 
LETEDYOUR  MISSION  CAPTAIN !": GOTO 
999 

2002  IF  SE=1  AND  IN(15)=0  THEN  P 
RINT"  YOU  HAVE  ESCAPED.   BUT  YOU 
DID     NOT  GET  THE  PLANS.   WELL  YOU 

CAN'T  DO  EVERYTHING.   I  HATE 
TO     SAY  THIS,   BUT  YOU  SHOULD  HA 
VE       DROPPED  THIS  BOMB  YOUR  CARR 
YING.OH  WELL,   NICE  KNOWING  YOU! 
KA-     BOOOM!":GOTO  999 

2003  IF  SE=1  THEN  PRINT"  YOU  HAV 
E  ESCAPED!   YOU  DID  A         GOOD  JOB 
.   YOU  FORGOT  THE  PLANS,    BUT  THAT 
'S  O.K.   BECAUSE  NOW  NO  BODY 
HAS  THEM!": GOTO  999 

2004  IF  IN(15)=0  THEN  PRINT"  YOU 
HAVE  ESCAPED  YOU  DUMMY!  YOUSHOU 

LD  HAVE  BLOWN  THE  STATION  TOPIEC 
ES,  BUT  INSTEAD  YOU  GOT  THE  PLAN 
S!  GREAT,  MAYBE  WE  WILL  BLOWUP  A 
S  MANY  CITIES  AS  JAPAN  DOES!":GO 
TO  999 

2005  PRINT"  YOU  ARE  SOOOOO  STUPI 
D.   YOU  DID  NOT  GET  THE  PLANS  NOR 

DID  YOU       BLOW  UP  THE  STATION. 
SO  WHAT,       YOU  SAVED  YOUR  NECK, 
IF  I  WERE     YOU  I  WISH  I  WERE  CAP 
TURED  BY       SOME  CANNIBALS !": GOTO 

999 

2049  PRINT"  BIG  WOW!  YOU  ESCAPED 
!":GOTO  999 

2050  PRINT"NICE  WHILE  IT  LASTED. 
BOOOOM! ": GOTO  999  ^ 
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CASTLE 


Program  by  Darin  Anderson 

np  I 

he  five  stars  are  clearly  visible  over  the  misty 
M        horizon  of  the  Kingdom  of  Tarath.  Halls  that 

 '  once  were  filled  with  cheers  and  laughter  now 

echo  the  silence  of  impending  doom.  Livestock 
that  once  was  abundant  is  now  gone.  People 
roam  the  streets,  searching  frantically  for 
whatever  food  they  can  find. 

There  is  some  cause  for  hope,  however.  The 
residents  are  praying  for  the  recovery  of 
"Nasharel,""  a  giant  diamond  that  once 
protected  the  kingdom  from  the  evil  Marcellous, 
who  later  committed  suicide. 

No  one  knows  where  Marcellous  hid  the 
stone,  but  the  king  can  provide  you  with  a  map 
that  was  found  on  the  body.  It  contains  only 
sketchy  information  about  the  dungeons  in 
which  the  stone  was  hidden.  You  volunteer  for 
the  mission,  knowing  that  Marcellous  has 
placed  deadly  monsters  in  the  dungeon. 

Don't  be  surprised,  however,  if  you  run  into 
merchants  trying  to  sell  you  weapons  in  the 
dungeon.  The  residents  of  the  kingdom  are 
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desperate,  indeed. 

Your  character  will  be  represented  by  a  blue  dot.  The  monsters  are 
represented  by  black  dots,  and  you  cannot  reclaim  the  stone  until  all  monsters 
have  been  destroyed.  You  can  claim  the  treasure  only  when  there  is  a  yellow 
dot  in  the  center  of  the  treasure  chest. 

In  addition  to  movement  of  the  keyboard  arrow  keys,  the  following 
commands  are  at  your  disposal: 

E     —  Eat 

S     —  Sword 

H    —    Drink  Healing  Potion 

B     —    Shoot  Bow 

I     —    Player  Information 

T    —    Teleport  to  the  Nearest  Trading  Post 

You  will  find  some  food  is  available  at  the  trading  posts.  Since  you  were 
brave  enough  to  undertake  the  mission,  some  has  been  set  aside  for  you. 
Be  sure  to  buy  enough  to  last  for  a  while  because  you  won't  see  many  trading 
posts  along  the  way. 


(Darin  Anderson  is  an  llth-grade  student  at  Sky  View  High  School  in 
Smithfield,  Utah.) 


H  DKCASTLE      32K  ECB 


1  *********  COPYRIGHT  1984  BY  DA 
RIN  ANDERSEN  ******** 

2  U$=CHR$(12  8) 

3  CLS:PRINT@64,STRING$(32,CHR$(2 
39)) 

4  PRINT@96,STRING$(32/U$) :PRINT@ 
106,  "dark"U$"castle"; 

5  PRINT@128,STRING$(32/CHR$(128) 
): PRINTS 14 3   , "by"; 

6  PRINT@160,STRING$ (32, U$) : PRINT 
@169  , "darin"U$"andersen" ; 

7  PRINT@192,STRING$(32,CHR$(2  39) 
) 

8  PRINT@456, "COPYRIGHT  1984" 

9  PMODE  3,1:PCLS 

10  CIRCLE(100, 99) ,100,3,1,0, .07: 
CIRCLE (100, 99) ,100,3,1, .49,1: '** 
**MOON  OUTLINE**** 


11  DRAW"C3 ;BM0, 107 ;R120F5D2R4E3R 
5D5F7U3E4R7F4R3RD4R7F5D2E4R2F9" : 
•****CLIFF  OUTLINE***: 

12  DRAW"C3BM53,107U15L3U5R4D2U2R 
4D2U2R4D2U2R4D5L2D3R15U7L3U4E9F1 
0D3L4D7R15U3L2U5R4D2U2R4D2U2R4D2 
U2R4D5L2D15" : ' ****CASTLE  OUTLINE 
**** 

13  DRAW"C3BM59, 69L28G4L6G3L9E5L6 
E3R15E4R7E2U2R19G3R12D2E5R3  3G6L1 
5G2L15G2L5": ' ****CLOUD**** 

14  DRAW" C3 ; BM10 9 , 8 ; G2 5 ; L7 ; E30 ; R7 
;G5":'****A  OUTLINE  ON  MOON**** 

15  PAINT (100,50)  ,3,3:  '****PAINT 
MOON**** 

16  DRAW"C2BM0, 107R122F5D2R4E3R5D 
5F7U3E4R7F4R3RD4R7F5D2E4R2F11R61 
it :  •  ****CLIFF  SHADOW**** 

17  DRAW"C2BM118, 108G6R2E3G4L8E3L 
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18G9L4H4E5L19G3R2G2L12E3R2E6" : ' * 
***CASTLE  SHADOW**** 

18  DRAW"C2BM195 , 139G5L13F3L12E6L 
7G4L22G7D2L45D5L3G9L45D3G3F12R22 
D8": '****SEA  OUTLINE**** 

19  ' DRAW  "C2BM220, 142G20L6G15L4G 
15L12" :DRAW"C2BM220, 142D20L6D15L 
4D15L12": '****WAVES 

20  PAINT (106, 110) ,2,2 

21  PAINT (280, 180) ,2,2:  *  PAINTS  SE 
A 

22  PMODE4 , 1 : SCREEN0 , 1 

23  DRAWC1BM15  , 10D25E3U25G3"  :  CIR 
CLE (22, 17) ,16,1,1,0, .24: CIRCLE (2 
2,17) ,16,1,1, .6,1: CIRCLE (17, 18) , 
16,1,1,0, .24: CIRCLE (17, 18) ,16,1, 
1, .8,1: 'D 

24  PAINT (17, 12) , 1 , 1 : PAINT ( 34 , 18 ) 

25  DRAW"C1BM110, 10D25E3U25G3" : DR 
AWBM109  ,  8G25L7E30R7G5"  :  LINE  (107 
,18)-(100,22) ,PSET,BF: 'A 

26  PAINT(111,22) , 1, 1 : PAINT (93 , 22 
) ,l,l:PAINT(96,20) ,1,1 

2 7  DRAW" CI ; BM1 60 , 10 ; D2  5 ; E 3 ; U2 5 ; G 
3 " : PAINT (161, 22), 1,1: CIRCLE ( 167 , 
17) ,16,1,1, .6,1: CIRCLE (162, 18) ,1 
6,1,1, .8,1: LINE (172, 18) -(183, 18) 
,PSET: CIRCLE (170, 33) ,16,1,1, .6,1 
:CIRCLE(165,34) ,16,1,1, .8,1: LINE 
(178,34)-(189,34) ,PSET: 'R 

28  PAINT(178,8) , 1 , 1 : PAINT ( 178 , 22 
)  ,1,1 

29  DRAW"C1BM220, 10D25E3U25G3 " : PA 
INT (22 1,22) , 1, 1:DRAW"C1BM2  40,4G9 
;L5;E9;R5" : CIRCLE (2 30, 33) , 16, 1, 1 
, ,6,1:CIRCLE(225,34) ,16,1,1, .8,1 
: LINE (238, 34) -(249, 34) ,PSET: 1 *** 
*K**** 

30  PAINT(235,7) , 1 , 1 : PAINT (2 37 , 22 
),1,1 

31  'DRAW"C1BM220,142D20L6D15L4D1 
5L12"  :DRAW"BM220, 142G4D12L9D12L1 
2D22M 

32  LINE(215, 141) -(230, 141) , PSET 

33  LINE(195, 142) -(250, 142) , PSET 

34  LINE(220, 143)-(246, 143) , PSET 

35  LINE(195, 200) -(249,200) , PSET 

36  LINE(130, 160) -(249, 160) , PSET 

37  LINE(100, 161)-(239, 161) , PSET 

38  LINE(120, 162)-(234, 162) , PSET 

39  LINE(100, 189) -(249, 189) , PSET 

40  LINE(70, 170) -(90, 170) , PSET 

41  LINE(50, 171)-(120, 171) , PSET 

42  LINE(189,179) -(245, 179) , PSET 

43  SCREEN  1,1 

44  PLAY"V3101T6L8CP8DP8E-P8FP8GP 
8E-P8L2GL8G-P8DP8L2G-L8FP8D-P8L2 


FL8CP8DP8E-P8FP8GP8E-P8L4GL8A-P8 
GP8FP8E-P8DP8L2CL64CE-G02CE-G03C 
T3" 

45  CLS3 

46  PRINT@73, "HIGH  SPEED  Y/N" ; 

47  A$=INKEY$:IF  A$=""  THEN  47 

48  IF  A$="Y"  THEN  POKE  65495,0  E 
LSE  POKE  65494,0 

49  PRINTS 13 6, "INSTRUCTIONS  Y/N"; 

50  A$=INKEY$:IF  A$=""  THEN  50 

51  IF  A$o"Y"  THEN  75 

52  CLS  2 

53  PRINT@34,"  CONTROLS 


54  PRINT§66," 

ti . 

55  PRINT§98," 

ii  • 

56  PRINT@130," 
LI PORT         " ; 

57  PRINT@162," 
FORMATION  "; 

58  PRINT@194," 

59  PRINT@22  6," 
ARACTER       " ; 

60  PRINT@258," 


SWORD 


hEALINGS 


eAT 


bOW 


tE 


iN 


arrows  MOVE  CH 


61  GOSUB  72 

62  CLS:PRINTTAB(10) "dark"U$"cast 
le" : PRINT: PRINT"     YOU  LIVE  IN  TH 
E  KINGDOM  OF         'TARTH'   WHERE  A 
EVIL  WIZARD  HAS  STOLEN  THE  GEM  1 
NASHAREL1,   WHICHIS  THE  KINGDOMS 
ONLY  DEFENSE         FROM  EVIL.  THE 
WIZARD  HAS  HID  -DEN  THE  GEM  IN  A 

ROOM  FAR  " 

63  PRINT "REMOVED  FROM  ANY  POSSIB 
LE  HUMAN  REACH.  THE  KINGDOMS  FA 
TE  IS  IN  YOUR  HANDS,   BRAVE  ONE. 

BEWARE,  THE  WIZARD  HAS  PLACED  M 
ANY  TREACHEROUS  MONSTERS  AL 

ONG  YOUR  PATH. ": PRINT :GOSUB7 2 

64  CLS:PRINTTAB(10) "dark"U$"cast 
le": PRINT"  THERE  ARE  MANY  DIFFE 
RENT  WAYS  TO  ACHIEVE  YOUR  QUEST. 

YOU  WILLBE  ABLE  TO  PURCHASE  MA 
NY  HELPFULITEMS  AT  SEVERAL  TRADI 
NG  POSTS     ALONG  THE  WAY.  (THEY 
LOOK  LIKE  THIS  11 ;  CHR$  ( 2 55 )  +CHR$  ( 
207) ". ) " 

65  PRINT"  YOU  ARE  GIVEN  200  GOL 
D  PIECES  TO  BEGIN  YOUR  JOURNEY. 

YOU  MAY  PURCHASE  WHAT  YOU  WANT, 
JUST  RE -MEMBER  THE  NECESSITIES. 
EACH  MONSTER  PROTECTS  TREASU 
RES  OF  IT'S  OWN,  WHICH  YOU  MAY 
STEAL  AND  KEEP  FOR  YOURSELF. 
(THEY       LOOK  LIKE  "  ; 

66  PRINT"THIS   "CHR$ ( 145 ) CHR$ ( 14 6 


239 


) »  ) .":GOSUB  72 

67  CLS:PRINT  TAB(10) "dark"U$"cas 
tie": PRINT: PRINT"  THERE  ARE  SO 
ME  MAGICAL  ITEMS  WHICH  YOU  CAN  P 
URCHASE,  BUT  THEYARE  QUITE  EXPEN 
SIVE.  TELEPORTS  CAN  TELEPORT  YO 
U  TO  THE  NEAREST  TRADING  POST. 
HEALINGS  WILL  BRING  YOUR  STRE 
NGTH  TO  100%  M 

68  PRINT: PRINT"       ONCE  YOU  ARE  I 
N  A  ROOM  YOU       CANNOT  RETURN  OR 
ESCAPE  BACK  TO  THE  KINGDOM.  THE 

WIZARD  IS  TRYING  TO  PROTECT 

THE  GEM  BY  PREVENTING  YOUR  E 
SCAPE! H:GOSUB  72 

69  CLS:PRINTTAB(10)  ,,dark"U$"cast 
leH: PRINT: PRINT"  TO  USE  YOUR  B 
OW  YOU  MUST  BE     MOVING  IN  IN  THE 

DIRECTION  YOU  WISH  TO  SHOOT,  T 
HEN  PRESS  b.  TO  USE  YOUR  SWOR 
D  YOU  MUST  BE  ONTHE  VICTIM." 

70  PRINT: PRINT"  DON'T  EXPECT  TH 
E  MONSTERS  TO  RUN  AWAY,  FOR  TH 
EY  ARE  HIGHLY  SUICIDAL. ": PRINT : 
PRINTTAB (11) "good"U$"luck" :GOSUB 

72 

71  GOTO  75 

72  PRINT@484, "PRESS  ANY  KEY  TO  C 
ONTINUE" ; 

73  A$=INKEY$:IF  A$=""  THEN  73 

74  RETURN 

75  T4=67:ST=100:P1=300:ET=10:GP= 
200 

76  B1$=STRING$ (32 ,CHR$ (244) ) 

77  •  MAIN  LOOP 

78  GOSUB  13  3 

79  GOSUB  185 

80  IF  A<>23.5  THEN  GOSUB  144 

81  IFOL=0  OR  LT=0  THEN  CLS  0 : PRI 
NT@265, "its"U$"dark" ; :GOTO  103 

82  P2=476 

83  CLS:PRINT@0,B1$:PRINT@D2,CHR$ 
(128) ;: PRINT"     " ; : PRINT@352 , Bl$ 

84  PRINT§460,NM,M$ 

85  IF  A=*23.5  THEN  PRINT  GP1+32," 
";:FOR  1=1  TO  17: SOUND  255, 1:N 

EXT  I:PRINT@P1+32,CHR$(2  39)CHR$( 
239) ; :SOUND  1,3:A»0 

86  OL=OL-.015:IF  OL<0  THEN  OL=0 

87  IF  M=4  AND  RND(200)<4  THEN  M= 
135: PLAY  "L802C01AL4A03" :A=TS:GO 
SUB  185 

88  ET=ET-.0255 

89  IF  ET>5  THEN  El=223 

90  IF  ET<5  THEN  El=159 

91  IF  ET<2  THEN  El=191 

92  IF  ET<0  THEN  D=*3  :  ET= .  15  :  GOTO 
281 

93  IF  OL-0  OR  LT-0  THEN  81 


94  IF  (T1+1)/32=INT( (Tl+l)/32)  T 
HEN  Tl=Tl-4 

95  IF  TS<>0  AND  M=4  THEN  PRINT@T 
1,CHR$(145)CHR$(146) ;  ELSE  PRINT 
@T1,   CHR$(129)CHR$(130) ; 

96  PRINT @P2,"  "; 

97  PRINT@P1,CHR$(175) ; 

98  P2=P1 

99  PRINT  §M1,CHR$(M); 

100  REM 

101  IF   (T4+1)/32=INT( (T4+l)/32) 
THEN  T4=T4-3 

102  PRINT@T4,TD$; 

103  PRINT  §396, XP; 

104  PRINT8448, "HUNGER"CHR$ (El) ; 

105  LET  CH$=A$ 

106  V/W  INPUT  CHOICE  //\\" 

107  A$=INKEY$ 

108  IF  A$=""  THEN  A$=CH$ 

109  IF  A$="B"  AND  BW>0  THEN  219 

110  P2=P1 

111  IF  A$="S"  AND  SW>0  THEN  248 

112  IF  A$=CHR$(8)  AND  P1/32=INT( 
Pl/32)   THEN  A$="" 

113  IF  A$=CHR$(8)  THEN  LET  P1=P1 
-1 

114  IF  A$=CHR$(9)  THEN  LET  P1=P1 
+  1 

115  IF  A$=CHR$(10)  THEN  LET  P1=P 
1+32 

116  IF  A$=CHR$(94)  THEN  LET  P1=P 
1-32 

117  IF  P1=D2+1  OR  Pl=D2+2  THEN  1 
20ELSE  118 

118  IF  PK32  THEN  Pl=Pl+32 

119  IF  Pl>352  THEN  Pl=Pl-32 

120  IF  P1>1  AND  PK32  THEN  A=23. 
5:P1=P1+320:GOTO  78 

121  IF  A$=CHR$(9)  AND  P1/32=INT( 
Pl/32)   THEN  P1=P1-1 

122  IF  PK>T4  AND  PK>T4  +  1  THEN 
124 

123  IF  TD$=CHR$(255)+CHR$(207)  T 
HEN  80 

124  IF  A$="E"  AND  RT>=1  THEN  RT= 
RT-l:ET=10:PLAY"  04L16EDC03" : A$= 

N  N 

125  IF  M<>4  THEN  GOSUB  201 

126  IF  A$="T"  AND  TL>=1  THEN  210 

127  IF  A$="I"OR  A$="H"  THENGOSUB 
253: GOTO  83 

128  IF  TIOPI  AND  PloTl+1  THEN 
130 

129  IF  TS>0  AND  M<>135  THEN  PRIN 
T@T1,TS:PLAY  "L16CL16EL18FL4GL16 
EL4G" : GP=GP+TS : TS=0 : PRINT@T1 , " 

H 

130  IF  M1=P1  THEN  278 

131  GOTO  86 
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132    '\V/  RANDOM  ROOM  DES .  W/ 

13  3  LET  X2=0:LET  RM=RM+1 

134  IF  RM=45  THEN  300 

135  M=4 

136  TD$=,MI 

137  R=(250-64) *RND (0 ) +64 : T1=INT 
(R) 

138  D2=RND(26) 

139  IF  RM/15<>INT(RM/15)  AND  RM< 
>1  THEN  RETURN 

140  TD$=CHR$(255)+CHR$(207) 

141  R=(200-64) *RND(0)+64:T4=INT( 
R) 

142  RETURN 

143  'W/  MARKET  PLACE  W/" 

144  PLAY"L8CDEGDEC 

145  CLS 

146  I=GP 

147  PRINT  USING"  YOU  HAVE  ##### 
##  GOLD  PIECES" ;GP 

14  8  PRINTU$U$U$U$"you"U$"may"U$" 
buy"U$"these"U$"things"U$U$U$U$; 


149  PRINT" 

1. 

SWORD 

20GP. " 
150  PRINT" 

2  . 

BOW 

60GP. H 
151  PRINT" 

3  . 

HEALING 

40GP. " 
152  PRINT" 

4  . 

ARROWS 

1GP.  " 

153  PRINT" 

5. 

RATIONS 

5GP.  " 

154  PRINT" 

6. 

OIL 

2GP.  " 

155  PRINT" 

7. 

LANTERN 

10GP. " 
156  PRINT" 

8  . 

SHIELD 

10GP. " 
157  PRINT" 

9. 

TELIPORT 

300GP. " 
158  PRINT" 

10. 

PLATE  MAIL 

60GP." 
159  PRINT" 

11. 

CHAIN  MAIL 

50GP. " 
160  PRINT" 

12  . 

LEATHER  ARMOR 

2  5GP. » 

161  PRINT@448 , "WHICH  ITEM" ; : INPU 
T  A$:A=VAL(A$) 

162  IF  A$="I"  OR  A$="H"  THEN  GO 
SUB  253: GOTO  145 

163  IF  A=0  THEN  A$=CHR$ ( 10 ) : RETU 
RN 

164  IF  A<0  OR  A>12  THEN  CLS  3 : PR 
INT@13  2,"WE  HAVE  NO  ITEM  #"A;:PR 
INT@389, "<enter>  LEAVES  MARKET"; 
:FOR  1=1  TO  2000:NEXT  I 

165  IF  A=l  AND  GP>=20  THEN  SW=SW 
+1:  GP=GP-20 

166  IF  A=2  AND  GP>=60  THEN  BW=BW 


+l:GP=GP-60 

167  IF  A=8  AND  GP>=10  THEN  SH=1: 
GP=GP-10 

168  IF  A=7  AND  GP>=10  THEN  LT=1: 
GP=GP-10 

169  IF  A=10  AND  GP>=60  THEN  AC=5 
:GP=GP-60 

170  IF  A=ll  AND  GP>=50  THEN  AC=4 
:GP=GP-50 

171  IF  A=12  AND  GP>=25  THEN  AC=2 
:GP=GP-25 

172  IF  A=3  OR  A=4  OR  A=5  OR  A=6 
OR  A=9  THEN  17  5 

173  IF  I=GP  THEN  182 

174  GOTO  145 

175  PRINT@448,"  HOW  MANY  " ; : 
INPUT  B 

176  IF  A=3  AND  GP>=40*B  THEN  HE= 
HE+B:GP=GP-40*B 


177  IF  A=4  AND  GP>=B  THEN  Y=Y+B: 
GP=GP-B 

178  IF  A=5AND  GP>=5*B  THEN  RT=RT 
+B:GP=GP-5*B 

179  IF  A=6AND  GP>=2*B  THEN  OL=OL 
+B:GP=GP-2*B 

180  IF  A=9  AND  GP>=300*B  THEN  TL 
=TL+B:GP=GP-300*B 

181  IF  A<1  ORA>12  THEN  RETURN 

182  IF  I=GP  THEN  CLS  2:PRINT@131 
/'SORRY,  I  DONT  EXTEND  CREDIT" :P 
LAY  " L4 GCCL8 DCL4 DEG " 

183  GOTO  145 

184  '»»  RANDOM  MONSTERS  «« 

185  REM 
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186  R=(6-l)  *RND(0)+1:LET  I=INT(R 
) 

187  IF  1=1  THEN  LET  M$  ="OGRE":L 
ET  X=12:D=12:TS=100 

188  IF  1=2  THEN  LET  M$="GOBLIN" : 
LET  X=6:LET  D=8  :  LET  TS=50 

189  IF  1=3  THEN  M$=MORC" : X=8 : D=8 
:TS=75 

19JZJ  IF  1=4  THEN  M$="CRAKEN" :  X=12 
:D=15:  TS=120 

191  IF  1=5  THEN  LET  M$="VAMPIRE" 
:X=12:D=30:TS=150 

192  IF  1=6  THEN  M$="TROLL" : X=15 : 
D=15:TS=200 

193  LET  X1=X 

194  TS=RND(TS) 

195  NM=RND ( 6 ) 

196  TS=TS*NM 

197  IF  M=135  THEN  TS=A: PRINT@460 
,NM,M$ 

198  M1=T1 

199  M=135 

200  RETURN 

201  IF  OL=0  OR  LT=0  THEN  203 

202  PRINT @M1,"  "  ; 

203  IF  M1>32+P1  THEN  LET  Ml=Ml-3 
2 

204  IF  MKP1-32  THEN  LET  Ml=Ml+3 
2 

205  IF  ABS(P1-M1)<=32  AND  INT (PI 
/32 )<>INT (Ml/32)   AND  M1>P1  THEN 
Ml=Ml-32 

2)36  IF  ABS(P1-M1)<=32  AND  INT  (PI 
/32  JOINT  (Ml/32)  AND  MKP1  THEN  M 
l=Ml+32 

207  IF  P1-MK32  AND  P1-M1>0  THEN 
LET  M1=M1+1 

208  IF  Pl-Ml>-32  AND  P1-MK0  THE 
N  LET  M1=M1-1 

209  RETURN 

2 10  LET  TL=TL-1 

211  FOR  1=150  TO  222 

212  PRINT@P1,CHR$(I) ; 

213  SOUND  1,1 

214  PRINT@P1,"  "; 

215  NEXT  I 

216  LET  A$="4" 

217  GOTO  80 

218  'ooooo  BOW  <><><><><> 

219  IF  Y<1  THEN  A$=CH$:GOTO  86 

220  R=RND(200) : IF  R=27  THEN  A$=" 
BOW" :BW=BW-1: GOTO  28  9 

221  LET  A$=CH$ 

222  IF  CH$=CHR$(10)  THEN  Y$=" ! " : 
Yl=32 

223  IF  CH$=CHR$(94)  THEN  Y$=" ! " : 
Yl=-32 

224  IF  CH$=CHR$(8)  THEN  Y$="-":Y 
1=-1 


225  IF  CH$=CHR$(9)  THEN  Y$="-»:Y 
1=1 

226  IF  Y1=0  THEN  86 

227  SOUND  200, 3 :Y=Y-1:Y2=P1 

228  IF  LT=1AND  OL>0  THEN  231 

229  IF  CH$="I"  OR  CH$=" , "  THEN  Y 
$=CHR$ (126) : GOTO  231 

230  Y$=CHR$(127) 

231  FOR  1=1  TO  13:Y2=Y2+Y1 

232  IF  Y2<32  OR  Y2>352  THEN  86 

233  PRINT@Y2 , Y$ ; 

234  IF  Y2=M1  THEN  241 

235  IF  OL<=0  OR  LT=0  THEN  PRINT© 
Y2,U$; 

236  IF  OL>0  AND  LT=1  THEN  PRINT 
§Y2,"  "; 

237  NEXT  I 

238  Y1=0 

239  GOTO  86 

240  '((((((COMBAT))))))) 

241  LET  X=X-RND(10) 

242  Y$="H 

243  •»  BOW  DAMAGE  « 

244  IF  X<=0  THEN  NM=NM-1 : X=X1 : S 
OUND  1, 1:XP=XP+X1:M1=T1 

245  IF  NM<=0  THEN  PRINT@403 , "BON 
US+"X1*2 ; : PLAY"03CCL8CCD#DDCC02B 
O3C":M=4:PRINT@403,"  ; 
: XP=XP+X1 

246  IF  NM<=0  THEN  Ml=476 

247  GOTO  84 

248  '»»SWORD  ATTACK 

249  IF  SW>0  THEN  R=RND (200) : IF  R 
=12  3  THEN  A$="SW0RD":SW=SW-1:G0T 
0  289 

250  IF  RND(20)<15  AND  M1=P1  THEN 
SOUND  130, 1:CH$="": GOTO  241 

251  A$=»" 

252  SOUND  255,1: GOTO  84 

253  CLS5 

254  IF  A$="H"  AND  HE>=1  THEN  FOR 
I=ST  TO  100: SOUND  225,1  :ST=I 

255  PRINT@96 

256  print  using" strength  # 
##";st 

257  if  a$="h"  and  he>=1  then  nex 

T  I 

258  IF  A$="H"  AND  HE>=1  THEN  HE= 
HE-1 

259  print  using "experience  ### 
##";xp 

260  print  using "arrows  # 
##";Y 

261  PRINT  USING"TELIPORTS 
##" ;TL 

262  PRINT  USING  "HEALINGS 
#  # " ; HE 

263  print  using"gold  ## 
##";gp 
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264  PRINT  "RATIONS  " ; 

265  FOR  1=1  TO  RT 

266  IF  K24  AND  RT<>0  THEN  PRINT 
CHR$ (140) ; :NEXT  I : PRINT" "ELSE  P 

RINT"":GOTO  267 

267  PRINT  "OIL  "; 

268  FOR  1=1  TO  INT(OL) 

269  IF  K24  AND  OLO/3THEN  PRINT 
CHR$ (140) ;: NEXT  I: PRINT  ""  ELSE 
PRINT"": GOTO  270 

270  IF  LT=1  THEN  PRINT" LANTERN" 

271  IF  SW>0  THEN  PRINT  SW"  SWORD 
it 

272  IF  BW>0  THEN  PRINT  BW"  BOW" 

273  IF  A$="H"  AND  HE>=1  THEN  FOR 
I=X  TO  1 

274  A$="":CH$="" 

275  A$=INKEY$:IF  A$=""  THEN  275 

276  RETURN 

277  '<><><><  MONSTER  ATTACK 

278  R=(20-0) *RND(0) 

279  R=R- (AC-SH) 

280  IFR  <12  THEN  86 

281  CLS  4 

282  ST=ST-INT(R) 

283  PLAY  "O1L255V30CEDV10O3" 

284  IF  ST<0  THEN  CLS0:GOTO  286 

285  GOTO  81 

286  PRINT@138, "rest"U$"in"U$"pea 
ce"  ; 


287  PRINT@448, ; 

288  PLAY"T103CCL8CCD#DDCC02B03C" 
:GOTO  337 

289  CLS 

290  PRINT : PRINT : PRINT : PRINT : PRIN 

T: PRINT"  YOUR  "A$"  BROKE 

ii 

291  SCREEN  0,1 

292  FOR  1=1  TO  500: NEXT  I 

293  A$=INKEY$:IF  A$=""  THEN  293 

294  GOTO  83 

295  ' GEM  ROOM 

296  CLS: PRINT: PRINT"  CONGRADUL 
ATIONS ! ! •  YOU  HAVE  MADE  IT  TO  T 
HE  GEM  ROOM.  THE  ONLY  THING  Y 
OU  CAN  TAKE  WITH  YOUIS  YOUR  GOLD 
.  THERE  IS  A  SPIDER"; 

297  PRINT"  IN  EVERY  ROOM,  AND  TH 
EY  WILL  DO  THEIR  BEST  TO  PROTECT 

THE  GEM." 

298  PRINT"       USE  THE  MAP  TO  LOCA 
TE  YOUR       POSITION  IN  THE  GEM  RO 
OM   (m) .       ONCE  YOU  GRAP  THE  GEM 
YOU  WILL     BE  TE LI PORTED  OUT  OF  T 
HE  CASTLE." 

299  A$=INKEY$:IF  A$=""  THEN  299 

300  V=8:H=40:B1=20:A1=30:B2=20:A 
2=30:A=0:B=-1:M1=5 

301  CLS0 

302  A$=INKEY$ 

303  RESET (A2 , B2) 

304  SET(A1,B1,3) 

305  A2=A1:B2=B1 

306  IF  HO30  OR  V<>15  THEN  349 

307  IF  A$=CHR$(94)   THEN  B=-1:A=0 

308  IF  A$=CHR$(10)    THEN  B=1:A=0 

309  IF  A$=CHR$(8)   THEN  A=-1:B=0 

310  IF  A$=CHR$(9)   THEN  A=1:B=0 

311  IF  A$="M"  THEN  321 

312  A1=A1+A:B1=B1+B 

313  IF  AK1  THEN  H=H+1 :  Al=60  :  CLS 

314  IF  Al>60  THEN  H=H-1 : Al=2 : CLS 

315  IF  BK1  THEN  V=V+1 :  Bl=29  :  CLS 
P 

316  IF  Bl>30  THEN  V=V-1 : Bl=2 : CLS 
0 

317  IF  H=30  AND  V=15  THEN  RESET ( 
30,15) :SOUND  255, 1:SET(30, 15,2) 

318  IF  P0INT(A1,B1)=2  THEN  326 

319  IF  V<2  OR  V>30  OR  H>60  OR  H< 
2  THEN  PRINT@264, "outer"U$"darkn 
ess" ; :PRINT@300, "beware" ; 

320  GOTO  302 

321  CLS0 

322  IF  V<2  OR  V>30  OR  H>60  OR  H< 
2  THEN  302 

323  SET(H,V,2) : SET ( 30 , 15 , 3 ) 
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324  A$=INKEY$:IF  A$=,MI  THEN  324 

325  GOTO  301 

326  CLS0:FOR  1=1  TO  30:SET(30, 15 
,3):FOR  X=I  TO  30:NEXT  X:SET(30, 
15,2) :FOR  X=l  TO  I:NEXT  X:NEXT  I 

327  CLS  3 

328  PRINT@39, "CONGRADULATIONS   "  ; 

329  PRINTS 9 8 , "YOU  HAVE  FOUND  THE 
GEM  AND  "; 

330  PRINT@130,  "SAVED  THE  KINGDOM 
OF  TARTH.  "; 

331  PRINT@162,"       YOU  HAVE  BEEN 
AWARDED        " ; 

332  PRINT@194, "$10,000  GOLD  PEIC 
ES  FOR  ITS  "; :GP=GP+ 10000 :XP=XP+ 
1000 

333  PRINT© 2 2 6, "SAFE  RETURN. 

ii  • 

9 

334  PRINT@448,  ; 

335  PLAY"V3103T8L8CP8DP8E-P8FP8G 
P8E-P8L2GL8G-P8DP8L2G-L8FP8D-P8L 
2FL8CP8DP8E-P8FP8GP8E-P8L4GL8A-P 
8GP8FP8E-P8DP8L2CL64CE-G02E-G03C 
T3M 

336  A$=INKEY$:IF  A$=""  THEN  336 

337  FOR  1=1  TO  25  .-PRINT:  FOR  X=l 


TO  25: NEXT  X:NEXT  I 
3  38  PRINT  USING"         TOTAL  POINTS 
#####" ;XP 

339  PRINT  USING"  TREASURE 

#####»;GP 

340  PRINT: PRINT"  PLAY  AGAIN  (Y/N 
)  ?" 

341  A$=INKEY$ 

342  PRINT@468,CHR$ (150) 

343  FOR  1=1  TO  50: NEXT  I 

344  IF  A$="Y"  THEN  RUN 

345  IF  A$="N"  THEN  END 

346  PRINT@468,CHR$ (153) 

347  FOR  1=1  TO  100: NEXT  I 

348  GOTO  341 

349  RESET(M1,M2)  :  IF  MKA1  THEN  M 
1=M1+1 

3  50  IF  M1>A1  THEN  M1=M1-1 

351  IF  M2<B1  THEN  M2=M2+1 

352  IF  M2>B1  THEN  M2=M2-1 

353  SET(M1,M2,4) 

354  IF  M1=A1  AND  M2=B1  THEN  CLS 4 
: PLAY"O1L255V30CEDV10O3  » : ST=ST-7 

355  IF  ST<0  THEN  286 

356  GOTO  307 


Time  TQIQQCO 
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  Program  by  Robert  L.  Thomas 

OK,  Fred,  somehow  you  lucked  out  and  invented 
the  first  time  tripper  device  (TTD),  a  machine 

 '  that  makes  it  possible  for  humankind  to  travel 

between  different  time  periods.  It's  a  wonderful 
invention,  allowing  you  to  relive  historical 
events  and  to  experience  the  future. 

You're  the  only  person  on  Earth  who  can 
say  he  actually  sailed  with  Christopher 
Columbus  on  his  eventful  voyage  to  North 
America,  saw  George  Washington  throw  the 
silver  dollar  across  the  Potomac  River, 
witnessed  the  signing  of  the  Declaration  of 
Independence,  heard  Abraham  Lincoln's 
Gettysburg  Address  and  heard  Alexander 
Graham  Bell's  first  telephone  call. 

You've  visited  the  25th  century,  discovering 
that  the  world  is  free  of  disease,  that  all  the 
peoples  of  the  earth  are  united  in  the  cause 
of  peace,  that  new  technology  has  made  it 
possible  for  families  to  live  beneath  the  ocean 

  and,  believe  it  or  not,  that  the  average 

basketball  player  is  eight  feet  tall. 
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You've  done  it  all,  Fred,  and  you  could  set  a  few  records  straight  if  you 
were  so  inclined. 

The  only  problem  is  that  while  you  were  building  the  TTD,  you  didn't 
keep  records  of  the  schematics  or  the  other  intricate  workings  of  the  machine. 
Just  a  lot  of  scribbled  notes,  which  you  had  the  cleaning  lady  throw  out 
with  the  garbage.  What's  even  worse,  Fred,  is  that  like  a  lot  of  geniuses, 
you  are  forgetful.  If  something  goes  wrong,  you  usually  have  to  "re-invent 
the  wheel"  to  get  the  machine  running  again. 

And  that's  not  all.  You  haven't  been  applying  preventive  maintenance 
techniques  required  to  keep  the  TTD  functioning  properly.  Sooner  or  later 
you  are  bound  to  get  trapped  in  another  time  dimension.  No  wonder  Uncle 
Sam  hasn't  taken  much  interest  in  your  project. 

Sure  enough,  while  you  are  exploring  an  inhabited  planet  in  another  solar 
system  the  inevitable  happens.  You  push  the  activator,  there's  a  whirling  sound 
and  a  disappointing  click!  Nothing  happens.  You  sit  there  for  a  minute,  silently 
cursing  your  work  habits.  Then  you  investigate. 

While  passing  through  a  time  rift,  you  apparently  have  lost  three  critical 
components  of  the  TTD  —  the  main  drive  power  crystal,  the  time-sphere 
control  box,  and  the  gravitator.  They  are  scattered  throughout  the  ages  and 
you  must  retrieve  them.  When  you  find  them,  just  drop  the  components  in 
the  engine  room  and  the  robots  will  place  them  in  their  proper  positions. 
Because  of  your  sloppy  maintenance,  you  may  have  to  press,  move  or  hit 
an  object  more  than  once. 

Prior  to  loading  the  program,  you  will  have  to  enter  PM0DE2,  PCLERR2. 

Let  this  be  a  lesson,  Fred! 


(Robert  L.  Thomas  is  a  student  at  the  University  of  Florida  in  Gainesville, 
where  he  is  majoring  in  computer  science  and  engineering.  This  Adventure 
is  the  first  Robert  has  authored.) 
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H  TIMETRIP 


32K  ECB 


0  CLS7:PMODE2:PCLEAR2:CLEAR400 

1  PRINT@2  62, "ONE  MOMENT  PLEASE.. 

it . 

•  / 

2  Nl$="BUSNECCOLLIOSCRDIATAPSKUM 
OUBOXBEDRUGBANSTATORSTAMAPURNBUS 
ASPLEDROPSWOSHERAKSKEBONHOLFOOSP 
OBOWTABSCEBOOASTANHKNIFLOTROCORS 
LOCATDOGLORRAPPILRODBONTOUSIGTUM 
BEECOICARGUNDESFLAMATNOTWINDYNGR 
UBOTROBEITRAZMIRWOODOGMARDESMAPN 
EWRULCHADESPANRECSHOTTD  " 

3  N2$="TOWSHOTIASMOBANLANWEBPESO 
BLSIGWANPIZBOOBALDUSSWOMEDCRYTHR 
RINDISSKERATDOOSLOCHEKEYSTACANRA 
IGOAWHEPORCONSWICABTOOFLOSHISUPJ 
ARBEDKIT       TTDOUT3D  GAR" 

4  V1$="N  S  E  W  GO  LOOEXAREAP 
US  PULMOVHE  LH ITSWI GETTAKKEE  LEADRO 
PIC  DRI E ATKI LS HOUN LI NVO PE  LI GTHRLO 
ASAVPUTPIC" 

5  K9=0:T=0:DD=0:B2=0:S2=0:W1=0:R 
=72  :  Z=76 :  Y=12 2  :  L=l :  C1=0 :  DIML$  ( Z ) 
,D(4,Z)  ,0$(Y)  :X(1)=204:X(2)=207: 
X(3)=204:X(4)=193 

6  T$(l)="NORTH  " :T$ (2)=" SOUTH  ": 
T$(3)="EAST  ":T$(4)="WEST  » 

7  FORC=lTOZ:READL$(C) :F0RB=1T04: 
READD (B, C) :NEXTB,C 

8  FORC=lTO  Y:READO$(C) :NEXT 

9  GOT0296 

10  CLSRND(7) :PRINTTAB(10) ;"YOU  A 
RE : " : PRINTL$ (R) : PRINTTAB (6) ; "OBV 
IOUS  EXITS  LEAD:" 

11  F0RC=1T04:IF  D(C,R) >0THENPRIN 
TT$(C) ; 

12  NEXTC: PRINT 

13  B=0 

14  PRINTTAB  ( 1)3)  ;  "YOU  SEE":FORC=l 
TO  Y:A$=RIGHT$(0$(C) ,2) :IFVAL(A$ 
) =R  THENPRINTLEFT$ (0$ (C) , LEN (0$ ( 
C))-3) :B=1 

15  NEXTC 

16  IFB=0THENPRINT"NOTHING" 

17  PRINTSTRING$(32,RND(127)+127) 

18  C=TIMER:  IFO800AND  C<9500AND 
R=65THENPRINT"LONG  AND  SHARP  STE 
EL  RODS  ARE       COMMING  OUT  TO  IMP 
ALE  ME  I  AM       TRANSPORTING  BACK 
TO  MY  SAFE  TTD" : F0RC=1T0255STEP8 
: SOUNDC, 1: NEXT: R=74:P=0: GOTO 10 

19  IFK9<>1ANDR=57THENPRINT"THE  K 
RETER  IS  AWAKE  AND  ABOUT  TOEAT  M 
E  I  AM  TRANSPORTING  BACK  TOTHE  T 
TD" : F0RC=1T0255STEP5 : SOUNDC, 1:NE 
XT : R=7  2 : P=0 : GOTO 10 

20  IFR=65THENTIMER=0 

21  IF  R=2  6THENF0RC=1T04:PLAY"T40 


2  L2  CL3AGL4A" : NEXT : PLAY " L2  C" 

22  IFR=1THENPLAY"T403L8AGF+GAAL4 
AL8EF+L4EDL204D" 

23  IF  R=59THEN315 

24  IF  R=73ANDRIGHT$(O$(10) ,2)="7 
3"ANDRIGHT$ (0$ (49) , 2 ) ="73 "ANDRIG 
HT$(0$(97) ,2)="73"THEN231 

25  INPUT"WHAT  IS  YOUR  WISH";B$:P 
RINT:B$=B$+"  ":X=INSTR(B$,"  ") :V 
$=LEFT$(B$,3) :N$=MID$(B$,X+1,3) : 
V=INSTR(V1$,V$) :IF  V=0THENPRINT" 
I  AM  SORRY  BUT  I  DON'T  KNOW 
THAT  VERB  TRY  SOMETHING  ELSE": GO 
T025 

26  IFN$="BOX"THENN=28:GOT041 

27  IFN$="TOU"THENN=145:GOT041 

28  IFR=70ANDA9=1ANDRND(2)=1THENP 
RINT"THE  GUARD  TAKES  ALL  OF  YOUR 

ITEMS":GOSUB293 

29  IFR=70ANDA9=0ANDRND(20)=1THEN 
A9=1:PRINT"THERE  IS  A  GUARD  APP 

ROCHING  YOU" 

30  IFR=27AND  RND (20) =1THENPRINT" 
A  GROUP  OF  BANDITS  HAVE  TAKEN 
ALL  OF  YOUR  ITEMS" : F0RC=1T05 : PLA 
Y"T10L2O3AL1C" : NEXT : GOSUB295 

31  IFN$="3D"THENN=436:GOT041 

32  IF  R=7 ANDRND ( 2 5 ) =1THENPRINT"A 
GUARD  HAS  FOUND  YOU  WANDERING  T 

HE  HALL  AND  HAS  TAKEN  YOU  TO  T 
HE  DUNGEON" :PLAY"02T2L5AL1C" :R=1 
3 :GOSUB258:GOTO10 

33  IFN$="HOL"THENN=43  3 :G0T041 

34  IFN$="DOO"THENN=301:GOTO41 

35  IFR>47THEN38 

36  N=INSTR(N1$,N$) :IFN=0THEN39 

37  G0T041 

38  N=INSTR(N2$,N$) 

39  IF  N=0THENPRINT"I  DON'T  UNDER 
STAND  THAT  NOUN  TRYANOTHER  ONE": 
GOTO  25 

40  N=N+237 

41  V=(V+2)/3:N=(N+2)/3 

42  IFR=27ANDN=8THEN  N=27 

43  ON  V  001044,44,44,44,47,108,1 
08,179,59,59,59,75,86,90,203,203 
,203,215,215,203,95,100,106,234, 
236,174,69,242,102,283,288,244,2 
03 

44  IF  D(V,R)=0THENPRINT"I  CANNOT 
GO  THAT  WAY":GOT025 

45  IFR=55AND  V=1THENCLS4 : PRINT§2 
56, "DANGER  SEVERAL  GRUNGY  MONSTE 
RS     HAVE  JUST  MANGLED  YOU  TO  BIT 
S       YOU  ARE  BEING  TELEPORTED  TO 
TTD" :F0RC=1T0255: SOUNDC, 1: NEXT 

46  R=D(V,R) :GOTO10 
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47  IFP=0AND  R=72AND  N=125THENPRI 
NT "I  CANNOT  GO  THROUGH  A  CLOSED 

DOOR":GOT025 

48  IFR=72AND  N=1250R  N=112AND  P= 
1  THEN56 

49  IFR=35AND  N=145THENR=45 : GOTOl 

50  IFR=4  3AND  N=14  6THENR=4  2 : GOTOl 
ft 

51  IFR=1AND  N=80  THEN  R=72: GOTOl 
9> 

52  IFR=26AND  N=80THENR=72 : GOTO10 

53  IFR=48AND  N=124THENR=72 : GOTOl 

54  IFR=43AND  N=12 6THENR=42 : GOTOl 

55  PRINT"I  CANNOT  GO  THAT  WAY":S 
OUND3  3,8:GOT02  5 

56  IFT=1THENR=1:GOTO10 

57  IFT=2THENR=26:GOTO10:ELSER=48 
:GOTO10 

58  'PUSH, PULL, AND  MOVE 

59  IF  N=12THEN  D ( 2 , R) =11 : PRINT"T 
HERE  IS  A  DOOR  BEHIND  THE  RUG  I 

T  IS  SWINGING  OPEN  ":GOSUB 

258:GOTO10 

60  IFN=15THEN  D (4 ,R) =17 : PRINT"TH 
E  WEST  WALL  OPENS " : SOUND1 , 40 : GOT 
010 

61  IFN=58THEN  D ( 4 , R) =45 : PRINT"BE 
HIND  THE  MATTRESS  IS  A  HOLE  TOTH 
E  OUTSIDE  WORLD":GOSUB258:GOT02  5 

62  IFD4=1AND  N=98AND  R=66THENPRI 
NT "THE  THRONES  SPLIT  REVELING  TH 
E  TRESURE  ROOM" : D (2 , R) =67 : FORC= 
1T015 : PLAY"O4T2  55BO2T50C" :NEXT: G 
OTO10 

63  IFN=114AND  R=72THENA=RND ( 3 ) : I 
FA=1THENP=1: PRINT "THE  PORTAL  OPE 
NS " : SOUND200 , 2 : G0T02  5 

64  IFD5>=3AND  R=13AND  N=27THENPR 
INT" I  HEARD  A  CLICK  AND  THE  DOOR 

IS  UNLOCKED" :S0UND1 66, 1:DD=1: GO 
T025 

65  IFD5>4THEND5=0 

66  IFD5>=3AND  R=69  ANDN$="DOO"TH 
ENPRINT"THE  DOOR  OPENS!  AND  I  RA 
N  TO  THE  HALL":R=70:GOSUB258: 
GOTO10:ELSE  D5=D5+1 : PRINT" IT  SHO 
OK  A  LITTLE" :G0T02 5 

67  PRINT" I  DON'T  FEEL  LIKE  DOING 
THAT  NOW":GOT025 

68  1  OPEN 

69  IFD1=1ANDR=13ANDN$="D00"THEND 
(2,R)=12:PRINT"THE  DOOR  SWINGS  0 
PEN" : GOSUB258 : GOTO10 

70  IFD2=1ANDR=25ANDN$="D00" THEND 
(3,R)=5:PRINT"THE  DOOR  OPENS  TO. 
. .":GOSUB258:GOTO10 


71  IF  DD=1AND  R=13AND  N$="DOO"TH 

ENPRINT"THE  DOOR  SWINGS  OPEN  

 YOU  ARE  FREE ! ! " : D ( 2 , R) =1 

2 : PLAY " T4  L8  CCEEGGEEDDFFAAFFEEGGB 
BGEC" : GOT025 

72  IFD3=1AND  R=62THENPRINT"THE  C 
ASSEL  DOOR  SWINGS  OPEN" : PLAY"03T 
2CT4CCT2DT4DDT1E" : D ( 1 , R) =63 : GOTO 
10 

73  PRINT "THERE  IS  NOTHING  TO  OPE 
N" : GOSUB258 : GOTO10 

74  'HELP 

75  CLS : PRINT© 10 , "HELP  OR  HINTS": 
PRINTSTRING$ (96, 163) 

76  PRINT :  PRINT :  PRINT :  PRINT 

77  ON  RND (6)  GOTO  78,79,80,81,82 
,83 

78  PRINT" I  CANNOT  HELP  AT  THIS  T 
IME" : GOT084 

79  PRINT" DROPING  AN  ITEM  SOMETIM 
ES  WORKS  LIKE  —  DROP  DUST": GOTO 
84 

80  PRINT "TRY  HITTING  OBJECTS": GO 
T084 

81  PRINT "TRY  GO  OUT": GOTO  84 

82  PRINT "THE  CHEESE  IS  NOT  THE  O 
NLY  THINGWITH  HOLES" : GOT084 

83  PRINT "THROWING  OBJECTS  WORKS 
BUT  BE  CAREFUL" 

84  PRINT@448 , "HIT  ENTER  TO  CONTI 
NE" ; : INPUTA$ : GOTO10 

85  '   HIT  SECTION 

86  IFP=0ANDN=112THENP=1:SOUND188 
,1:PRINT"THE  PORTAL  IS  NOW  OPEN" 
:G0T025 

87  IF  N=113AND  D6=l  THENPRINT"WE 
ARE  OFF! ":D6=0: GOTO  246 

88  PRINT"NOTHING  SEEMS  TO  HAPPEN 
":GOT025 

89  1   SWING  SECTION 

90  IFR=11ANDN=22THENR=25:G0T093 

91  IFR=25ANDN=22THENR=ll:GOT093 

92  PRINT "BUT  THERE  IS  NOTHING  TO 
SWING  ON":GOT025 

93  PRINT'S  WING!  !  !  !  ! " :  FO 
RC=1TO10:PLAY"T60ABCDEFG":NEXT:G 
OTO10 

94  '  DRINK 

95  IFN$="WAT"THENINPUT"FROM  WHAT 
" ;A$:A$=LEFT$ (A$, 3) :GOT097 

96  PRINT "I  CANNOT  DRINK  THAT": SO 
UND20,9:GOTO25 

97  IFA$=" JAR"ANDJ1=0THENPRINT"TH 
E  JAR  IS  CLOSED  HOW  CAN  I  GET  A 
DRINK? " : G0SUB2  58 : G0T02  5 

98  IFA$="JAR"ANDJ1=1THENPRINT"AH 
HHHHH ! 1 ! ! !  THAT  WAS  GOOD ! " : J1=0 : 
W2=0 : G0SUB2  58 : G0T02  5 

99  '  EAT 
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10P  I FN$= " FOO " THENPRINT " THAT  WAS 
VERY  GOOD" : E=0 : GOSUB2  58 : GOT025 

101  1  THROW 

102  IFN=65AND  R=37  THENPRINT" THE 
ROBBER  PASSES  OUT" : C1=C1-1MID$ ( 

0$(65) ,8,2)="38":SOUND175,2:D(2, 
R) =39 : GOSUB2  58 : GOTO10 

103  IFN=117AND  R=5 6THENPRINT " THE 
FLOWERS  HAVE  PUT  THE  KRETER  TO 

SLEEP" : C1=C1-1 :MID$ (0$ ( 117 ) , 9 , 2 ) 
=" 57 " : K9=l : G0SUB2  58 : GOTO 10 

104  PRINT" I  AM  UNABLE  TO  THROW  T 
HAT": GOTO 2 5 

105  1  KILL 

106  CLS2:PRINT@256, "  KILLING  ANY 
THING  IS  FORBIDDEN" :SOUND20, 8: GO 
SUB2  58 : P=0 : R=7  6 : GOTO 10 

107  'LOOK, EXAMINE  ROUTINE 

108  A=0:IFN=2OR  N=230R  N=99THENP 
RINT"IT  IS  VERY  BEAUTIFUL  AND  CO 
LOR-  FULL" :A=1 


109  IFN$=""THEN10 

110  IFN=30R  N=50R  N=330R  N=50OR 
N=610R  N=710R  N=780R  N=100OR  N=8 
90R  N=1220R  N=9 4 THENPRINT "THERE 
IS  WRITING  ON  IT":A=1 

111  IF  N=4 THENPRINT "THE  RIGHT  LI 
ONS  EYES  ARE  CROSSED" :A=1 

112  IF  N=16THENPRINT" I  CAN  SEE  A 
NOTHER  ROOM  AND  CLOUDS" :A=1 

113  IF  N=7THENPRINT" IT  SHOWS  THE 
TREASURE  ROOM  AND    the  time  sph 

ere  control  box":A=l 

114  IF  N=80R  N=106THENPRINT"IT  I 
S  GRINNING  MADLY" :A=1 

115  IF  N=120R  N=84THENPRINT"IT  I 
S  HANGING  ON  THE  WALL":A=1 

116  IF  N=130R  N=82THENPRINT"IT  S 
PARKLES  AND  IS  ATTRACTIVE" : A=l 


117  IF  N=140R  N=64THENPRINT"HE  I 
S  FACING  NORTH" :A=1 

118  IFN=15THENPRINT" THERE  IS  A  S 
MALL  HINGE  AT  THE  BASE":A=1 

119  IF  N=17THENPRINT"IT  LOOKS  AL 
L  GREEK  TO  ME":A=1 

120  IF  N=  18 THENPRINT 11  THERE  IS  A 
PICTURE  OF  AN  ASP  ANDTHE  LAYERED 

NECKLACE" :A=1 

121  IF  N=19THENPRINT" IT  IS  CLEOP 
ATRA  AND  SHE  IS  FACING  NORT 
H":A=1 

122  IF  N=20OR  N=260R  N=270R  N=44 
THENPRINT" THERE  MUST  BE  HUNDREDS 

OF  THEM" : A=l 

123  IF  N=210R  N=420R  N=67THENPRI 
NT" IT  IS  ABOUT  THREE  FEET  WIDE": 
A=l 

124  IF  N=240R  N=360R  N=590R  N=65 
OR  N=730R  N=840R  N=920R  N=960R  N 
=114 THENPRINT " THERE  IS  SOME  WRIT 
ING  ON  IT":A=1 

125  IF  N=2  30R  N=55THENPRINT"THER 
E  IS  A  BIG  JEWEL  IN  THE  HAND 
LE" :A=1 

126  IF  N=260R  N=101THENPRINT"THE 

Y  SMELL  BAD  AND  SEEM  SOMEWHAT  MO 
LDY":A=1 

127  IF  N=2 8THENPRINT " IT  IS  ABOUT 
TWO  INCHES  ACROSS       AND  THERE  A 

RE  GEARS  INSIDE" :A=1 

128  IF  N=290R  N=62THENPRINT"IT  A 
LL  LOOKS  DELICIOUS" :A=1 

129  IF  N=310R  N=80OR  N=111THENPR 
INT"IT  LOOKS  EMPTY" :A=1 

130  IF  N=3 4THENPRINT" IT  IS  A  VER 

Y  OLD  BOOK  BUT  THERE  IS  A  NEW  EN 
TRY  IN  IT":A=1 

131  IFN=370R  N=66THENPRINT"IT  IS 
VERY  SHARP" :A=1 

132  IFN=410R  N=63THENPRINT"IT  IS 
ABOUT  FOUR  INCHES  DEEP":A=1 

133  IF  N=380R  N=87THENPRINT"THEY 
ARE  ALL  VERY  PRETTY" :A=1 

134  IF  N=450R  N=46THENPRINT"THEY 
LOOK  VERY  DANGEROUS" ; :A=1 

135  IF  N=460R  N=101OR  N=111THENP 
RINT"AND  DUSTY" 

136  IF  N=4 5THENPRINT" AND  FAST" 

137  IF  N=51THENPRINT"THEY  ARE  JU 
ST  TUMBLING" :A=1 

138  IF  N=52THENPRINT"IT  IS  THERE 
OWN  BRAND" :A=1 

139  IF  N=550R  N=79THENPRINT"IT  I 
S jFULLY  LOADED" :A=1 

140  IF  N=57THENPRINT "THERE  ARE  4 
2  STARS  ON  THE  FLAG" : A=l 

141  IF  N=56THENPRINT"THERE  IS  NO 
THING  ON  IT  EXCEPT       FOR  THE  GUN 
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":A=1 

142  IF  N=5 8THENPRINT " THERE  ARE  M 
OTHS  FLYING  AROUND  THE  MAT":A=1 

143  IF  N=60THENPRINT" IT  IS  OLD  A 
ND  RUSTY" :A=1 

144  IF  N=67THENPRINT"AND  VERY  RE 
FLECTIVE" 

145  IF  N=68THENPRINT"IT  IS  ABOUT 
20  FEET  LONG  AND  2  FEET  WIDE": A 

=1 

146  IF  N=6 2 THENPRINT " S ORT  OFF!" 

147  IF  N=72THENPRINT"IT  IS  SO  OL 
D  THAT  YOU  CANNOT  MAKE  OUT  AN 
YTHING" : A=l 

148  I FN=7 7 THENPRINT "IT  IS  RUSTY 
BUT  IT  STILL  COULD     BE  USEFUL": A 
=1 

149  IF  N=80THENPRINT"IT  LOOKS  RU 
NDOWN  AND  VERY  DUSTY" :A=1 

150  IF  N=81THENPRINT"THEY  LOOK  S 
0  STUNNING  I  FEEL  THAT  THEY  M 
IGHT  BE  USEFUL" :A=1 

151  IF  N=850R  N=108THENPRINT"THE 
FLAME  IS  ON":A=l 

152  IF  N=87THENPRINT"AND  THE  PES 
ENTS  ARE  FRIENDLY" 

153  IF  N=8 8 THENPRINT " THERE  IS  A 
DEPRESSION  FOR  A  ROUND  OBJEC 
T":A=1 

154  IF  N=9 1THENPRINT" IT  IS  VERY 
STICKY  AND  GOOEY" :A=1 

155  IF  N=93THENPRINT"IT  IS  MADE 
WITH  THE  PUREST  CRYSTAL" :A= 
1 

156  IF  N=98THENPRINT"THEY  LOOK  V 
ERY  MASSIVE  AND  HEAVY" :A=1 

157  IF  N=102THENPRINT"THEY  ARE  A 
LL  OVER  EVERYTHING  INCLUDING 
me  I  WANT  OUT!!!":A=l 

158  IF  N=104THENPRINT"THE  SLOTS 
ARE  ABOUT  THREE  INCHESDEEP" : A=l 

159  IF  N=  110  THENPRINT  "HE  IS  LOOK 
ING  IN  THE  DIRECTION  OF  THE  CAS 
TLE":A=1 

160  IF  N=112THEN  A=1:PRINT"IT  IS 
BLUE  AND  " ; : IFP=1THENPRINT"0PEN 

"ELSEPRINT" CLOSED" 

161  IF  N=l 13 THENPRINT "IT  HAS  MAN 
Y  FLASHING  LIGHTS  AND  SWITCHES": 
A=l 

162  IF  N=l 1 5THENPRINT " THERE  ARE 
TOOLS  IN  IT":A=1 

163  IF  N=119THENPRINT"UM  UM  

YUK":A=1 

164  IF  N= 122 THENPRINT " THE  KIT  £0 
OKS  COMPLETE" :A=1 

165  IF  N= 117 THENPRI NT " THE  FLOWER 
S  ARE  MAKING  ME  VERY  SLEEPY" :A= 
1 


166  IF  N=l 2 0 THENPRINT " THE  JAR  IS 
SMALL  BUT  FULL  OF         WATER" :A=1 

167  IF  N=118THENPRINT"Y0U  MUST  G 
ET  ALL  THREE  OBJECTS  AND  DROP  T 
HEM  HERE" : A=l 

168  IFN=36  ORN=105THENPRINT"IT  I 
S  SMALL  ABOUT  FOUR  INCHES  HIGH 
":A=1 

169  IFN=640R  N=11J3 THENPRINT" AND 
HE  IS  JUST  STANDING  THERE" :A=1 

170  IF  N=490R  N=970R  N=10THENPRI 
NT "THIS  IS  IT!":A=1 

171  IF  A=0THENPRINT" NOTHING  SPEC 
IAL  ABOUT  THAT  OBJECT" 

172  GOT025 

173  '  INVENTORY 

174  CLS 

175  PRINT"YOU  ARE  CARRYING:" 

176  F0RC=1T0Y:IFRIGHT$(0$(C) ,2)= 
"99"THENPRINTLEFT$ (0$ (C) , LEN (0$ ( 
C))-3) 

177  NEXTC:INPUT"HIT  ENTER  WHEN  T 
HROUGH" ;C: GOTO 10 

178  'READ  ROUTINE 

179  A=0:IFN=3THENPRINT"HAIL  TO  T 
HE  REIGNING  QUEEN  CLEOPATRA 
":A=1 

180  IF  N=5THENPRINT"IT  TELLS  OF 
A  MAGICAL  OBJECT  THAT CAME  TO 
THE  QUEEN  AND  THAT     SHE  KEEPS  IT 

IN  THE  TREASURE  R00M":A=1 

181  IF  N=24THENPRINT"MAY  I  DIE  I 
N  GLORY" :A=1 

182  IFN=3  4THENPRINT"THE  TREASURE 
ROOM  CAN  BE  RUG-GED":A=1 

183  IF  N=33THENPRINT"I  UNLOCK  TH 
E  STARS" :A=1 

184  IF  N=3  6THENPRINT"I  BELONG  IN 
THE  QUEENS  BEDROOM     DO  NOT  REMO 

VE":A=1 

185  IF  N=50THENPRINT"IT  SAYS  WEL 
COME  TO  TOMBSTONE  T0WN":A=1 

186  IF  N=59THENPRINT" IT  SAYS  AT 
THE  BOTTOM  OF  THE         MINE  SHAFT" 
:A=1 

187  IF  N=61THENPRINT" EXPLODES  ON 
CONTACT-DANGER" :A=1 

188  IF  N=65THENPRINT" CAUTION-CAN 
CAUSE  ODER  CAN  CAUSESLEEP" : A=l 

189  IF  N=71THENPRINT"U.S.  SHERIF 
F":A=1 

190  IF  N=73THENPRINT"HEADLINE  RE 
ADS : " : PRINT "THE  TOUCHSTONE  THAT 
HAS  ALMOST     MAGICAL  ABILITY  TO  F 
IND  ORE  WAS  LOST  IN  A  CAVEIN  AT 
THE  OLD  MINESHAFT  AT  THE  MOUNTAI 
NS" :A=1 

191  IF  N=7 8THENPRINT " YOU  ROOM  IS 
3D":A=1 
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192  IF  N=84THENPRINT" DANGER  AND 
DEATH  ARE  AHEAD  TURN  BACK":A=1 

193  IF  N=89THENPRINT"DO  NOT  GO  N 
ORTH  DANGER" :A=1 

19  4  IF  N=92THENPRINT"IT  TELLS  OF 
A  WONDERFUL  CYRSTAL  THAT  DROPED 
FROM  THE  SKY":A=1 

195  IF  N=9 4 THENPRINT " DROP  TO  KAK 
E  LIGHT" :A=1 

196  IF  N=9 6THENPRINT" DROP  ME  JUS 
T  RIGHT  TO  SOAR" :A=1 

197  IF  N=100THENPRINT"THE  BIGGER 
THEY  ARE  THE  EASER  I  WORK":A=l 

198  IF  N=114THENPRINT"PUSH  TO  OP 
EN  DOOR":A=l 

199  IF  N=122THENPRINT"OPEN  AND  U 
SE  ONLY  WHEN  NEED  — LIMITED 
LIFE— ":A=1 

200  IF  A=0THENPRINT " I  CANNOT  REA 
D  THAT" 

201  GOT025 

202  '   GET, TAKE, KEEP 

203  IFC1>3THENPRINT"I  CAN'T  CARR 
Y  ANYMORE" : GOT02 5 

204  IFN=61AND  RIGHT$ (0$ ( 53 ) , 2 ) <> 
"99"THENPRINT"WHERE'S  MY  MONEY?" 
:GOT02  5 

205  IFN=61THEN  MID$ (0$ ( 53 )  , 7  ,  2 )  = 
"33" 

206  IF  N>122THENPRINT"I  CANNOT  G 
ET  THAT":GOT025 

207  IFMID$(0$(N) ,LEN(0$(N) )-2,l) 
="*"THENPRINT"I  CAN'T  GET  THAT!" 
:G0T025 

208  B=VAL(MID$(0$(N) ,LEN(0$(N) )- 
1,2)): IF  B<>R  THENPRINT" IT ' S  NOT 

HERE  —  DUMMY ! " : G0T02  5 

209  IFN$="B0N"THENB2=1 

210  IFN$="SEP"THENS2=1 

211  IFN$="W00"THENW1=1 

212  MID$(0$(N) ,LEN(0$(N) )-l,2)=" 
99" :C1=C1+1 

213  GOTO10 

214  1    LEAVE  DROP 

215  IFR=28AND  W1=1THENPRINT"THE 
WOOD  MAKES  A  BRIDGE" : D (2 , R) =29 :M 
ID$ (0$ ( 68 )  , 6 , 2 ) =" 2  8 " : W1=0 : PLAY"T 
403L2CL5CCL2DL5DDL1E" : GOSUB258 : G 
OTO10 

216  IFN$="BON"THENB2=0 

217  IFN$="SEP"THENS2=0 

218  IFN$="WOO"THENW1=0 

219  'DROP, LEAVE 

220  IFRIGHT$ (0$ (N) , 2 ) <>"99"THENP 
RINT"HOW  CAN  I  DROP  SOMETHING  I 
DON  1 T  HAVE  1 " : G0T02  5 

221  IFR=17AND  N=3 3THENPRINT"THE 
WALL  GRINDS  OPEN" : D ( 2 , R) =16 : FORC 
=1TO20 : PLAY"T5501L4EGABL2C" : NEXT 


:GOSUB258 

222  IFR=25AND  N=3 6THENPRINT"THE 
HIDDEN  PANEL  OPENS  UP  TO  THETREA 
SURE  ROOM" :FORC=1TO10:PLAY"T9L4O 
4CEGE" : NEXT : D ( 3 , R) =5 : GOSUB258 

223  A$=STR$(R) :MID$(0$(N) ,LEN(0$ 
(N) )-l,2)=RIGHT$(A$,2) :C1=C1-1 

224  IF  R= 7 3 THEN  228 

225  IFR=53AND  N=9  6THENPRINT"THE 
OBELISK  IS  STARTING  TO  GLOW  AND 
HUM.  A  BEAM  OF  RAINBOW  LIGHTIS  B 
EING  EMITTED  FROM  IT" : F0RC=1T02 5 
0:SOUNDC, 1: NEXT: PRINT" IT  IS  TOUC 
HING  THE  CLOUDS ":GOSUB258:D (4, R) 
=59:GOTO10 


226  IFR=66ANDRIGHT$ (0$ (94) ,2)="6 
6 "AND  N=94THENPRINT"A  CRACK  HAS 
FORMED  IN  BETWEEN       THE  THRONES" 
: D4=l: FORC=1TO20 : PLAY"T255O4AT60 
03C" :NEXT:GOT025 

227  IF  R=73THEN230ELSE10 

228  IF  RIGHT$(O$(10) ,2)="73"AND 
T=1THEN  PRINT" PREPARE  TO  TIME  JU 
MP" : G0SUB2  5  8 : G0T02  4  6 

229  IF  RIGHT$(0$(49) ,2)="73"AND 
T=2THENPRINT" PREPARE  TO  TIME  JUM 
P  AGAIN" :GOSUB258:GOT0246 

230  IF  RIGHT$(O$(10) ,2)="73"ANDR 
IGHT$ (0$ (49) , 2) ="7  3"ANDRIGHT$ (0$ 
(97) ,2)="73"THEN  246ELSE10 

231  FORC=0TO7:CLSC:SOUND30* (1+C) 
, 2 : NEXT : F0RC=1T02 0 : PRINTSTRING$ ( 
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32,RND(127)+127) :NEXT: PRINT@2  68 , 
"YOU  WON!"; :GOT0313 

232  POKE65494  ,  0 :  FORC=1TO30 :  PRINT 
STRING$(64,RND(127)+127) :NEXT:CL 
S2:PRINT@270, "B  Y  E  ! " ; : PRINT§29 
8 , "COME  BACK  SOON" ; : FORX=1TO1000 
: NEXT: END 

233  '  SHOOT 

234  CLS5PRINT@256, "SHOOTING  ANYT 
HING  IS  FORBIDDEN"  :  P=0 :R=76 :  SOUN 
D20 , 8 : GOSUB258 : GOTO10 

235  1  UNLOCK 

236  IFD1=0ANDR=13ANDB2=1THENINPU 
T"WITH  WHAT" ; A$ : IFLEFT$ (A$ , 3 ) ="B 
ON"THENPRINT"WITH  A  CREEK  THE  DO 
OR  UNLOCKS" :D1=1:FORC=1TO10 : PLAY 
"T60O4EG"  :  NEXT :  GOT02 5 

237  IFD2=0ANDR=16ANDS2=1THENINPU 
T"WITH  WHAT" ; A$ : IFLEFT$ (A$ , 3 ) ="S 
EP " THENPRINT 11  THE  WALL  OPENS  "SOUN 
D1,39:D(2,R)=16:GOTO10 

238  IFD2=0ANDR=25ANDA2=1THENINPU 
T"WITH  WHAT" ; A$ : IFLEFT$ (A$ , 3 ) ="N 
EC"THENPRINT"THERE  IS  A  CLICK  AN 
D  A  DOOR  IS  REVEALED" :SOUND222, 
2:GOT025 

239  IFR=62AND  N$="DOO"THENINPUT" 
WHAT  WITH";A$:A$=LEFT$(A$,3) :IFA 
$=»DIS"ANDRIGHT$  (0$ (100)  ,2)  ="99" 
THENPRINT "THE  DOOR  IS  UNLOCKED": 
D3  =  l : G0SUB2  58 : G0T02  5 

24)3  PRINT" I  CANNOT  UNLOCK  THAT  N 
OW": GOTO 2 5 

241  •  LIGHT 

242  IFR=30ANDRIGHT$ (0$ (61)  ,2)="3 
0"THENCLS4:PRINT@235, "b  o  o  m" ; : 
MID$(0$(61),11,2)="36": F0RC=1T04 
0 :  PLAY"T50O1V3 0AV15A"  :  NEXT :  D  ( 2  ,  R 
)=31:GOTO10 

243  PRINT "NOW  IS  NOT  THE  RIGHT  T 
IME":GOT025 

244  IFR=13AND  N=27THENPRINT"WHER 
E" : INPUTA$ : C1=C1-1 : IFLEFT$ (A$ , 3 ) 
="H0L"THEND1=1:PRINT"I  JUST  HEAR 
D  A  CLICK" : SOUND188 , 1 : GOSUB258 : G 
0T025 

245  PRINT"WHERE" : INPUTA$ : PRINT"I 
DON'T  FEEL  LIKE  DOING  THAT  NOW" 

:GOT025 

246  T=T+1 

247  PLAY"T4L802A03CEL4GL8EL2G" 

248  PCLS:SCREEN1,1:PI=3.141592:A 
1=-4*PI : A2=4*PI : X9= (A2-A1) / (T*50 
):FOR  C=A1  TO  A2  STEP  X9:X8=X8+1 
:IF  X8=5  THEN  X8=l : SCREEN1 , RND ( 2 
)"1 

249  SOUND  X(X8) ,1:F=255/(A2-A1) : 
X9=C*F:Y9=50*SIN(C)  : PSET (  (X9+130 
)  ,  (90+Y9)  ,5)  :PSET(  ( (-X9)+130)  ,  (9 


0+Y9)  ,5)  :NEXT:IFT=4THEN231 

250  CLS:  PRINT"  SCANNER  INDICATE 
S:" 

251  PRINT: PRINT: PRINT 

252  IFT=1THENPRINT"YEAR: ,42  B.C. 
" : PRINT "PLACE : , EGYPT" : PRINT "LOCA 
TION:OFF  OF  NILE":G0T0255 

253  IFT=2THENPRINT"YEAR: ,1881  A. 

D .  "  :  PRINT" PLACE :  U .  S  .  A . 11 :  PRINT " LO 
CATION, WESTERN  SEC. " : GOT0255 

254  PRINT "YEAR: , UNCOMPUTABLE " : PR 
INT 11  PLACE :  ,  unknown"  :  PRINT "LOCATI 
ON, unknown" : PRINT: PRINT"WE  ARE  I 
N  AN  unknown  AREA  OF  SPACE  AN 
D  TIME" 

255  PRINT@480 ,  "PRESS  ENTER  TO  CO 
NTINUE" ; 

256  POKE65314,8:SOUND255,40:INPU 
TA$ 

257  GOTO10 

258  FORC=1TO900: NEXT: RETURN 

259  DATAIN  AN  OPEN  AREA  THAT  IS 

SURROUNDED  BY  VERY  HIGH 
SHRUBS, 19, 19, 19, 19, AT  THE  ENTRAN 
CE  TO  THE  PALACE, ,4,22, , IN  THE  T 
HRONE  ROOM, ,, ,10, IN  A  LONG  HALL 
WITH  MANY  DOORS  ,  2  ,  8  ,  6  ,  ,  »»»>th 
e  treasure  room««««,  ,  ,  ,  25 

260  DATAIN  THE  QUEEN'S  BEDROOM,, 

, , 4 , IN  A  LONG  HALL  WITH  MANY  DOO 
RS, 8, ,9, 10, IN  A  LONG  HALL, 4, 7, 23 

,, ANOTHER  LONG  HALL, 15 , 10 , , 7 , IN 
AN  EGYPTIAN  RECIEVING  ROOM, 9,, 3, 

,IN  THE  QUEEN'S  asp  ROOM!  danger 

,6, , ,0 

261  DATAIN  A  VERY  GRIMY  TORTURE 
CHAMBER, 13, ,18, , IN  A  DIRTY; DARK; 
AND  DANK  DUNGEON, ,,,, IN  AN  ELEGA 
NT  KITCHEN, ,, ,15, IN  A  HUGE  DININ 
G  HALL, ,9,14, , AT  THE  OLD  ASTROLO 
GER'S  TOWER, 17, ,, ,0N  AN  STAIRCAS 

E,  ,,8,,0N  A  STAIRCASE, 7, , ,12 

262  DATAIN  THE  MAZE, 19 , 1, 20 , 19 , I 
N  THE  MAZE, 20, 19, 24, 21, IN  THE  MA 
ZE, 22, 24, 20, 21, IN  THE  MAZE, 21, 22 
,24, 2, AT  A  SMALL  GARDEN, , , , 8 , IN 
THE  MAZE, 24, 20, 24, 19, ON  THE  LEDG 
E, 25, 25, ,0 

263  DATAON  A  PARIE , , 47 , , 27 , ON  A 
PARIE, ,28,26, , AT  A  WIDE  RIVER, 27 
,,,, CROSSING  THE  RIVER, 28 , 46, , ,A 
T  A  BLOCKED  MINE , , , 46 , , AT  THE  BO 
TTOM  OF  THE  SHAFT, 30, ,,, AT  THE  E 
NTRANCE  TO  TOWN, 47 , 37 , 33 , 34 , IN  T 
HE  SALOON, ,37, 3  6, 32, IN  THE  SHERI 
F'S  OFFICE, 37, 35, 32, 40 

2  64  DATALOCKED  IN  AN  OLD  ILL  KEP 
T  JAIL,,,,, IN  A  WELL  STOCKED  COU 
NTRY  STORE, ,37, 38, 33, AT  THE  CENT 
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ER  OF  TOWN ,32, ,44,38, IN  A  SMELLY 
BARBER  SHOP, , 37, , 36, IN  THE  CORR 
AL,37,,,,AT  THE  FRONT  OF  THE  HOT 
EL, 37, 41, 34, 44, IN  AN  ELEGANT  HOT 
EL  LOBBY,  40,  43,  ,0 

265  DATAIN  YOUR  HOTEL  ROOM,,, 43, 
,IN  A  CORRIDOR  WITH  MANY  LOCKED 

DOORS, 41, , , ,IN  THE  OLD  SCHOOL  H 
OUSE,37, ,40, ,IN  AN  ALLEY, , 37 , , , I 
N  THE  DESERT  APPROCHING  A  M 
OUNTAIN  RANGE  ,29,  ,  ,  30 ,  ON  THE  BAR 
REN  DESERT,  26,  32,  ,0 

266  DATAAT  THE  CENTER  OF  A  SMALL 
VILLAGE, 49, ,50, 58, IN  AN  ENCHANT 

ED  FORREST, 49, 49, 49, 48, ON  A  SHAD 
ED  PATH, 52, 49, 51, 48, ON  A  SHADED 
PATH, 58, 50, 54, 53, IN  A  FIELD  OF  P 
RETTY  FLOWERS, ,50, 49, 56, IN  A  COO 
L  QUIET  KNOLL, ,49,51,0 

267  DATAIN  A  DEEP  FORREST, 49 ,,, 5 
1,AT  A  CLEARING  WITH  A  WATERFALL 

FLOWING  UP, 76, ,49, 58, AT  THE  EN 
TRANCE  TO  THE  CAVE  OF  THE  DREAD 
ED  KRETER,57,49,52,49,IN  THE  INT 
ERIOR  OF  THE  CAVE , , 56 , , 49 , ON  A  S 
HADED  PATH, 49, 51, 55, 48, ON  THE  RA 
INBOW  BRIDGE, , ,53,60 

268  DATAIN  A  FLOATING  VILLAGE,, 6 
1,59,, PASSED  THE  VILLAGE  THERE  I 
S  A  CASTLE  IN  THE  DISTANCE, 60, 
, ,62, STANDING  AT  THE  CASTLE  ENTR 
ANCE, , ,61, ,IN  THE  IMMENSE  RECIEV 
ING  ROOM, 64, 62, ,71, IN  A  HALL, 65, 
63, 66, 70, IN  A  ROOM  WITH  MANY  SLO 
TS  IN  THEWALL, ,64,71,0 

269  DATAIN  THE  GRAND  THRONE  ROOM 
, , , , 64 , IN  THE  TREASURE  ROOM, , , 66 
, , IN  A  TOWER  OVER  THE  CLOUDS , , , , 
70, IN  A  DIM  DUNGEON, ,,, , IN  A  LON 
G  HALL, 64, 71, 68, , IN  A  LONG  HALL, 
70, ,63,65 

270  DATAIN  TTD  MAIN  CONTROL  ROOM 
,76,, 75,, IN  TTD  ENGINE  ROOM, 76,, 
74,, IN  TTD  STORAGE  ROOM, , , 73 , 76 , 
IN  TTD  KITCHEN, ,76, ,72, IN  TTD  YO 
UR  SLEEPING  AND  MEDICALQUARTERS , 
,72,74,0 

27l'DATAHIGH  BUSHES  ALL  AROUND  Y 
OU*01, JEWELED  NECKLACE  01, HUGE  M 
ARBLE  COLLUMS*02,LARGE  STEPS  WIT 
H  A  LION  AT  EACH  END*02,A  SCROLL 
02, THRONE  ON  A  HUGE  DIAS*03,A  T 
APESTRY  ON  THE  WALL*03,GOLD  SKUL 
L  03, MOUNTAINS  OF  RUBYS -EMERALDS 
-AND  DIAMONDS *0 5 

272  DATATHE  TIME  SPHERE  CONTROL 
BOX  05, A  LARGE  BED*06,RUG  06,GOL 
D  BANGLES  06, A  STATUE  OF  THE  GOD 
RA*0 7, BURNING  TORCHES  08, A  WALL 


WITH  A  CRACK  IN  IT* 17, MAP  OF  TH 
E  PALACE  10, URNS  10, A  BUST* 10, as 
ps  11, A  SMALL  LEDGE* 11 

273  DATAA  ROPE  IS  HANGING  IN  THE 
CENTER  OF  THE  ROOM* 11 

274  DATASWORD  12, SHIELD  12, THE  R 
ACK  AND  WHIPS*12,SKELETONS*13,AS 
SORTED  BONES  13, A  HOLE  IN  THE  WA 
LL*13 , FOOD  BOAR-SPARROW-FIGS -AND 

DATES  14, SPOON  14 , BOWL  14 , LONG 
TABLE  AND  CHAIRS * 15 , SCEPTER  15,0 
NE  LARGE  BOOK  16 , ASTRO LAB  16,ANH 
K  16 

275  DATA  KNIFE  23, EXOTIC  PLANTS* 
23 

276  DATATROWEL  2 3, ROPE  2 5, A  SMAL 
L  DEPRESSION  IN  THE  WALL*25,CACT 
US*26, PRAIRIE  DOGS*26 , LONGHORN  S 
KULLS*27,WHITE  RAPIDS*29 , PILE  OF 

WOOD  SUPPORTS-DIRT-AND  ROCKS* 3 
0, DIVINING  ROD  31, BONES  31, the  t 
ouchstone  31, A  SWINGING  SIGN*32 

277  DATATUMBLEWEEDS*3  2 , BEER  3  3,C 
OINS  3 3, CARDS  3 3, A  PEARL-HANDLED 

GUN  34,DESK*34,U.S.  FLAG* 3 4 , BUN 
K  WITH  A  SMELLY  OLD  MATRESS*35,N 
OTEPAD  35, BARRED  WINDOW* 3 5 , DYNAM 
IGHT  3 6, GRUB  3 6, EMPTY  BOTTLES  3  6 
, ROBBER* 3 7, EITHER  38, RAZOR  38, MI 
RROR  38, WOOD  39 

278  DATALITTLE  DOGGIES*3  9 , BILLBO 
ARD* 40, DESK* 41, MAP  OF  TOWN  41, NE 
WSPAPER  4 2, RULER  4 4, CHALK  44,DES 
K  AND  CHAIRS*44,PAN  FOR  FINDING 
GOLD  4 6, HOTEL  ROOM  RECEIPT  46, SH 
OTGUN  47, YOU  SEE  A  SMALL  TOWN  IN 

THE  DISTANCE*47, QUARTZ  SHOE 

S  48, TIARA  48 

279  DATAS LIGHT  WISPS  OF  SMOKE  AR 
E  COMING  FROM  THE  CAVE*56, 
GLOOMY  BANNERS* 6 2, DOOR* 6 2, SPIDER 

WEBS*62, SMALL  HOMES  AND  PESANTS 
*60,A  FRIENDLY  DRELL  STANDS  BY  A 
HUGE  OBELISK*53,SIGN*55,MAGI 
C  WAND  55, PIZZA  PIE  55, BOOK  63, C 
RYSTAL  BALL  63 

280  DATABAG  OF  MAGIC  DUST  63,GOL 
D  SWORDS  67, MAGIC  MEDALLION  56,T 
HE  MAIN  DRIVE  CRYSTAL  67, TWO  HUG 
E  THRONES  WITH  STONE  GARGOYL 
ES  AT  EACH  TOP* 6 6, RUBY  RING  66,G 
OLDEN  DISK  57, MANACLED  SKELETONS 
*69, LARGE  RATS  69 

281  DATADOOR*69,MANY  SLOTS  IN  TH 
E  NORTH  WALL*65, BLOCK  OF  SWISS  C 
HEESE  65, SKULL  KEY  68, STAR  AND  P 
LANET  CHARTS  68, CANDLE  68,RAINCO 
AT  61, GOAT  61, WHEELBARROW  61 

282  DATAPORTAL  TO  THE  OUTSIDE*72 
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,MAIN  DRIVE  CONSOLE*72 , DOOR  SWIT 
CH*72,CABINET*74, TOOLS  74, FLOWER 
S  52, EMPTY  TIME  AND  SPACE  UNIT*7 
3 , DRYED  SUPPLEMENT (FOOD)  7 5, JAR 
WITH  WATER  75 , BED*76 , FIRST  AID  K 
IT  76 

283  INPUT"TAPE  OR  DISK" ; A$ : A$=LE 
FT$ ( A$ , 1 ) 

284  IFA$="T"THEN  D=-1ELSE  IFA$=" 
D"THEN  D=1ELSE283 

285  INPUT"WHAT  FILE  NAME" ;F$: OPE 
N  "0",D,F$ 

286  FOR  C=1T0  Y : PRINT  #D,0(C):NE 
XT:PRINT#D,R,P,B2,S2,W1, J1,W2,E, 
D1,D2,D3,D4,D5,D6 

287  CLOSE  #D:PRINT@4  48, "FILE  "F$ 
"IS  SAVED": END 

288  INPUT"TAPE  OR  DISK" ;A$ : A$=LE 
FT$(A$,1) 


289  IFA$="T"THEN  D=-1ELSE  IFA$=" 
D"THEN  D=1ELSE288 

290  INPUT"WHAT  FILE  NAME" ; F$ : OPE 
N"I",D,F$ 

291  FORC=lTO  Y : PRINT#D, 0 (C) :NEXT 
:PRINT#D,R,P,B2,S2,W1, J1,W2,E,D1 
,D2,D3,D4,D5,D6 

292  CLOSE#D:PRINT@44  8"YOUR  GAME 
IS  LOADED  PREPARE  TO  PLAY":GOSUB 

258:GOTO10 

293  FORC=lTOY:IFRIGHT$(0$(C) ,2)= 
ii 9 9 " THEN  RIGHT$(0$(C)  ,2)=STR$(RN 
D(ll)+60) 


294  NEXT: RETURN 

295  FORC=lTOY: I FRIGHT $ (0$ (C) ,2)= 
"99 "THEN  RIGHT$(0$(C) ,2)=STR$(RN 
D(ll)+33) : NEXT : RETURN 

296  Y5=1535:FORX5=1024TO1279:POK 
EX5 , 185 : P0KEY5 , 185 : Y5=Y5-1 : NEXT 

297  PRINTS 10 6, "TIME  TRIPPER";: PR 
INT§271, "BY" ; : PRINT@4  24 , "ROBERT 
L.  THOMAS"; 

298  FORC=1TO4:PRINT@106, "time  tr 
ipper" ; : PRINT@271, "BY" ; :PRINT@42 
4,"robert  1.  thomas" ; : PLAY"O5V30 
L4T4;12":PRINT@106, "TIME  TRIPPER 
" ; : PRINT0271 , "by" ; : PRINT@424 , "RO 
BERT  L.  THOMAS" ; :PLAY"01L6T6CV5C 
V30L2T2CV5C" : NEXT : PRINT@271 , "BY" 
» 

299  GOT0314 

300  Y5=1535:FORX5=1024TO1279:POK 
EX5, 143 :P0KEY5, 143 :Y5=Y5-l:NEXT 

301  CLS 

302  INPUT"WOULD  YOU  LIKE  INSTRUC 
TIONS(Y/N) ";A$ 

303  IFA$="N"THENT=0:GOTO2  4  6 

304  CLS : PRINT@10 , "TIME  TRIPPER"; 
: PRINT 

305  PRINT"THIS  ADVENTURE  USES  A 
TWO  WORD  COMMAND  CONSISTING  OF 
(FIRST)   A  VERB  AND   (SECOND)   A  NO 

UN.": PRINT: PRINT "FOR  EXAMPLE  

— LOOK  BOOK": PRINT "FOR  CONVENCE 
THIS  PROGRAM  ONLY     REQUIRES  THE 
FIRST  THREE  LETTERS     OF  EACH  COM 
MAND .  11 :  PRINT 

306  PRINT  "EXAMPLE  >L0 

OK  BOOK" : PRINT" CAN  BE  INPUTED  AS 
— >L00  BOO" : PRINT@480 , "HIT  ENTER 

TO  CONTINUE" ; : INPUTA$ 

307  CLS: PRINT "SEVERAL  COMMANDS  H 
AVE  BEEN  INCLUDED  THAT  DO  N 
OT  REQUIRE  TWOWORDS .": PRINT : PRIN 
T"INPUT  N  FOR  NORTH" : PRINT" 

S  FOR  SOUTH" : PRINT"  E  FOR 

EAST": PRINT"  W  FOR  WEST": PR 

INT : PRINT"OTHER  ONE  WORD  COMMAND 
S:":PRINT"     HEL  FOR  HELP" 

308  PRINT"  LOO  REPRINTS  HEADING 
": PRINT"  INV  YOUR  INVENTORY" : PR 
INT@480,"HIT  ENTER  TO  CONTINUE"; 
: INPUTA$ : CLS : PRINT @ 9 , "TTD  RULES 

&  HINTS" : PRINT: PRINT" 1.  DO  NOT  T 
AKE  ITEMS  FROM  TTD  TO  OUTSIDE  AN 
D  OUTSIDE  INTO  THE  TTD  EXECPT  FO 
R  THE  NEEDED  PART." 

309  PRINT" IF  YOU  DO  YOU  MAY  NOT 
BE  ABLE  TOUSE  I.": PRINT" 2.   THE  T 
TD  IS  PROTECTED  BY  AN  INVISIBL 
E  SHIELD  SO  REMEMBER        WHERE  YO 
U  COME  OUT  AND  JUST  TYPEGO  TTD" 


310  PRINTG480 , "HIT  ENTER  TO  CONT 
INUE ■ ; : INPUT  A$ : CLS : PRINT " 3 .  REM 
EMBER  TO  KEEP  THE  COMMANDS SIMPLE 
.  FRED  HAS  BECOME  VERY  DISORI 
ENTED  IN  HIS  TRAVELS  AND  MAY  GI 
VE  CONFLICTING  INFOMATION  IF  THE 

COMMANDS  ARE  COMPLEX. " : PRINT 

311  PRINT"4.  FRED  HAS  NOT  BEEN  M 
AINTAININGHIS  TTD  SO  YOU  MAY  HAV 
E  TO  HIT     OBJECTS  TO  GET  THEM  TO 

WORK": PRINT :PRINT"ABOVE  ALL  HAV 
E  A  GOOD  TIME ! " : PRINT@480 , "HIT  E 
NTER  TO  START" ; : INPUTA$ 

312  GOT0246 

313  PLAY"T402L2CL2 . B-L4AL6GFEL2E 
-LI . E-L2CL2 . 0+CO-L4B-L6AGFL2EL1E 
P4L4E-L2 . DL4EF+GL6ABO+CL2DL1 . E-0 
-L2 . E-L4FGA-L6B-0+CD-L2E-L1 . EL20 
-CL2 . B-L4AL6GFEL2E-L1E-P4L4D-L2C 
0+L2 . CO-L4B-L6AGFL2EL1EP4L4E-L2 . 
DL4EFGL6AB-AL2 . 0+CL4CL2 . E-L4DL2C 
0-LlFL6G;G;GLl.F" :GOT0232 

314  PLAY"T7V20O2L8GO+L6DD-O-GO+C 
0-BGL2 . B-P8L8GO+L6DD-0-GO+CO-BGL 
2 . B-P8L8GO+L6DD-0-GB-GB-GB-GB-GB 
-GB-GFDFL2 . GL4DL60+DD-0-GO+CO-BG 
L2 . B-P8L8GO+L6DD-0-GO+CO-BGL2 . B- 
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CASTLE  OF  NAUMOS 


  Program  by  Terrance  Hale 

As  a  citizen  of  Dargeth,  the  bane  of  your 
existence  is  King  Naurios.  The  evil  and  jealous. 

 ruler  governs  the  kingdom  with  an  iron  fist 

and  no  one  escapes  his  wrath. 

Naurios  gained  control  after  forging  a 
powerful  and  magical  sword,  which  he  used 
to  conquer  the  countryside  and  to  enslave  the 
people.  The  king  carries  the  sword  with  him 
everywhere  as  the  symbol  of  ultimate  authority. 
Anyone  foolish  enough  to  look  at  him  the 
wrong  way  is  in  danger  of  being  beheaded  on 
the  spot. 

Among  those  decapitated  personally  by  the 
monarch  was  his  own  wizard  and  counselor, 
Mizagorn,  who  wanted  to  save  the  people  from 
Naurios'  wicked  ways.  Mizagorn  had  been 
Naurios'  tutor  from  childhood  and  had 
attempted  without  success  to  instill  good 
qualities  in  his  student.  The  wizard  knew  the 
situation  was  hopeless  when,  one  day,  Naurios 
turned  on  him  and  ridiculed  him  for  his  "weak 
heart  and  mindless  do-gooding." 
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From  that  day  forward  Mizagorn  plotted  the  overthrow  of  Naurios.  Secretly 
meeting  with  some  carefully  selected  citizens  on  a  regular  basis,  Mizagorn 
warned  that  Naurios  eventually  would  lose  his  sanity  and  cause  the  complete 
destruction  of  the  kingdom. 

The  real  problem  was  that  with  the  sword,  Naurios  was  practically  invincible. 
After  several  meetings  Mizagorn  decided  that  the  citizens  needed  a  weapon 
to  counter  the  sword. 

Mizagorn  disappeared  for  several  days  into  the  enormous  forest  surrounding 
the  castle.  His  mission:  To  create  a  magic  spear  that  would  eliminate  Naurios! 
Mizagorn  knew  the  formula  because  he  had  assisted  Naurios  in  creating  the 
sword. 

Upon  his  reappearance,  Mizagorn  was  seized  and  immediately  taken  to 
the  king.  The  king  called  a  public  meeting  of  all  the  citizens  to  witness  the 
slaughter.  "Let  this  be  a  warning  to  you,"  Naurios  told  them.  "Anyone  who 
challenges  my  rule  will  not  be  so  fortunate  to  die  as  quickly  as  Mizagorn. 
You  will  suffer  a  slow  and  agonizing  death  in  the  company  of  your  family 
and  friends." 

Shortly  after  the  debacle,  however,  Naurios  falls  into  a  deep  trance.  Mizagorn 
had  cast  a  temporary  spell  on  the  king  before  his  death.  The  citizens  secretly 
rejoice.  They  are  so  intimidated  by  the  king  that  they  do  not  recognize  his 
illness  as  an  opportunity. 

You  do,  however.  As  Mizagorn's  nephew,  you  are  incensed  that  he  would 
be  slaughtered  by  someone  he  had  tried  so  much  to  help.  Before  his  capture, 
Mizagorn  revealed  to  you  the  location  of  his  magical  spear.  It  is  up  to  you 
to  rid  the  kingdom  of  Naurios! 

Your  mission  is  to  retrieve  the  sword.  To  get  the  sword,  you  must  kill 
the  king.  But  there  are  some  steps  required  before  you  can  accomplish  the 
act.  First,  you  must  find  10  treasures  in  the  castle  and  deposit  them  at  the 
front  gate.  Then  you  must  select  the  correct  wearing  apparel,  go  to  the  king's 
chamber  in  the  catacombs,  and  stab  Naurios  with  your  spear  as  soon  as  you 
see  him.  If  you  hesitate,  even  for  a  moment,  the  spell  will  be  broken  and 
your  head  will  belong  to  the  king! 

For  this  Adventure,  you  will  use  a  verb  and  the  verb/ noun  command 
sequence.  In  all  but  one  case  (you'll  have  to  figure  out  which),  you  need 
only  to  type  the  first  four  letters  of  a  word.  Only  one  letter  is  required  for 
directional  commands.  Type  SCORE  to  check  the  number  of  moves  you  have 
made,  for  the  amount  of  fuel  left  in  your  lantern  (one  move  uses  a  unit  of 
fuel),  and  the  status  of  your  current  strength  (on  a  scale  from  1  to  25).  If 
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you  are  weak,  you  usually  can  move  around  to  regain  your  strength. 

There  will  be  occasions  when  you  will  want  to  converse  with  inhabitants 
of  the  castle.  Just  type  ASK  (person)  and,  depending  upon  the  situation, 
you  usually  will  receive  an  answer. 

Because  of  its  mysterious  elements,  one  of  the  objects  you  may  collect  is 
potentially  harmful,  perhaps  even  fatal  if  in  your  possession  very  long.  It 
is  wise  to  check  your  strength  periodically  if  you  suspect  that  you  have  this 
"treasure"  in  your  possession. 

If  you  find  yourself  in  a  dangerous  situation,  you  may  receive  some  assistance 
by  typing  HELP. 

The  scoring  is  10  points  for  each  treasure  collected,  plus  10  more  for  dropping 
them  at  the  main  gate.  There  are  1 1  treasures,  including  the  sword.  You  will 
lose  10  points  every  time  you  are  killed,  up  to  a  maximum  of  three  lives. 


(Terrance  Hale  is  a  student  at  Bronte  High  School  in  Tennyson,  Texas. 
Terrance  has  been  programming  computers  for  more  than  four  years, 
hoping  to  become  a  professional  programmer  in  the  future.) 


r  NARIOS1 


32K  ECB 


10  CLS:PCLEAR4:PMODE3,l:SCREENl, 
0:PCLS2 :COLOR4 

20  LINE(80,60)-(175,75) ,PSET,B:L 
INE (80, 75) -(175,140) ,PSET,B:LINE 
(60,51) -(80,60) ,PSET,B: LINE (175, 
51) -(195, 60) , PSET, B: LINE (60, 60 ) - 
(80, 140) ,PSET,B: LINE (175, 60) -(19 
5,140) ,PSET,B: LINE (106, 100) -(115 
,140) ,PSET,B:LINE-(120,111) , PSET 
,B 

30  LINE-(127, 140) , PSET, B:LINE-(1 
33,111) , PSET, B:LINE-(139, 140) , PS 
ET , B : LINE- ( 147 , 100 ) , PSET , B : FORX= 
84T0176STEP16 : LINE (X, 56) - (X+8 , 60 
) , PSET, B: NEXT: FORX=8  8T0168STEP16 
: LINE (X , 65 ) - (X+3 , 68 ) , PSET , BF : NEX 
T 

40  LINE(32,60)-(35,63) ,PSET,BF:L 
INE (44, 64) -(47, 67) , PSET , BF : LINE ( 
204,64) -(207, 67) , PSET , BF : LINE ( 57 
,47) -(65,51) , PSET, B: LINE (69, 47 ) - 
(74,51) , PSET, B: LINE (79, 47) -(86,5 


1)  ,PSET,B:LINE(171,47)-(179,51)  , 
PSET, B: LINE (183, 47) -(188,51) , PSE 
T,B 

50  LINE(192,47)-(200,51) ,PSET,B: 
LINE (104, 97) -(108, 100) , PSET, B: LI 
NE( 112, 97) -(116, 100) , PSET, B: LINE 
(13  6,97) -(140, 100) , PSET, B: LINE (1 
45,97) -(149, 100) ,PSET,B 
60  LINE(24,55)-(60,60) ,PSET:LINE 
(24,70) -(60,75) , PSET: LINE (24, 55) 
-(24,130) ,PSET:LINE-(64,140) , PSE 
T: LINE (196, 75) -(232,70) , PSET: LIN 
E(196,60)-(232,55), PSET : LINE- ( 2  3 
2,130) , PSET: LINE- (19 6, 140) , PSET 
70  LINE(220, 60) -(223 , 63) ,PSET,BF 
: LINE (24,55)-(60,55), PSET : LINE ( 8 
0,55)-(175,55), PSET : LINE (196,55) 
-(232,55) , PSET: PAINT (2 6, 72) , 4 : PA 
INT(82,76) ,4:PAINT(230,72) , 4 : LIN 
E(  24, 51) -(28,55)  , PSET , B : LINE ( 44 , 
54)-(48,58) ,PSET,B:PAINT(40,56) , 
4: PAINT (50, 56) ,4 

80  PAINT(83,57) ,4:FORX=98T0162ST 


EP16 : PAINT ( X , 57 ) , 4 : NEXT : PAINT ( 17 
2,57)  ,4 '.LINE  (228,  51)  -(232,55)  ,  PS 
ET,  B:  LINE  (2)38,  54)  -(212,58)  ,PSET, 
B:PAINT(206,56) , 4 : PAINT (214 , 56) , 
4 

90  LINE(24,111)-(11,118)  ,PSET:LI 
NE-(11,132) ,PSET:LINE-(56,155) ,P 
SET: LINE- (199, 155) , PSET: LINE- (24 
4,132) ,PSET:LINE-(244,118) ,PSET: 
LINE- (232 , 111) , PSET: PAINT ( 112 , 14 
4) ,3,4 

100  DRAW "BM 18 , 16 ;  CI ;  R4  ;  L2  ;  D7  ;  BR8 


; U7 ; D3 ; R6 ; NU3 ; D4 ; BR6 ; NR6 ; U4 ; NR4 ; 
U3 ; R6 ; BR1 6 ; L6 ; D7 ; R6 ; BR6 ; U7 ; R6 ; D3 
; NL4 ; D4 ; BR 6 ; R6 ; U4 ; L6 ; U3 ; R6 ; BR 6 ; R 
4 ; L2 ; D7 ; BR8 ; NU7 ; R6 ; BR 6 ; NR6 ; U4 ; NR 
4;U3;R6;BR10" 

lip  DRAWND7  ;R6 ;  D7  ;NL6 ;  BR 6  ;U4  ;NR 
4 ; U3 ; R6 ; BR10 ; D2 ; ND5 ; R2 ; Fl ; Rl ; Fl ; 
R2 ; NU4 ; D3 ; BR6 ; U7 ; R6 ; D3 ; NL4 ; D4 ; BR 
6 ; NU7 ; R6 ; NU7 ; BR 6 ; U7 ; R6 ; D3 ; L4 ; Dl ; 
Rl ; Fl ; Rl ; Fl ; Dl ; BR6 ; R2 ; U7 ; NL2 ; NR2 
;D7;R2 " 

120  DRAW" BR6 ; U7 ; R6 ; D7 ; NL6 ; BR 6 ; R6 
;U4 ;L6 ;U3 ;R6" : CLOAD"GAME" 


NARI0S2 


0  CLSRND(8)  -1 : PRINT@230 ,  "THE  CAS 
TLE  OF  NAURIOS" ; : SCREEN, 1 

1  X=RND ( -TIMER) : PMODE0 : PCLEAR1 : C 
LEAR800:DIMR$(101) ,0$(53) ,OD$(53 
) ,D$(6) ,R(101,6) ,L(53) 

2  F0RX=1T06:READD$ (X) : NEXT: DATA" 
NORTH  ", "SOUTH  ","EAST  " , "WEST  » 
,"UP  ",DOWN 

3  FORX=1TO90:READR$(X) :FORX2=lTO 
6 : READR ( X , X2 ) : NEXT : NEXT 

4  DATAAT  THE  EDGE  OF  YOUR  VI 
LLAGE, ,89, ,2, , ,ON  A  TWISTING  FOR 
EST         TRAIL, 3 , 1 , , , , , ON  A  NARROW 

PATH, , ,4,2, ,, ON  A  FOREST  TRAIL, 
6, 3, 5,,,, IN  A  SMALL  CLEARING, , 
4,,, STANDING  ON  A  BRIDGE.  A  RIVE 
R  FLOWS  UNDERNEATH , 8 , 4 , , , , 7 

5  DATAIN  A  COOL  RIVER.  YOU  FE 
EL  REFRESHED, , , , , 6 , , IN  THE  FORES 
T  OF  DARGETH ,9,6,8,8, ,0,1 
N  THE  FOREST  OF  DARGETH, 1 
0,8,9,9, ,0 

6  DATAACROSS  THE  MOAT  FROM  THEMA 
IN  GATE, ,9, 17, 11, ,, AT  THE  SW  SID 
E  OF  THE       CASTLE, 12, 9, 10, 9, ,, AT 

THE  W  SIDE  OF  THE         CASTLE, 13, 
11,, 9,,, AT  THE  NW  SIDE  OF  THE 
CASTLE, 9, 12, 14,9, ,, BEHIND  THE  CA 
STLE,9, , 15, 13, ,0 

7  DATAAT  THE  NE  SIDE  OF  THE  CA 
STEE,9, 16,9, 14, , ,AT  THE  E  SIDE  0 
F  THE  CASTLE, 15, 17,9, ,, ,AT  TH 
E  SE  SIDE  OF  THE  CASTLE , 16 , 9 , 9 
, 10 , , , IN  A  DARK  UNDERGROUND  RO 
OM, , , , , 13, ,AT  THE  MAIN  GATE, 20,1 
0,,,,,IN  THE  COURT  YARD, 30 , 19 , 21 
,24, ,0 

8  DATAIN  THE  BLACKSMITH  SHOP, 23, 
,22, 20,,, IN  THE  FORGE , , , , 2 1 , , , IN 


THE  SHOP'S  STALLS, ,21,20, ,, , IN 
THE  CHAPEL, ,25,20,26, ,, IN  THE  CH 
OIR  ROOM, 24, , , , , ,IN  THE  NAVE,, 27 
,24, 28,,, IN  THE  BAPTISTRY , 26 ,,, 2 
9 , , , IN  THE  SANCTUARY , , , 26 , , , , IN 
THE  SACRISTY, , ,27, , ,0 

9  DATASTANDING  BEFORE  THE  IN 
NER  GATE, 37, 20, 34, 31, ,, IN  THE  TA 
VERN, ,32,30,33, ,, IN  THE  GUESTS' 
ROOMS, 31, ,,,, ,IN  A  WINE  CELLAR,, 
,31,,,, IN  THE  STABLES, , ,35,30,36 
, , IN  A  TACK  ROOM, , , , 34 , , , IN  A  HA 
Y  LOFT, , , , , ,34, IN  THE  MAIN  GALLE 
RY, ,30,39,38, ,0 

10  DATAIN  THE  STUDY, 40 , , 37 , , , , IN 
THE  BALL  ROOM, 42 , , , 37 , , , IN  THE 

W  SIDE  OF  AN  E/W  HALL, , 38 , 41, 43 , 
,,IN  THE  MIDDLE  OF  AN  E/W  HALL, 5 
2, ,42,40, ,, IN  THE  E  SIDE  OF  AN  E 
/W  HALL, ,39,46,41, ,, IN  THE  GUARD 
ROOM, , ,40,44, ,, IN  A  LOOK-OUT  TO 
WER,45,,43,,,0 

11  DATAIN  THE  ARMORY, , 44 , , , , , IN 
THE  ROYAL  MEETING  ROOM, 47,, 49 
,42,,, IN  THE  KING'S  LIBRARY,, 46, 
, , , , IN  THE  KING ' S  TREASURE  ROOM 
, , , 47 , , , , IN  THE  ROYAL  BEDROOM, , , 
,4 6,,, IN  THE  QUEEN'S  TREASURE  RO 
OM,51,49, , , , ,IN  THE  TREASURE  ROO 
M  ANNEX, ,50, , , ,0 

12  DATAIN  A  VERY  LONG  CORRIDOR, 5 
7,41, ,53, ,, IN  THE  SERVANT'S  COMM 
ON  ROOM, 54, ,52,55, ,, IN  THE  SERVA 
NTS  BEDROOM, , 53 , , , , , IN  A  DARK  MU 
STY  ROOM, , , 53 , , , , IN  THE  SERVANT ' 
S  SECRET  WEAPON  ROOM, , 55 , , , , , IN 
A  VERY  LONG  CORRIDOR, 60 , 52 , 58 ,, , 

13  DATAIN  THE  DINING  HALL,,, 59, 5 
7 , , , IN  THE  KITCHEN, , , , 58 , , , IN  A 
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VERY  LONG  CORRIDOR, 71 , 57 , 61 , 67 , , 
,IN  THE  WIZARDS  ANTEROOM, 62 ,  ,, 60 
,,,IN  THE  WIZARD'S  BEDROOM, , 61 , 6 
3,,,, IN  THE  WIZARD'S  LAB,,,, 62,, 
,IN  A  DARK  MUSTY  ROOM,  63 , , 65 ,  ,  ,0 

14  DATAIN  THE  WIZARD'S  TREASURER 
OOM, ,, ,64,66, , IN  THE  WIZARD'S  LO 
OK-OUTTOWER, , , , , , 65 , IN  THE  E  SID 
E  OF  AN  E/W  HALL, , ,60,68, ,, IN  TH 
E  W  SIDE  OF  AN  E/W  HALL, 73 67 , 6 
9,,, IN  A  MUSIC  ROOM, ,70, 68, , , , IN 

THE  BARD'S  WORKROOM, 69 ,,,,, 0 

15  DATAIN  A  DIM  GLOOMY  ROOM, 74, 6 
0,,72,,,IN  A  FOUL-REEKING  CRYPT, 
,,71, 73,,, IN  THE  TORTURE  CHAMBER 
, ,68,72,90, ,, IN  AN  EERIE  GRAVE YA 
RD, 74, 71, 74, 74, , , IN  THE  ENTRANCE 

TO  THE     CATACOMBS, ,76, , ,74, , IN 
THE  PRIEST'S  ALTAR       ROOM, 75, 77, 
,78, ,0 

16  DATAIN  THE  CLOISTER  ROOM, 76,, 
,,,,IN  THE  N  SIDE  OF  A  N/S  HALL 
, ,79,76, ,, ,IN  THE  MIDDLE  OF  A  N/ 
S  HALL, 78, 83, ,80, ,, IN  A  ROOM  HE 
WN  OUT  OF  STONE, 81, ,79, , , , IN  T 
HE  BARD'S  CHAMBER, 82, 80, , , , , IN  T 
HE  WIZARD'S  CHAMBER, ,81, ,, ,0 

17  DATAIN  THE  S  SIDE  OF  A  N/S  H 
ALL, 79, 86, 87, 84, ,, IN  A  LARGE  CAV 
ERN-LIKE  ROOM, ,85,83, ,, , IN  AN  I 
NTERGALACTIC  SPACE  PORT.  AL 
IENS  OF  ALL  KINDSSTARE  AT  YOU.  Y 
OU  ARE  IN  THE  WRONG  ADVENTURE 
.   YOU  BETTER  GO     BACK, 84 , , , , , 0 

18  DATAIN  THE  QUEEN'S  CHAMBER, 83 
,,,,,, IN  THE  PRIEST'S  CHAMBER,,, 
,83,,, IN  THE  KING'S  CHAMBER, 87,, 
,,,,AT  THE  CENTER  OF  YOUR  VILL 
AGE.  DROP  THE  SWORD  AND  THE  KING 
DOM  IS  YOURS, 1, , , , , , WANDERING  AR 
OUND  IN  THE  CASTLE'S  DUNGEONS, 90 
,90,73,91,90,90 

19  FORX=91TO101:R$ (X)=R$ (90) : FOR 
X2=1T06:READR(X,X2) : NEXT: NEXT 

20  DATA90,91,91,95,91,91,91,92,9 
2,92,92,92,93,92,91,94,93,93,94, 
94,95,93,94,94,95,91,95,94,96,95 
,96,95,97,96,96,96,97,97,98,99,9 
7,96,97,98,98,99,98,98,99,98,97, 
100 ,99,99,99, 100 , 100 , 100 , 101 , 100 
,101,101,101,101,101,100 

21  F0RX=1T053:READ0$(X) ,OD$(X) ,L 
(X) :NEXT 

22  DATAHEAVY  AXE, IT'S  SO  HEAVY  I 
T  MIGHT  AS  WELL  BE  AN  ANVIL, 22, 
PILE  OF  ROCKS, THEY  ARE  BIG, 18, CO 
LD  BOURBON, *THE  BEST  OF  JACK  DAN 
IELS,33,PIECE  OF  ROPE  TIED  TO  A 
HOOK, IT'S  ABOUT  10  FT  LONG, 3 5, DI 


RTY  SHOVEL, ONE  OF  THE  BEST  OF  IT 
S  KIND, 43 

23  DATASHORT  BOW, IT'S  MADE  OF  RE 
D  RIBBON, 51, KING'S  JOURNAL, * I  FE 
AR  MY  WIZARD  HAS  LEARNED  OFMY  PL 
ANS . . . GOT  TO  HURRY. .. ,47, SOME  FO 
OD,"IT'S  FOOD  FIT  FOR  AN  EVIL  KI 
NG,  BUT  NOT  FOR  YOU" , 58 , CRUEL  LO 
OKING  KNIFE, SHARP  AS  EINSTEIN, 59 

24  DATAANCIENT  SCROLL, * SPEAK  ADV 
ENTURER  AND  YOU  SHALL  OPEN  SECRE 
T  DOORS! ,63, SMALL  BRASS  KEY, IT  L 
OOKS  HOLY, 69, PAIR  OF  PLIERS, THEY 

ARE  BIG  AND  STRONG, 73 , BRASS  LAN 
TERN, IT'S  AN  OIL  BURNER, 24 , MAGIC 
SPEAR, * PROPERTY  OF  MIZAGORN,82 

25  DATADIRTY  MAGAZINE , *TRY  TO  KE 
EP  YOUR  MIND  ON  THE  ADVENTURE 
. . .OK?, 44, OLD  SPELLBOOK, "*HOW  TO 

MAKE  ONE  UNSEEN  BY  THOSEAROUND 
HIM:   FIND  MY  STICK! ", 63 , *SILVER 
HELMET*, X, 45, *SILKEN  TAPESTRY*, X 
,46,* JEWELED  CROWN*, X, 48 

26  DATASOME  *GOLD  AND  SILVER  COI 
NS* , X, -1 , *DIAMOND  NECKLACE* , X, 50 
,*PLATINUM  GAUNLET* , X, 56 

27  DATA* LARGE  RUBY* , X, 101 , *GOLDE 
N  HARP*,X, 70, * EMERALD  STAFF*, X, 6 
6 , *GOLDEN  RING* , X , 7 4 , *THE  POWER 
SWORD! *,* PROPERTY  OF  NAURIOS,-l, 
BOGGY  MOAT, IT'S  FULL  OF  ALLIGATO 
RS, 10, SOME  ALLIGATORS , THEY ' RE  HU 
NGRY, -1 

28  DATAOLD  OAK  TREE, THERE'S  A  FA 
KE  LIMB  ON  IT, 17, FAKE  LIMB, IT'S 
MADE  OF  METAL, -1, PILE  OF  LEAVES, 
THEY  COVER  A  TUNNEL, 13 , DRAWBRIDG 
E,+, 10, MONEY  BOX  NAILED  TO  A  POS 
T, THERE'S  A  POISON  NEEDLE  IN  THE 

LOCK.   BETTER  USE  A  KEY, 29 

29  DATAWOODEN  PORTCULLIS ,+, 30 , ST 
ACK  OF  HAY,ACHOOO! , 3  6, SUIT  OF  AR 
MOR,IT'S  GRINNING  AT  YOU, 46, FIRE 
PLACE, ONE  OF  THE  STONES  IS  SLIGH 
TLY  DISCOLORED, 4 7, DISCOLORED  S 
TONE , * BEWARE  OF  THE  EVIL  KING  IN 

THE  CATACOMBS . . . , -1 

30  DATASOME  POISONOUS  VAPORS , THE 
Y  ARE  VERY  FATAL! , 55 , POISONOUS  G 
AS, IT'S  VERY  FATAL! , 64, RICKETY  L 
ADDER, "YOU  CAN  GET  UP  IT,  BUT  US 
E  SOME-THING  ELSE  TO  GET  DOWN", 6 
5, STURDY  HOOK, IT'S  FASTENED  SECU 
RELY, 66 

31  DATALARGE  SIGN, *UTTER  THE  PAS 
SWORD  TO  GO  NORTH  SAFELY , 71 , TRAP 

DOOR,+,-l, FLICKERING  TORCH, IT  C 
ASTS  SHADOWS  ABOUT  THE  ROOM, 37,0 
RNATE  COFFIN, +,88, FLIGHT  OF  STAI 
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RS , THEY  LEAD  UP, 75 

32  DATAMOUNDS  OF  DIRT, THEY  ARE  F 
ALLEN  ENEMIES, 5, THE  OLD  PRIEST, A 

GLOW  SURROUNDS  HIM, 8 7, THE  BARD, 
HE  IS  PLAYING  THE  HARP, 1$ , THE  KI 
NG,HE  COMES  ALIVE !, -1 , THE  GOBLIN 
, HATRED  GLEAMS  IN  HIS  EYES,-1 

33  R=l:SG=25:LL=15j3j3:PS$=MID$(OD 
$(10), 8, 10) 

34  0$="AXE  ROCKBOURROPESHOVBOW  J 
OURFOODKNIFSCROKEY  PLIELANTSPEAM 
AGABOOKHELMTAPECROWCOINNECKGAUNR 
UBYHARPSTAFRINGSWORMOATALLITREEL 
IMBLEAVDRAWBOX  PORTSMELARMOFIRES 
TONVAPOGAS  LADDHOOKS I GNTRAPTORCC 
OFFSTAIMOUN" 

35  0$=0$+ " PRIEBARDKINGGOBL" 

36  V$="GO     RUN  N       NORTS  SOUTE 
EASTW      WESTU       UP     D  DOWNG 

ET  TAKEGRABDROPL  LOOKEXAMSEARI 
INVEREADHELPHIT  BREACHOPCUT  C 
LIMENTETIE  OPENLIGHOFF  QUITSTOPE 
AT  THROSAY  SCORPULLDIG  PUSHMOVED 
RINSAVELOADSTABKILLATTADESTASK  T 
ALKWEARJUMP" 

37  V$=V$+"CROSSWIMCHASFOLLFIND" 

38  OA$=" LAMPS PELOAK  MONEHAY  SUIT 
DOORDIRT" : SCREEN , 0 : GOSUB3  47 

39  IFL=10RR<380RR=89THEN41ELSECL 
S0: PRINT" YOU  ARE  IN  COMPLETE  DAR 
KNESS.  IFYOU  CONTINUE,  YOU  MAY  C 
OME  TO  SOME  HARM. 11 :  DK=DK+1 :  IFD 
K=3THENPRINT"A  VAMPIRE  BAT  JUST 
BIT  YOU! ", :ELSE46 

4J3  DK=0:SP=,0:VP=,0:GS=,0:LL=15j30:L 
=0 : SG=25 : R=l : SC=SC-10 : L ( 13 ) =24 : K 
L=KL+1 : 1 FKL< > 3 THENPRINT " TRY  AG A I 
N.  .  . ":FORI=1TO9000:NEXT:GOTO39EL 
SEPRINT"THAT ' S  IT!  YOU  ONLY  GET 
3  LIVES! YOU  FINISHED  WITH  SCORE: 
" ; SC ; CHR$ ( 8 ) ; » . » : PRINT " PLAY  AG A I 
N  SOMETIME !": END 

41  DK=0:CLS: PRINT "YOU  ARE  " ;RS(R 
) ;".":IFLEN(R$(R) ) 023THENPRINT 

42  PRINT"OBVIOUS  EXITS  ARE:": FOR 
X=1T06  :  IFR  (R,  X)  <>j3THENPRINTD$  (X) 

43  NEXT : PRINT : PRINT: I FR> 9 AND  R<1 
8THENL(28)=R:IFL(29)o-lTHENL(29 
)=R 

44  PRINT"YOU  SEE :  "  :  Y=J3  :  F0RX=1T05 
3:IFL(X)=R  THENPRINTO$ (X) : Y=l 

45  NEXT:IFL(4)=66ANDRO=pANDR=65T 
HENPRINT"A  ROPE  HANGS  FROM  THE  C 
EILING. "ELSEIFY=0THENPRINT"NOTHI 
NG." 

46  GOT048 

47  IFR>37ANDL=0THEN39 

48  IFR«=55THENVP=VP+l:SG=SG-lj3:PR 


INT: PRINT" YOU  FEEL  WEAKENED. ": IF 
VP=2THENPRINT:PRINT"THE  VAPORS  W 
ERE  TOO  MUCH.", : GOTO40ELSEIFSG<1 
THEN63 

49  IFR=64THENGS=GS+1:SG=SG-10:PR 
INT: PRINT" YOU  FEEL  WEAKENED. " : IF 
GS=2 THENPRINT: PRINT "THE  GAS  WAS 
TOO  MUCH.",  :GOT04j3ELSEIFSG<lTHEN 
63 

50  IFR=88ANDCF=lANDSB=j3THENSP=SP 
+1 : IFSP=2THENPRINT : PRINT" BEFORE 
YOU  CAN  DO  ANYTHING,   THE  KING  GR 
ABS  THE  SWORD  AND  SLICES  YOUR  HE 
AD  OFF. ", :GOTO40 

51  IFL=1THENLL=LL-1:IFLL<1THENPR 
INT: PRINT "YOUR  LANTERN  JUST  WENT 

OUT.":L=0 

52  IFR=70ANDL(24)=,0ANDL(25)<>0TH 
ENPRINT : PRINT"THE  BARD  GIVES  A  C 
RY  OF  GLEE  ANDPROMPTLY  SNATCHES 
THE  HARP  FROM  YOUR  CLUTCHES .": CY 
=CY-l:L(24)=R:OD$(51)="HE  IS  PLA 
YING  THE  HARP" 

53  IFL(53)<>R  THENL(53)=-1 

54  IFL(53) <>-10RLC=-10RR<370RR>7 
4THEN64ELSELC=36+RND(38) :IFLC=74 
AND  R<>74ANDLL<100j3THENPRINT:PRI 
NT"OFF  IN  THE  DISTANCE  YOU  HEAR 
A  SQUEAK  OF  HINGES,  A  HIDEOUS", 
"SCREECH,  AND  THEN  A  SPLAT. ":LC= 
-1:IFL(9)=-1THENL(9)=74:G0T064EL 
SE64 

55  IFLC=L ( 9 )  ANDL ( 9 )  OR  THENL(9)  = 
-1: PRINT :PRINT"OFF  IN  THE  DISTAN 
CE  YOU  HEAR         • (SNORT. .GROWL. . ) 

FOUND  IT! 1 ":GOT064 


56  IFLCOR  THEN64 

57  PRINT: PRINT "YOU  HERE  FOOTSTEP 
S  BEHIND  YOU. " : IFR=74ANDL(9) =-lT 
HENPRINT" BEFORE  THE  GOBLIN  HAS  T 
IME  TO  THROW  THE  KNIFE,  HE  FAL 
LS  IN  A  HIDDEN  PIT,  GIVES  A  HOR 
RIBLE", "SCREAM,  AND  IS  CRUSHED." 
: LC=-1 : L ( 9 ) =7  4 : GOT064 

58  IFLC=74THENPRINT:PRINT"THE  GO 
BLIN  FALLS  IN  A  HIDDEN  PITAND  IS 

DASHED  TO  PIECES .": LC=-1 : GOT064 

59  IFL(9)=R  ORL(9)=0THENPRINT"IT 
'S  THAT  GOBLIN  AGAIN.  HE","SNATC 
HES  THE  KNIFE  AND  IS  GONE     IN  A 
FLASH. " :L(9)=-l:CY=CY-l:GOT064 

60  IFL ( 9 )  O-IORL (25)  =0THENPRINT" 
YOU  CATCH  A  GLANCE  OF  THE  GOBLIN 
AS  HE  DARTS  AWAY .": GOTO 6 4 

61  PRINT"YOU  WHIRL  AROUND  IN  TIM 
E  TO  SEE  A  KNIFE  THROWN  BY  AN  UG 
LY  GOBLINHEADING  YOUR  WAY .  " ; : L ( 
9) =R:TH=RND(3) : I FTH= 1THENPRINT " Y 
OU  BARELY" , "MANAGE  TO  DODGE  IT." 
: GOT064ELSESG=SG-6 

62  I FTH=2 THENPRINT "IT  HIT  YOU  IN 
THE  ARM. "ELSEPRINT"IT  GOT  YOU  I 

N  YOUR  LEG." 

63  I FSG< 1THENPRINT " YOU  LOST  ALL 
YOUR  STRENGTH" , : GOTO40 

64  IFL(25)=0THENSG=SG-.5:IFSG<1T 
HEN63ELSE65ELSESG=SG+. 5: IFSG>25T 
HENSG=2  5 

65  GOSUB337 

66  OA=0:O=0:V=INSTR(V$,A$)  :V=(V+ 
3)/4:IFV<lTHEN71 

67  IFB$o""THENO=INSTR(0$,B$)  :0= 
(0+3  )  /4  :  IFO<1THENO=0 

68  IFO<>0ORB$="  "THEN70ELSEOA=INS 
TR (0A$ , B$ ) : 0A= (OA+3 ) /4 : IF0A<1THE 
N70 

69  IFOA=lTHENO=13ELSEIFOA=2THENO 
=16ELSEIFOA=3THENO=30ELSEIFOA=4T 
HENO=34ELSEIFOA=5THENO=3  6ELSEIFO 
A=6THENO=3  7ELSEI FOA=7THENO=4  5ELS 
EIFOA=8THENO=49 

70  G0T072 

71  PRINT" I  CAN'T  COMPREHEND  WHAT 
YOU  ARE  TRYING  TO  TELL  ME.": GOT 

047 

72  ONV  G0T074,74,89,89,95,95,97, 
97,102,102,103,103,108,108,115,1 
15, 115, 129, 13  6,13  6, 13  6, 13  6, 147, 1 
47, 150, 158, 168, 168 

73  ONV-27GOT0168,168,179,175,175 
,187,195,209,216,220,220,221,225 
,232,240,242,247,251,251,258,262 
,272,278,278,278,278,299,299,294 
,311,315,320,32  3,323,329 

74  IFB$="N  "ORB$="NORT"THEN89 


75  IFB$="S  "ORB$="SOUT"THEN95 

76  IF(B$="E  "ORB$="EAST" ) ANDV= 
2THEN98ELSEIFB$="E  "ORB$="EAST 
"THEN97 

77  IFB$="W  "ORB$="WEST"THEN102 

78  IFB$="U       "ORB$="UP  "THEN103 

79  IFB$="D  "ORB$="DOWN"THEN108 

80  IFR=1ANDB$="VILL"THEN95 

81  IFR<18ANDB$="FORE"THENR=8 : GOT 
041 

82  IFR=6ANDB$="RIVE"THENR=7 : GOTO 
41 

83  IFR=7ANDB$="BRID"THENR=6 : GOTO 
41 

84  IFR>9AND  R<18ANDO=28THENPRINT 
"THAT  WOULD  BE  SHEER  FOLLY.": GOT 
047 

85  IFR=17ANDO=30THEN103 

86  IFR=13AND(B$="TUNN"0RB$="H0LE 
"ORB$="OPEN" ) THEN 10 8 

87  IFR=47AND(B$="TUNN"ORB$="HOLE 
"ORB$="OPEN" ) THEN177 

88  PRINT "YOU  AREN'T  GETTING  ANYW 
HERE. " :GOT047 

89  IFR=64THENGS=0 

90  IFR=30ANDPC=0THENPRINT"THE  PO 
RTCULLIS  BARS  THE  WAY.":GOT047 

91  IFR=88THENSP=0 

92  I FR=7 1THENPRINT " YOU  WALK  INTO 
THE  GRAVEYARD  AND  FALL  INTO  A  1 

0  FT  PIT  FULL  OF  SPIKES.  ";:G0 
TO40 

93  IFR(R, 1) <>0THENR=R(R, 1) :G0T03 
9 

94  PLAY"T255L25501CECECECECE" : PR 
INT" YOU  CAN'T  GO  THAT  WAY.": GOTO 
47 

95  IFR=1ANDL(27) O0THENPRINT" YOU 
R  PEOPLE  DON'T  WANT  YOU  BACK  UNT 
IL  YOU  FULFILL  THE  QUEST .": G0T06 
5 

96  IFR(R,2)O0THENR=R(R,2)  :G0T03 
9ELSE94 

97  IFR=42ANDAR=0THENPRINT"WHEN  Y 
OU  WALK  INTO  THE  ROOM,  A  SUIT  0 
F  ARMOR  CHOPS  YOUR  HEAD  OFF.  " 
; : GOTO 40 

98  IFR=55THENVP=0 

99  IFR=64THENGS=0 

100  IFR=62THENCLS : PRINT@2  3  5 , "FIR 
EBALL! ! " : FORI=1TO30 : PLAY"T20L255 
04G" : SCREEN, 1 : FORI2=1TO10 : NEXT: P 
LAY"C" : SCREEN, 0: NEXT: SG=SG-5 

101  IFR(R, 3) <>0THENR=R(R, 3) : GOTO 
39ELSE94 

102  IFR(R,4)<>0THENR=R(R,4) : GOTO 
39ELSE94 

103  IFR=17THENPRINT"THE  TREE  IS 
TOO  HIGH  TO  CLIMB. " :GOT047 


265 


104  IFR=65ANDLD=0THENR=66 : PRINT" 
WHEN  YOU  CLIMB  UP,   THE  LADDER 
BREAKS  .  "  :  FORI=1TO3000 :  NEXT :  LD=1 : 
OD$(42)="IT'S  BROKEN" :GOT041 

105  IFR=65ANDRO=0ANDL(4)=66THENR 
=66:GOT041 

106  IFR=65THENPRINT"THE  LADDER  I 
S  BROKEN. ":GOT041 

107  IFR(R,5)O0THENR=R(R,5) : GOTO 
39ELSE94 

108  IFR=66ANDRO=0ANDL(4)=66THENR 
=65:GOT041 

109  I FR=  6 6THENPRINT " YOU  FALL  THR 
OUGH  THE  HOLE  AND  BREAK  YOUR  N 
ECK.  ";:GOTO40 

110  IFR=13THENR(13,6)=18 

111  IFR=74ANDTR=1THENPRINT"THE  T 
RAP  IS  NOT  OPEN.":GOT047 

112  IFR=74ANDTR=2ANDSC<190-KL*10 
THENPRINT"YOU  AREN'T  READY  FOR  T 
HIS  YET. . . " ; :GOT047 

113  IFR=74THENR=75:GOT041 

114  IFR(R,6)O0THENR=R(R,6)  :GOTO 
39ELSE94 

115  IFO=0THEN71ELSEIFL(O)=0THENP 
RINT"YOU  ALREADY  HAVE  IT.":GOT04 
7 

116  IFO=4AND  RO=0AND  R=65ANDL(4) 
=66THENPRINT"YOU  CAN'T  GET  IT  FR 
OM  HERE. ":GOT047 

117  IFL(0)OR  THENPRINT"I  DON'T 
SEE  THAT  HERE. ": GOTO 4 7 

118  IFCY=8THENPRINT"YOU  CAN'T  HO 
LD  ANY  MORE. ": GOTO 4 7 

119  IFO=24AND  R=70ANDL(25) O0THE 
NPRINT"THE  BARD  MOVES  AWAY  AS  YO 
U  REACHFOR  THE  HARP. ": GOTO 4 7 

120  IFO=24AND  R=70THENOD$ (51) ="H 
E  LOOKS  SAD" 

121  IFO=4AND  RO=0THENPRINT"IT'S 
TIED  ON  TIGHT!   YOU'LL  NEED  SOMET 
HING  TO  CUT  IT  WITH . " : GOT047 

122  IFR=88ANDO=27ANDSB=0THEN50 

123  IFO=32THENPRINT"THEY  FLUTTER 
THROUGH  YOUR  HANDS . " ; : GOT047 

124  IFO=370RO=420RO=47THENPRINT" 
IT'S  TOO  BIG  TO  HOLD. " : GOT047 

125  IFO=4  6THENPRINT"IT'S  TOO  HIG 
H  UP  TO  REACH.":GOT047 

126  IFO>27THENPRINT"DON ' T  BE  SIL 
LY.":GOT047 

127  PRINT "GOT  IT. " : PLAY"T10L8O3C 
G04C" : IFO>16AND  R<>19THENSC=SC+1 
0ELSEIFO>16THENSC=SC-10 

128  L(O)=0:CY=CY+1:GOTO47 

129  IFO=0THEN71 

130  IFL(O) <>0THENPRINT"YOU  DON'T 
HAVE  IT  WITH  YOU.":GOT047 

131  IFO=WR  THENWR=0 


132  IFO=13ANDL=lTHENPRINT"YOU  KN 
OCKED  YOU  LANTERN  OUT.":L=0 

133  IFO=27AND  R=89THENSC=SC+10 : P 
CLS : SCREEN1 , 1 : DRAW" S 1 6  BM4 8 , 4  8  Rl 5 
D20L15U20BM156/88NU10ND10NE10F10 
" : PLAY"T4L804C03GGAGECP8L4B04L3C 
": PRINT" YOUR  SCORE  IS : " ;SC;CHR$ ( 

8)  PRINT" YOU  USED" ;NM; "TURNS 
. " : END 

134  PRINT "DROPPED. " : PLAY"T10L8O4 
C03GC" : IFO>16ANDR=19THENSC=SC+10 
ELSEIFO>16THENSC=SC-10 

135  CY=CY-l:L(0)=R:GOT047 

136  IFO=0THEN39 

137  IFO<28ANDL(0) O0THEN130ELSEI 
FO>27ANDL(0)  OR  THEN117 

138  IFL=0ANDR>37THENPRINT"IT'S  T 
00  DARK  TO  SEE  ANYTHING. ": G0T04 7 

139  I FO=10 ANDS L= 1THENPRINT " THE  S 
CROLL  IS  BLANK.":GOT047 

140  ' 

141  IFO=28THENL(29)=L(28)ELSEIFO 
=30THENL(31)=17ELSEIFO=3  8THENL(3 

9)  =47ELSEIFO=32THENR(13, 6) =18 

142  IFO=33ANDPL=0ORO=3  5ANDPC=0OR 
0=4  5ANDTR=10RO=4  7ANDCF=0THENPRIN 
T"IT'S  CLOSED. ":G0T047 

143  IFO=330RO=34ANDMB=10RO=450RO 
=4 7THENPRINT" IT ' S  OPEN . " : G0T04 7 

144  IFO=35THENPRINT"IT'S  BROKEN. 
":GOT047 

145  IFOD$ (0)="X"THENPRINT"IT'S  V 
ERY  VALUABLE ! " : GOT047ELSEIFLEFT$ 
(0D$ (O) , 1 ) = " * " THENPRINT " THERE ' S 
SOMETHING  WRITTEN  ON  IT.";:G0T04 
7 

146  PRINTOD$ (O) ; " . " : G0T047 

147  PRINT"YOU  ARE  CARRYING: ": Y=0 
: F0RX=1T027 : IFL(X) =0THENPRINTO$ ( 
X) :Y=1:IFWR=X  THENPRINT" YOU  ARE 
WEARING  IT." 

148  NEXT: IFY=0THENPRINT"NOTHING. 
it 

149  GOT047 

150  IFO=0THEN71 

151  IFO<28ANDL(0) O0THEN130ELSEI 
FO>27ANDL(0)  OR  THEN117 

152  IFL=0ANDR>37THEN138 

153  IFO=10ANDSL=1THEN139 

154  IFLEFT$ (0D$ (0) , 1) <>"*"THENPR 
INT "THERE ' S  NOTHING  WRITTEN  ON  I 
T.":GOT047 

155  IF0=15THENPRINTRIGHT$(0D$(0) 
,LEN(OD$(0) )-l) :GOT047 

156  IFO=10THENSL=1 

157  PRINT" IT  SAYS: " : PRINTCHR$ (34 
) ;RIGHT$(OD$(0) ,LEN(OD$(0) )-l) ;C 
HR$(34) :GOT047 

158  IF (R=10ORR=17 ) ANDPL=0THENPRI 
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NT"ALWAYS  EXAMINE  THE  SURROUNDIN 
GS."; :GOT047 

160  IFR>89THENPRINT"THIS  MAZE  IS 
VERY  CONFUSING, ", "ISN'T  IT?" :GO 

T047 

161  IFR=87THENPRINT"TRY  THE  PASS 
WORD. " :GOT047 

162  IFR=88ANDL ( 14 )  O0THENPRINT"  Y 
OU  WILL  NEED  THE  SPEAR. " : GOT047 

163  I FR=  6 5 ANDLD= 0 THENPRINT " HAVE 
SOMETHING  WITH  YOU  TO  GET  DOWN 
BEFORE  YOU  GO  UP.":GOT047 

164  IFR=550R  R=64THENPRINT"DON ' T 
STAY  IN  HERE  LONGER  THAN     ONE  T 

URN. " :GOT047 

165  IFR=70ANDL(24)=R  ANDL(25)<>0 
THENPRINT "ASK  THE  BARD . " : GOT047 

166  IFR=30ANDL(1)  O0THENPRINT"  YO 
U  WILL  NEED  AN  AXE  HERE . " : GOT047 

167  PRINT "YOU' RE  ON  YOUR  OWN,  VE 
XED  ONE.":GOT047 

168  IFO=0THEN71 

169  IFO<28ANDL(O)O0THEN130ELSEI 
FO>27ANDL(0)  OR  THEN117 

170  GOSUB33  3:IFO2=0THEN71 

171  IFL(02) <>0THENPRINT"YOU  DON  ' 
T  HAVE  IT  WITH  YOU.":GOT047 

172  IF0<>350R02<>1THENPRINT"IT  D 
OESN'T  SEEM  TO  BE  AFFECTED. ": GOT 
047 

173  IFPC=1THENPRINT"IT'S  ALREADY 
BEEN  BROKEN. " :G0T04 7 

174  PRINT"CRUNCH!   A  MIGHTY  BLOW 
SPLINTERS  THE  PORTCULLIS .": PC=1 : 
0$(35)="BROKEN  WOODEN  PORTCULLIS 
":G0T047 

175  IFR=6THEN114ELSEIFR=7THEN103 
ELSEIFR=17THENlj33ELSEIFR=65THENl 
04ELSEIFR=100THEN107ELSEIFR=101T 
HEN114ELSEIFR=34THEN107 

176  IFR=66THEN109ELSEIFR=13THEN1 
10ELSEIFR=74THEN111ELSEIFR>89THE 
N114ELSEIFR=75THEN103ELSEIFR=18T 
HEN107ELSEIFR=36THEN114 

177  IFR=47ANDST=1THENR=48:G0T041 

178  PRINT" YOU' RE  NOT  ABLE  TO  CLI 
MB  HERE. ":GOT047 

179  IFO=0THEN71 

18)3  IFR=65ANDRO=0ANDL(4)=66ANDO= 
4THEN116 

181  IFL(O)<>0ANDL(O)OR  THEN111 

182  GOSUB333:IFO2=0THEN71 

183  IFL(02) O0THEN171 

184  IF0O40R02O9THEN172 

185  IFR0=1THENPRINT" YOU ' RE  JUST 
CUTTING  IT  UP  INTO     SMALLER  PIEC 
ES." :GOT04  7 

186  PRINT"A  QUICK  SLICE  FREES  TH 
E  ROPE.":RO=l:0$(4)="A  COIL  OF  R 


OPE" :GOT047 

187  IFO=0THEN71 

188  IFL(O)<>0THEN130 

189  GOSUB332:IFO2=0THEN71 

190  IF02<28ANDL(02) O0THEN171 

191  IF02>27ANDL(02)<>R  THENPRINT 
"I  DON'T  SEE  THAT  HERE . " : GOT047 

192  IFO<>40R02<>43THENPRINT"IT  D 
IDN'T  WORK  OUT  RIGHT . " : GOT047 

193  IFRO=0THENPRINT"IT  '  S  ALREADY 
TIED  ON.":GOT047 

194  PRINT "THE  ROPE  IS  NOW  TIED  S 
ECURELY. " : 0$ (4 ) ="A  PIECE  OF  ROPE 

TIED  TO  A  HOOK":L(4)=66:CY=CY-l 
:RO=0:GOTO47 

195  IFO=0THEN71 

196  IFO<28ANDL(0) O0THEN130ELSEI 
FO>27ANDL(0)<>R  THEN117 

197  IFO=33THENPRINT"YOU  CAN'T  RE 
ACH  IT  FROM  HERE . " : GOT047 

198  IFO=3  5THENPRINT"IT  WON'T  BUD 
GE. ":G0T047 

199  IFO=45ANDTR=2THENPRINT"IT'S 
ALREADY  OPEN. " : GOT047 

200  IF0=45THENTR=2: PRINT "THE  TRA 
P  OPENS  WITH  A  SCREECH  OFRUSTY  H 
INGES . " : GOT047 

201  IF0=47ANDCF=1THENPRINT"IT'S 
ALREADY  OPEN . " : GOT047 

202  IFO=47THENCF=l: PRINT" WHEN  YO 
U  OPEN  THE  COFFIN,  THE  KING  ST 
IRS. . . ":L(27)=R:L(52)=R:GOT047 

203  IFO<>34THENPRINT"I  WOULDN'T 
KNOW  HOW  TO  OPEN  IT.":GOT047 

204  G0SUB3 3  3  : IFO2=0THEN7 1 

205  IFL(02)  O0THEN171 

206  IF02<>11THENPRINT"IT  DIDN'T 
WORK.   A  POISON  NEEDLE  PRICKS  YOU 
R  FINGER.  ";:GOTO40 

207  IFMB=1THENPRINT"IT'S  ALREADY 
OPEN.":GOT047 

208  PRINT "THE  BOX  OPENS  WITH  A  C 
LICK. " :MB=l:L(20)=29:GOTO47 

209  IFO=0THEN71 

210  IFL(O)  O0THEN130 

211  GOSUB333 : IFO2=0THEN71 

212  IF02<28ANDL(02) O0THEN171ELS 
EIF02>27ANDL(02)<>R  THEN191 

213  IF0<>130R02O46THENPRINT"IT 
DOESN'T  WANT  TO  LIGHT . " : GOT047 

214  IFL=1THENPRINT"IT'S  ALREADY 
LIT.":G0T047 

215  PRINT "THE  LANTERN  FLARES  AND 
IS  LIT.":L=l:GOT047 

216  IFL ( 13 ) <>0THENPRINT"THERE ' S 
NOTHING  WITH  YOU  TO  TURNOFF.":GO 
T047 

217  IFL=0THENPRINT"IT'S  ALREADY 
OFF. " :GOT047 
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218  L=0:PRINT"THE  LANTERN  IS  NOW 
OFF. " : IFR> 3 7THENPRINT" DARKNESS 

ENGULFS  YOU." 

219  GOT047 

220  STOP:GOT047 

221  IFO=0THEN71 

222  IFO<28ANDL(O)O0THEN130ELSEI 
FO>2  7ANDL(0)  OR  THEN117 

22  3   IF0O8THENPRINT"THINGS  LIKE 
THAT  ARE  NOT  VERY     PALATABLE . " : G 
0T047 

224  PRINT "YOU  DEVOUR  THE  FOOD  GR 
EEDILY;  SOON  YOU  ARE  EATEN  AWA 
Y  BY  TINY  PARASITES  THAT  WERE  IN 

IT.",  :CY=CY-1:L(8)=-1:GOTO40 

225  IFO=0THEN71 

226  IFL(O)O0THEN130 

227  PRINT "AT  WHAT" ; : GOSUB334 : IFO 
2=0THEN71 

228  IFL(02)OR  ANDL (02  )  O0THEN19 
1 

229  IF0<>20R02O37THENPRINT"IT  B 
OUNCES  OFF,  DOING  NO  HARM.":L(0) 
=R:CY=CY-l:GOT047 

230  IFAR=1THENPRINT"IT'S  ALREADY 
BENT  BEYOND  ANY" , "RECOGNITION . " 

:GOT047 

231  PRINT "BANG!  CLATTER!  CRUNCH! 
THE  ROCKSPUT  A  FEW  HOLES  IN  THE 
ARMOR. " :AR=1:CY=CY-1:L(2)=R:G0T 

047 

232  IFC$=""THEN71 

233  IFC$=PS$THEN235 

234  PRINT"OK":PRINTCHR$(34) ;C$;; 
CHR$(34) :GOT047 

235  IFR=49THENR=50:GOSUB238:GOTO 
3  9ELSEIFR=55THENG0SUB2  3  8 : VP=0 : R= 
56:GOT039 

236  IFR=63THENR=64:GOSUB2  38:GOTO 
39ELSEIFR=71THENR=74 :GOSUB238 : GO 
T039ELSEIFR=87THENR=88 :GOSUB238 : 
GOTO 3 9 

2  37  PRINT" YOU  FEEL  A  RUMBLE  IN  T 
HE  GROUND, BUT  OTHERWISE  NOTHING 
HAPPENS. " :G0T04 7 

238  CLS0:FORD=0TO7:D$=CHR$(143+D 
*16) 

239  PRINT@D*64,STRING$ (64, D$)  ;  :N 
EXT : RETURN 

240  PRINT"YOU  HAVE  A  SCORE  OF";S 
C;CHR$(8);",  OF  A", "POSSIBLE  220 
,  USING" ;NM; "TURNS . " : PRINT" STREN 
GTH  =" ; SG ; CHR$ ( 8 ) ; " . " : IFL (13 ) =0T 
HENPRINT" LIGHT  LEFT  =" ;LL;CHR$ (8 

) ; " . " 

241  GOT047 

242  IFO=0THEN71 

243  IFO<28ANDL(0) O0THEN130ELSEI 
F02>27ANDL(0)  OR  THEN117 


244  IF0<>31THENPRINT"Y0U  HURT  YO 
UR  BACK! ":GOT047 

245  IFPL=1THENPRINT"IT  WON'T  GO 
ANY  FURTHER. ":G0T04 7 

24  6  PRINT "THERE  IS  A  CLICK  AND  A 
RATTLE  OFCHAINS  IN  THE  DISTANCE 
.":PL=1:R(10,1)=19:L(31)=R:GOTO4 
7 

247  IFL(5) O0THENPRINT"YOU  DON'T 
HAVE  ANYTHING  TO  DIG     WITH.": GO 
T047 

2  48  I FR< > 7 4 THENPRI NT " THE  GROUND 
IS  TO  HARD  HERE. " :GOT047 

249  IFTR< >0THENPRINT " YOU  CAN'T  D 
IG  HERE  ANYMORE. ": GOTO 4 7 

250  PRINT "YOU  UNCOVER  A  TRAP  DOO 
R!":TR=l:L(45)=R:GOT047 

251  IFO=0THEN71 

252  IFO<28ANDL(0) O0THEN130ELSEI 
FO>27ANDL(0)  OR  THEN117 

253  IF0=3  2ANDML=1THENPRINT"Y0U  M 
OVE  THE  LEAVES  BACK  TO", "COVER  T 
HE  TUNNEL. " :ML=0 : GOT04  7 

254  I F0=  3 2 THENPRINT " THE  LEAVES  M 
OVE  TO  REVEAL  THE       OPENING  OF  A 

TUNNEL. " :R(13 , 6) =18 :ML=1 :GOT047 

255  IF0=39ANDST=1THENPRINT"THE  F 
IREPLACE  MOVES  BACK  TO", "COVER  T 
HE  HOLE . " : ST=0 : 0D$ (38) ="ONE  OF  T 
HE  STONES  IS  SLIGHTLY  DISCOLERED 
":GOT047 

2  56  IFO=39THENPRINT"SOOT  COMES  0 
FF  ON  YOUR  HAND.  THEFIREPLACE  RO 
LLS  TO  ONE  SIDE  TO  SHOW  AN  OPEN 
ING  IN  THE  WALL. ", "THERE  IS  SOME 
FAINT  SCRAWLING  ONTHE  STONE. ":S 
T=1:0D$ (38)="A  DARK  HOLE  IS  BEHI 
ND  IT":GOT047 

257  PRINT"IT  DIDN'T  BUDGE.": GOTO 
47 

258  IFO=0THEN71 

259  IFL(O)  O0THEN130 

2  60  IF0<>3THENPRINT"I  HAVE  A  FEE 
LING  YOUR  BODY  WOULDNOT  LIKE  THA 
T. " :GOT047 

261  PRINT "YOU  STAGGER  AROUND  FOR 
SOME" , "MINUTES,   BUT  YOU'RE  OK  N 

OW. " : L( 3 ) =-1 : CY=CY-1 : GOT047 

262  GOT0266 

263  INPUT"TAPE  OR  DISK  (T/D)";DE 
$ 

264  IFLEFT$ (DE$ , 1) ="T"THEND=-1EL 
SEIFLEFT$ (DE$, 1) ="D"THEND=1ELSEP 
RINT:GOT0263 

265  PRINT: PRINT "FILENAME   (UP  TO 
8  CHARACTERS )...";: INPUTF$ : RETUR 
N 

266  G0SUB263:IFD=1THEN269 

2  67  PRINT :PRINT"PRESS  CASSSETTE 
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PLAY  AND  RECORD, PRESS  <ENTER>  WH 
EN  READY." 

268  K$=INKEY$:IFK$=""THEN2  68 

269  OPEN"0",D,F$ 

270  F0RX=1T027:PRINT#D,L(X) tNEXT 
:PRINT#D,L(28) ,L(29) ,L(31) ,L(39) 
,1.(45) ,L(52) ,L(53) ,R(10,1) ,R(13, 
6) ,0$(4) ,0$(35) ,OD$(38) ,OD$(42) , 
OD$(51) ,OD$(52) ,R,NM,CY,PL,ML,DB 
, MB , PC , WR , S  L , LD , RO , TR , CF , ST , LL , G 
S,VP,SP,SB,L,SC,AR,DK,SG,LC 

271  CLOSE:GOT047 

272  GOSUB263 : IFD=1THEN275 

273  PRINT :PRINT"PRESS  CASSETTE  P 
LAY,", "PRESS  <ENTER>  WHEN  READY. 

H 

274  K$=INKEY$:IFK$=""THEN274 

275  OPEN"I",D,F$ 

276  F0RX=1T027:INPUT#D,L(X) :NEXT 
:INPUT#D,L(28) ,L(29) ,L(31) ,L(39) 
,L(45)  ,L(52)  ,L(53) ,R(10,1) ,R(13, 
6) ,0$(4) ,0$(35) ,OD$(38) ,OD$(42) , 
OD$(51) ,OD$(52) , R,NM, CY, PL, ML, DB 
,MB,PC,WR,SL,LD,RO,TR,CF,ST,LL,G 
S,VP,SP,SB,KL,L,SC,AR,DK,SG,LC 

277  CLOSE:GOT039 

278  IFO=0THEN71 


279  IFO<28ANDL(0) O0THEN130ELSEI 
FO>27ANDL(0) <>R  THEN117 

280  IFO=29THENPRINT"THEY  ARE  TOO 
FAR  AWAY  TO  REACH .": GOT047ELSEI 

FL(25)=0THENPRINT"YOU  WOULD  HAVE 
AN  UNFAIR  ADVAN-  TAGE,    BEING  IN 
VISIBLE. " :GOT047 

281  IFO=3  7THENPRINT"THE  ARMOR  JU 
ST  SMILES  AWAY. " :GOT047 

282  IFO=50THENPRINT"A  MAGIC  SPEL 
L  OF  PROTECTION" , "KEEPS  THE  PRIE 
ST  FROM  HARM. " :GOT047 

283  IFO=5 1THENPRINT " THE  BARD  LOO 
KS  AT  YOU  STRANGELY, BUT  IS  NOT  H 
URT . " : GOT047 

284  IF0=52ANDSB=1THENPRINT"HE  IS 
ALREADY  DEAD . " : GOT047 

285  IFO=52THENGOSUB333 : IFO2=0THE 
N71ELSEIFL(02)  O0THEN171 

286  IFO=52ANDWR=22AND02=14THENSB 
=1:SP=0: PRINT" YOU  DID  IT!   THE  SP 


EAR  GLOWS", "FIERCELY  AS  IT  FINDS 
ITS  MARK.     THE  KING  WILL  RULE  N 
0  MORE. " :OD$ (52)="HE  IS  DEAD": GO 
T047 

287  IFO=52THENPRINT" SOMETHING  WE 
NT  WRONG! ": GOTO 50 

288  IF0O53THEN293 

289  GOSUB333:IF02=10R02=90R02=14 
ORO2=2  7THENK=1ELSEIFO2=0THEN71EL 
SEIFL(02)  O0THEN171 

290  PRINT"THE  GOBLIN  ATTACKS  WIT 
H  HIS", "SPIKED  CLUB,  HITTING  YOU 
R  " ; : SG=SG-10 : H=RND ( 3 ) : IFH=1THEN 
PRINT"CHEST. " ; ELSEIFH=2THENPRINT 
"ARM. "ELSEPRINT"LEG. " 

291  PRINT"YOU  ATTACK  WITH  YOUR  W 
EAPON ,  " , : IFK=0ORRND ( 4 ) =1THENPRI 
NT"WHICH  WASN'T  EFFECTIVE  AGAINS 
T  THE  GOBLIN. "ELSEPRINT"WHICH  K 
ILLED  THE  GOBLIN  WITH  ONESTROKE! 

HIS  BODY  DETERIORATES  BEFORE 
YOUR  EYES  AND  IS  GONE.":LC=-l 

292  L(53)=-l:GOT047 

293  PRINT"YOU  DIDN'T  HURT  IT.":G 
OT047 

294  IFO=0THEN71 

295  IFL(O)  O0THEN130 

296  IFWRo0THENPRINT"YOU  CAN  ONL 
Y  WEAR  ONE  THING .": GOT047 

297  IF0O6AND0O17AND0O19AND0O 
2 1AND0O2 2 AND0O2 6THENPRINT" I  DO 
N'T  KNOW  HOW  TO  PUT  IT  ON.": GOTO 
47 

298  PRINT"IT  FITS  NICELY .": WR=0 : 
GOT047 

299  IFO=0THEN71 

300  IFO<28ANDL(0) O0THEN130ELSEI 
FO>27ANDL(0)  OR  THEN117 

301  IFO=51ANDL(25)=0THENPRINT"TH 
E  BARD  IS  STARTLED  BY  YOUR" , "VOI 
CE.   HE  PALES  A  LITTLE .": GOT04 7 

302  IFO=51ANDL(24)=R  THENPRINT"T 
HE  BARD  SAYS: " :PRINTCHR$ (34) ; "AS 

LONG  AS  I  CAN  SEE  YOU.  YOU 
'RE  NOT  GETTING  THIS  HARP.";CHR$ 
(34) :GOT047 

303  IFO=51THENPRINT"THE  BARD  JUS 
T  GLARES  AT  YOU" , "SULLENLY .": GOT 
047 

304  IFO=50ANDL (25) =0THENPRINT"TH 
E  PRIEST  GLANCES  UP  QUICKLY  AT 

THE  SOUND  OF  YOUR  VOICE." 

305  IFO=50ANDWR=0THENPRINT"THE  P 
RIEST  SAYS:":PRINTCHR$(34) ; "YOU 
MUST  HAVE  SOMETHING  ON  TO  BREAK 

THE  SPELL. " ;CHR$ (34) :GOT047 

306  IFO=50ANDWR<>2 2THENPRINT"THE 
PRIEST  SAYS: " :PRINTCHR$ (34) ;"Y0 

U  AREN'T  WEARING  THE  RIGHT", "THI 
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NG . " ; CHR$ (34) :GOT047 

307  IFO=50AND(L(27)=-1ORL(27)=88 
) THENPRINT"THE  PRIEST  SAYS : " : PRI 
NTCHR$(34) ;"THE  SWORD  IS  NEAR."; 
CHR$ (34) :GOT047 

308  I FO=50THENPRINT " THE  PRIEST  J 
UST  SMILES  AT  YOU. " : GOT047 

309  IFO=53THENPRINT"THE  GOBLIN  S 
AYS:": PRINT "(SNORT! . .GURGLE! . .) 
RWUJ  UVQPG     QP  HKTGRNCEG . " : GOT04 
7 

310  PRINT  "I  DON'T  THINK  IT  FEELS 
LI KE " , " TALKING . " : GOTO  4  7 

311  IFR=6THENR=7:GOT041 

312  IFR>9AND  R<18ANDO=28THENPRIN 
T"YOU  TAKE  A  RUNNING  START,  LEAP 

HIGH,   HIT  THE  WALL  AND  SLIDE 
INTO  THE  MOAT.   ALLIGATORS"  , 11 SU 
RROUND  YOU  IMMEDIATELY .",: GOTO40 

313  IFR=66THEN109 

314  PRINT"WHEEE! ! " :GOT047 

315  IFR>9AND  R<18ANDO=2  8THENPRIN 
T"YOU  WOULD  BE  EATEN  IMMEDIATELY 
.":GOT047 

316  IFR=71ANDB$="PIT  "THENPRINT" 
YOU  MUST  OBEY  THE  SIGN. " : GOT047 

317  IFR=6ANDB$="RIVE"THENR=7 : GOT 
041 

318  IFO=0THEN71 

319  PRINT"YOU  COULDN'T  DO  THAT." 
:GOT047 

3  20  I FR=  6 THENR= 7 : GOT041ELSEIFR=7 
THENPRINT "WHEEE ! ! " : GOT047 

321  IFR>9AND  R<18THENPRINT" YOU  D 
IVE  IN  AND  ARE  INSTANTLY  ASSAI 
LED  BY  THE  REPTILES .",: GOTO40 

322  PRINT"NOTHING  TO  SWIM  IN  HER 
E.":GOT047 

323  IFO=0THEN71 

324  IF0=53ANDL(53)=R  THENPRINT"H 
E'S  NOT  GOING  ANYWHERE  FOR  NOW." 
; : GOTO 4 7 

325  IFO=53ANDLC=R  THENPRINT" YOU 
SPRINT  AFTER  THE  GOBLIN, ",: IFSG> 
19 . 5THENPRINT"AND  MANAGE  TO  DRAG 

HIM  INTO  THE  ROOM  YOU  WERE  IN." 
:  L  ( 5 3  )  =R :  IFL  ( 2  5 )  =0THENPRINT"HE  L 
OOKS  QUITE  SURPRISED,  BUT  HESENS 
ES  YOU  WITH  HIS  INFRAVISION . " : GO 
T047ELSE47 

326  IFO=53ANDLC=R  THENPRINT "BUT 
YOU  ARE  TOO  TIRED  TO  CATCH  THE 
SPEEDY  CREATURE . " : G0T04 7 

327  IFO<28ANDL(0)  O0THEN130ELSEI 
FO>27ANDL(0)<>R  THEN117 

328  PRINT"IT'S  NOT  GOING  ANYWHER 
E . " : GOT047 

329  IFO=0THEN71 

330  IFL(O)=0OR  L(0)=R  THENPRINT" 


I'M  SURE  IT'S  AROUND  HERE", "SOME 
WHERE. ": GOTO 4 7 

331  PRINT" I  CAN'T  FIND  OBJECTS  B 
Y  MYSELF.  YOU  HAVE  TO  TELL  ME  WH 
ERE  TO         LOOK. ":GOT047 

332  PRINT"TO  WHAT" ; : GOT03  34 

333  PRINT"WITH  WHAT"; 

334  INPUTA$ : PRINT: IFLEN (A$) <4THE 
NA$=A$+STRING$(4-LEN(A$) , "  ") 

335  A$=LEFT$(A$,4) : 02=INSTR (0$ , A 
$) :O2=(O2+3)/4:IFO2<lTHENO2=0 

33  6  RETURN 

3  37  PRINT : A$=" " : B$=" " : C$=" " : INPU 
T"WELL" ;A$:IFA$=""THEN3  37 

338  PRINT : IFLEN (A$ ) >3  2THENPRINT" 
I  CAN'T  UNDERSTAND  ALL  THAT ! " : GO 
T0337 

339  X=INSTR(A$,"  " ) : IFX=0THEN342 
ELSEF0RX=1T0LEN ( A$ ) : IFMID$ ( A$ , X , 
1)="  "THENB$=MID$ (A$,X+1,4) : IFC$ 
=  ii  »THENC$=RIGHT$  ( A$  ,  LEN  ( A$ )  -X) 

340  NEXT: IFLEN (B$) <4THENB$=B$+ST 
RING$ (4-LEN(B$) , "  ") 

341  F0RX=1T0LEN(A$) : IFMID$ (A$ , X, 
1) ="  "THENA$=LEFT$ (A$ , X-l) ELSENE 
XT 

342  A$=LEFT$ (A$,4) : IFLEN (A$ ) <4TH 
ENA$=A$+STRING$ ( 4-LEN (A$ ) ,"  ") 

34  3  NM=NM+1: RETURN 

344  FORX=&H7F13  TO  &H7FFF 

345  IF  PEEK(X)=101  THEN  PRINT  HE 
X$(X) 

346  NEXT 

347  CLS : PRINT@ 2  63  ," INSTRUCTIONS 
(Y/N)?" 

348  K$=INKEY$:IFK$=""THEN34  8 

349  IFK$="N"THENRETURNELSEIFK$<> 
"Y"THEN348 

350  CLS: PRINT "YOUR  GOAL  IS  TO  CO 
LLECT  THE  10  TREASURES,  THEN  FI 
ND  THE  SWORD  AND  BRING  IT  TO  YO 
UR  VILLAGE.  WHEN  ADVENTURING, 
USE  A  VERB  OR  VERB/NOUN  SYNTAX, 
SUCH  AS  'SWIM 'OR  'GET  SPEAR'.  YO 
U  MAY  BE  ASKED 'AT  WHAT?'  OR  'WIT 
H  WHAT? ' .  THE" 

351  PRINT "FIRST  4  LETTERS  ARE  AL 
L  THAT'S  NEEDED  OF  ANY  WORD  (EX 
CEPT  ONE). IF  YOU  FORGET  WHERE  YO 
U  ARE,  OR  WANT  TO  LOOK  AT  AN  OBJ 
ECT,   YOU     CAN   'LOOK'   OR   'L'.  USE 

'I'    FOR     AN  INVENTORY  OF  YOUR  B 
ELONGINGS . DIRECTIONS  CAN  BE  1  LE 
TTER   (N,S,E,W,U,D) .    " ; 
3  52  PRINT" 'SCORE'   WILL  TELL  YOU 
SCORE,   LIGHT  LEFT, AND  STRENGTH." 

353  K$=INKEY$ : IFK$=" "THEN353ELSE 
RETURN  ^ 


Curse  of  Karos 

Program  by  Paul  Hensel 

arreltown  was  a  quaint  little  town,  deriving  its 
name  from  the  fact  that  barrel-making  was  the 
community's  only  industry. 

At  the  suggestion  of  the  local  Chamber  of 
Commerce,  many  of  the  community's  frame 
buildings  were  constructed  in  the  shape  of 
barrels  as  a  way  of  promoting  the  town's  image 
nationally. 

Everything  was  fine  until  Karos  arrived  in 
town,  seeking  to  steal  the  secret  technology 
used  in  making  the  barrels.  Karos  wanted  to 
start  his  own  barrel-making  business  in  a 
neighboring  community  where  unemployment 
was  rampant. 

Karos  landed  a  job  at  the  local  factory, 
impressing  the  owner  with  his  insights  and 
productivity.  Karos  was  promoted  a  few  weeks 
later  to  company  vice-president  and  became 
involved  in  the  civic  affairs  of  the  community. 

Then  one  day  the  owner  discovered  a 
notebook  on  Karos'  desk.  It  was  full  of  the 
company's  secret  formulas  and  contained  the 
names  and  addresses  of  all  of  the  plant's  major 
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customers.  After  further  investigation,  the  owner  learned  that  Karos  had  been 
making  many  long  distance  calls  to  his  hometown. 

Enraged,  the  owner  called  all  of  the  workers  together.  Karos  was  tarred 
and  feathered,  tied  to  a  horse  and  chased  out  of  town. 

While  he  was  being  roughed  up,  Karos  swore  a  curse  on  the  community 
—  an  act  which  was  greeted  with  uproarious  laughter  by  the  residents. 

A  few  weeks  later,  however,  all  the  town's  trees  and  plants  started  dying, 
threatening  to  wipe  out  Barreltown's  only  source  of  income.  Barreltown's 
existence  was  in  immediate  danger  because  all  of  the  decaying  wood  was 
an  extreme  fire  hazard. 

It's  up  to  you  to  save  Barreltown.  You  must  find  the  oracle  in  the  forest 
to  learn  how  the  curse  can  be  removed. 


(Paul  Hensel,  of  Jackson,  Mich.,  is  an  llth-grade  student  at  Western  High 
School.  He  enjoys  competitive  debate  and  playing  the  trombone.  Paul 
is  planning  to  study  law  when  he  enrolls  in  college.) 


KAROS  4K 


1  CLS 

2  DIMA$(9) ,B$(9) ,C$(9) :Q=1 

4  DATA  IN  A  FIELD, DEAD  FRUIT  TRE 
ES,E  &  S 

6  DATA  IN  A  FIELD, DEAD  FRUIT, E  S 
&  W 

8  DATA  IN  A  FOREST, A  DAGGER, S  & 
W 

10  DATA  IN  A  WASTELAND, DEAD  PLAN 
TS  &  ANIMALS, N  E  &  S 
12  DATA  IN  A  FIELD, DEAD  PLANTS, N 
E  S  &  W 

14  DATA  IN  A  FOREST, A  GOBLIN, N  S 
&  W 

16  DATA  IN  A  WASTELAND, A  BEAUTIF 
UL,N  &  E 

18  DATA  IN  A  FOREST, A  GOBLIN, N  E 
&  W 

20  DATA  IN  A  FOREST, AN  OLD  MAN,N 
&  W 

22  F0RI=1T09 

24  READ  A$ (I) ,B$ (I) ,C$ (I) 
26  NEXT 

30  PRINT"YOU  ARE  ";A$(Q) 

32  PRINT" YOU  SEE  " ;B$(Q) 

34  PRINT"EXITS  LEAD  " ;C$(Q) 

36  INPUT" ACTION" ;AC$ 

38  ON  Q  GOSUB  100,120,140,160,18 


0,200,220,240,260 

40  FORZ=1TO500: NEXT: CLS :GOTO30 

100  IFAC$="EXAMINE  TREES "THENPRI 

NT"THEY  ARE  WITHERED  AND  DEAD" 

102  IFAC$="E"THENQ=2 

104  IF  AC$="S"THENQ=4 

119  RETURN 

120  IFAC$="EXAMINE  FRUIT"ORAC$=" 
GET  FRUIT"THENPRINT"IT  IS  MOLDY 
AND  ROTTEN  AND  FALLS  APART  AS  YO 
U  TOUCH  IT" 

122  IFAC$="E"THENQ=3 
124  IFAC$="W"THENQ=1 
126  IFAC$="S"THENQ=5 

139  RETURN 

140  IFAC$="GET  DAGGER"THENPRINT" 
TAKEN" : B$ (3 ) ="TREES" : DG=1 

142  IFAC$="S"THENQ=6 
144  IFAC$="W"THENQ=2 

159  RETURN 

160  IFAC$="EXAMINE  PLANTS"ORAC$= 
"EXAMINE  ANIMALS "THENPRINT" THEY 
ARE  BARELY  RECOGNIZABLE  AS  WHAT 
THEY  WERE   ;   THEY  HAVE  BEEN  DEAD 
FOR  SOME  TIME  NOW" 

162  IFAC$="N"THENQ=1 

164  IFAC$="S"ANDGP=0THENPRINT"A 

MAGICAL  BARRIER  STOPS  YOU" 


166  IFAC$="S"ANDGP=1THENQ=7 
168  IFAC$="E"THENQ=5 

179  RETURN 

180  IFAC$=M EXAMINE  PLANTS "THENPR 
INT"THEY  ARE  CHARRED  TO  A  CRISP 
AND  SEEM  LIKE  SHRIVELED  HUSKS  OF 

NO-THING" 
182  IFAC$="N"THENQ=2 
184  IFAC$="E"THENQ=6 
186  IFAC$="S"THENQ=8 
188  IFAC$="W"THENQ=4 

199  RETURN 

200  IFAC$="KILL  GOBLIN" ANDDG=1TH 
ENPRINT" AFTER  A  LONG, HARD  STRUGG 
LE  YOU  MANAGED  TO  KILL  IT":GB=2: 
B$(6)="A  DEAD  GOBLIN" 

202   IFGB<>2THENPRINT"THE  GOBLIN 
ATTACKS  AND  KILLS  YOU" : GOSUB500 
204  IFAC$="N"THENQ=3 
206  IFAC$="S"THENQ=9 
208  IFAC$="W"THENQ=5 

219  RETURN 

220  IFAC$="TOUCH  GEM" THENPRINT " T 
HERE  IS  A  BLINDING  EXPLOSION  A 
ND  YOU  ARE  NOW  DEAD" : GOTO500 

222  IFAC$="SAY  POWER" THENPRINT "T 
HE  GEM  ON  THE  GROUNG  SELF-DESTRU 
CTS, FREEING  THE  COUNTRYSIDE  FROM 
KAROS'  EVIL. ALSO, YOU  SUDDENLY  K 
NOW  THE  LOCATION  OF  KAROS '  PEARL 
 " : END 

224  IFAC$="N"THENQ=4 
226  IFAC$="E"THENQ=8 

239  RETURN 

240  IFAC$="KILL  GOBLIN" THENPRINT 
"THIS  GOBLIN  EASILY  BETTERS  YOU 

IN  COMBAT  AND  THEN  EATS  YOU  FOR 

LUNCH" : GOTO 500 
242  IFAC$="N"THENQ=5: RETURN 
244  IFAC$="W"ANDGP=0THENPRINT"A 
MAGICAL  BARRIER  STOPS  YOU" 
24  5  IFAC$="W"ANDGP=1THENQ=7:RETU 
RN 

248  PRINT "THE  GOBLIN  CATCHES  YOU 
, KILLS  YOU, AND  HAS  YOU  FOR  DINNE 
R"  : GOTO500 
259  RETURN 

2  60  IFAC$="KILL  MAN "THENPRINT "HE 

LIFTS  HIS  FINGER  AND  THE  TREES 
CRUSH  YOU  TO  DEATH" : GOTO500 
262  IFAC$="SAY  HELLO" THENPRINT "H 
E  GIVES  YOU  A  GEM  AND  SAYS  ONE  W 
ORD: 'POWER' " :GP=1 
264  IFAC$="N"THENQ=6 
2  66  IFAC$="W"ANDGP=1THENQ=7 
2  68  IFAC$="W"ANDGP<>1THENQ=8 
270  RETURN 

500  INPUT"PLAY  AGAIN, Y  OR  N";YN$ 
502   IFYN$="Y"THENRUNELSEEND  ^ 
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Program  by  Philip  Courie 


K,  captain.  You're  marooned  on  a  remote 
island,  just  like  you've  imagined  in  your 
fantasies  over  the  years.  Your  small  sailboat 
was  shattered  to  splinters  during  the  last  night's 
storm  and,  quite  frankly,  you're  lucky  to  be 
alive. 

The  bad  news  is  that  there  is  no  beautiful 
woman  on  the  island  as  you  would  have  hoped. 
There  are,  however,  some  unfriendly  natives 
whom  you  will  quickly  discover  are  tired  of 
eating  fish,  birds  and  bananas.  They  are 
cannibals,  you  see,  and  they  are  anxious  to 
enjoy  some  human  meat  for  a  change. 

You  will  discover  there  are  some  other 
persons  on  the  island,  too.  They've  been  there 
for  many  years  so  their  survival  instincts  are 
strong.  Your  actions  when  you  encounter  them 
will  determine  whether  they  are  friendly  or  not. 
There  are  also  other  creatures  that  will  want 
to  check  you  out. 

Hope  you've  joined  the  fitness  movement 
because  the  jungle  is  fierce  and  will  challenge 
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every  muscle  in  your  body.  Naturally  there  are  some  treasures,  but  you'll 
have  to  decide  whether  you  want  to  spend  the  time  collecting  them. 

You  get  the  idea:  this  island  is  really  a  nightmare.  Your  goal  is  to  escape 
as  soon  as  possible. 

Before  loading  the  two  listings,  be  sure  to  unplug  the  disk  controller.  Next 
enter  P0KE25,6:NEW  to  clear  all  the  graphics  pages  for  text.  Load  the  first 
listing  and  run  it.  You  will  be  given  instructions  and  the  option  of  seeing 
all  of  the  verbs  in  the  Adventure;  then  load  the  second  listing. 

You  should  examine  all  items  closely.  If  you  get  stumped,  simply  type  5RVE 
so  you  can  resume  the  game  later.  Use  SCORE  to  keep  track  of  the  number 
of  moves. 

Better  luck  on  your  next  island! 


(Philip  Courie  is  a  native  of  Florence,  Ky.,  who  enjoys  writing  Adventures 
as  a  hobby.) 


H  ISLAND  1 


16K  ECB 


10   '   COPYRIGHT   (C)  3-84 

20   1   PHILIP  COURIE 

30   '   P.O.   BOX  862 

40    '   FLORENCE,   KY  41042 

50    1    (606)  525-0390 

60  CLS 

70  DATA  87,69,76,67,79,77,69,32, 
84,79 

80  FOR  X=l  TO  10 
90  READ  D 

100  PRINT@106+X,CHR$ (D) 
110  FOR  Y=l  TO  35: NEXT  Y 
120  NEXT  X 

130  DATA  84,72,69,32,73,83,76,65 
,78,68 

140  FOR  X=l  TO  10 
150  READ  D 

160  PRINT@170+X, CHR$ (D) 
170  FOR  Y=l  TO  35: NEXT  Y 
180  NEXT  X 
190  DATA  66,89 
200  FOR  X=l  TO  2 
210  READ  D 

220  PRINT@238+X,CHR$ (D) 
230  FOR  Y=l  TO  35:NEXT  Y 
240  NEXT  X 


250  DATA  80,72,73,76,73,80,32,67 
,79,85,82,73,69 
260  FOR  X=l  TO  13 
270  READ  D 

280  PRINT@297+X, CHR$ (D) 

2  90  FOR  Y=l  TO  35: NEXT  Y 
300  NEXT  X 

310  FOR  X=l  TO  500: NEXT  X 

320  CLS : PRINT @ 3 4, "YOUR  SAILBOAT 

HAS  JUST  RUN" : PRINT @ 6 5, "AGROUND 

ON  A  LONG  SANDY  BEACH." 

330  PRINT @ 9 7, "YOU  FEEL  VERY  TIRE 

D.     YOU":PRINT@129,"HAVE  BEEN  ON 

THE  BOAT  FOR  A" : PRINT@161 , "DAY 
OR  WAS  IT  A  WEEK?" 
340  PRINT@193, "ALL  YOU  KNOW  NOW 
IS  THAT  YOUR" : PRINT @ 2 2 5, "ON  A  SO 
UTH  PACIFIC  ISLAND." 
350  PRINT@257, "YOUR  ALONE  ON  THE 

ISLAND  OR" : PRINT@289 , "ARE  YOU?" 

3  60  FOR  X=l  TO  4000: NEXT  X 

430  DATA  80,82,69,83,83,32,65,78 
,89,32,75,69,89,32,84,79,32,67,7 
9,78,84,73,78,85,69 
440  FOR  X=l  TO  25 

4  50  READ  D 

460  PRINT@418+X,CHR$ (D) 
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470  FOR  Y=l  TO  15: NEXT  Y 
480  NEXT  X 

490  K$=INKEY$:IF  K$=,,M  THEN  490 
500  CLS 

510  PRINT@36, "**NOTES  ON  ADVENTU 
RING**" 

520  FORX=64  TO  95 
530  PRINT@X , CHR$ (45) ; : NEXT  X 
540  PRINT@97,"IN  THIS  ADVENTURE 
YOU  HAVE" : PRINT0129 , "A  GOAL  TO  C 
OMPLETE . 11 :  PRINT@161 ,  "TO  GET  OFF 
THE  ISLAND." 

550  PRINTS 19 3 , "AT  TIMES  YOU  WILL 
NEED  AN" :PRINT§225, "OBJECT  TO  C 
OMPLETE  A  TASK." 

560  FOR  X=256  TO  287 : PRINT@X, CHR 
$(45) ; : NEXT  X 

570  PRINT@289 , "IN  THIS  ADVENTURE 
YOU  WILL  USE" : PRINT@321, "A  VERB 
AND  A  NOUN." 
580  PRINT@3 53 , "example  1)  GET  TO 
RCH":PRINT@3  93, "2)  N  <ENTER>" 
590  FOR  X=416  TO  447 : PRINT@X, CHR 
$  (45) ; :NEXT  X 

600  DATA  80,82,69,83,83,32,65,78 

,89,32,75,69,89,32,84,79,32,67,7 

9,78,84,73,78,85,69 

610  FOR  X=l  TO  25 

620  READ  D 

630  PRINT@450+X,CHR$ (D) 
640  FOR  Y=l  TO  15: NEXT  Y 
650  NEXT  X 

660  K$=INKEY$:IF  K$=""  THEN  660 
670  CLS 

680  PRINT@4  6, "HELP" 

690  FOR  X=64  TO  95 : PRINT@X, CHR$ ( 

42) : NEXT  X 

700  PRINT@97,"I  SUGGEST  THAT  YOU 
PLAY  THIS" :PRINT@129, "GAME  WITH 
OUT  LOOKING  AT  THE" : PRINT §161 , "L 
1ST  OF  VERBS  USED  IN  THE  GAME." 
710  FOR  X=192  TO  223 : PRINT@X, CHR 
$  (45)  :NEXT  X 


720  PRINT@225, "TO  LOAD  GAME  TYPE 
IN  AND  ENTER" : PRINT@257 , "POKE  2 
5, 6: NEW  <ENTER>" : PRINT@289 , "CLOA 
D  ";CHR$(34) ; "ISLAND" ;CHR$ (34) ; " 
<ENTER>" 

730  FOR  X=320  TO  351 : PRINT@X, CHR 
$(45) : NEXT  X 

740  PRINT@ 3  8 5 ," LIST  y/n" ;: INPUT 
A$ 

750  IF  A$=""  THEN  740 
7  60  IF  A$="N"  THEN  CLS : END 
770  IF  A$="Y"  THEN  790 
780  GOTO  740 

790  CLS : PRINT@43 , "VERB  LIST" 
800  FORX=64  TO  95 : PRINT@X, CHR$ ( 4 
5) :NEXT  X 

810  PRINT@97, "GO" :PRINT@107, "ON" 
: PRINT@117 , "GET" 

820  PRINT@129, "DIG" : PRINT@139 , "O 

UT" : PRINT@149 , "HIT" 

830  PRINT@161, "LOOK" : PRINT@171, " 

OPEN" : PRINT@181 , "DROP" 

840  PRINT@193 , "READ" : PRINT@203 , " 

TAKE" : PRINT@213 , "TAKE" 

850  PRINT@225 , "JUMP" : PRINT@235, " 

ROPE" :PRINT@245, "SAVE" 

860  PRINT@257 , "PUSH" : PRINT@267 , " 

SEND" : PRINT@277 , "MOVE" 

870  PRINT@289 , "CLEAR" : PRINT@299 , 

"LIGHT" : PRINT@309 , "ENTER" 

880  PRINT@321, "CLIMB" :PRINT@331, 

"REPAIR" :PRINT@ 3 41, "UNLOCK" 

890  PRINT@353, "EXAMINE" :PRINT@36 

3 , "UNLIGHT" : PRINT@373 , "TRANSMIT" 

900  PRINT@3  85, "INVENTORY" 

910  FOR  X=416  TO  447 : PRINT@X, CHR 

$(45) : NEXT  X 

920  PRINT@449 , "RUN  AGAIN  y/n";: 

INPUT  A$:IF  A$=""  THEN  920 

930  IF  A$="N"  THEN  CLS : END 

940  IF  A$="Y"  THEN  RESTORE: GOTO 

60 

950  GOTO  920 


ISLAND  2 

THEN  110 

10 

'COPYRIGHT    (C)  3/84 

90  IF  A$="Y"  THEN  170 

20 

'PHILIP  COURIE 

100  GOTO  70 

30 

•P.O.    BOX  862 

110  CLS: PRINT: PRINT"  PLEASE  ENTE 

40 

'FLORENCE,   KY  41042 

R": PRINT"  YOUR  NAME  IN  EIGHT": IN 

50 

1  (606)  525-0390 

PUT"   LETTERS  OR  LESS";PN$ 

60 

CLS 

120  IF  LEN(PN$)>8  THEN  110 

70 

PRINT  @33,"DO  YOU  WISH  TO 

PLA 

130  PRINT: PRINT"  YOU  ENTERED  ";P 

Y  A 

SAVED": INPUT"  GAME  [Y/N]" 

;A$ 

N$ 

80 

IF  A$=""  THEN70  ELSEIF  A$= 

"N" 

140  PRINT: INPUT"   IS  THIS  CORRECT 
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[Y/N]";B$ 
150  IF  B$=""  THEN  140 
160   IF  B$="N"   THEN  11)3  ELSEIF  B$ 
<>"Y"  THEN  lip 

170  DIM  QQ(6):DIM  LL(2):DIM  CA(2 
) 

180  DIM  L$(51):DIM  D$(6):DIM  MM( 
51,6) :DIM  VI$(84):DIM  II$(84):DI 
M  VI(84) 
190  GOTO5080 

200  IF  X=22  AND  TT=1  THEN  VI  (14) 
=2  2  ELSEIF  X=49  AND  TT=1  THEN  VI 
(14) =49  ELSEIF  X=51  AND  TT=1  THE 
N  VI(14)=51 

210  IF  X=21  THENGOSUB  5780 
220  CLS: PRINT  PN$M  YOU  ARE" 
2  30  PRINT  L$(X) 

2  40  PRINT: PRINT "YOU  SEE  A  WAY  TO 
GO:" 

250  FOR  Y=l  TO  6:IF  MM  (X,Y)<>0 
THEN  PRINT  D$(Y);:NEXT  Y  ELSE  NE 
XT  Y 

2  60  C=0 : PRINT : PRINT : PRINT"VISABL 
E  ITEMS: 11  :KK=1 

270  IF  X=8  OR  X=15  OR  X=24  OR  X= 

2  3  THEN  VI(19)=X:IF  X=8  OR  X=15 
OR  X=24  OR  X=23  THEN  VI(20)=X 
280  IF  X=12  OR  X=9  THEN  VI(19)=X 
290  IF  X=10  OR  X=20  OR  X=2  8  THEN 

VI(20)=X 

300  IF  X=35  OR  X=26  OR  X=41  OR  X 
=6  THEN  VI(33)=X:IF  X=35  OR  X=26 

OR  X=41  OR  X=6  THEN  VI(34)=X 
310  IF  X=42  OR  X=18  OR  X=44  THEN 

VI (34) =X: IF  X=42  OR  X=18  OR  X=4 

4  THEN  VI(70)=X 

320  IF  X=43  THEN  VI (34) =X: IF  X=4 

3  THEN  VI(70)=X 

3  30  FOR  1=1  TO  84 

340  KK$=STR$ (KK) : IF  VI(I)=X  THEN 
PRINT  KK$;">  " ;VI$ (I) :C=1:KK=KK+ 
1 

3  50  NEXT 

360  IF  C=0  THEN  PRINT"NOTHING ! " 

370  IF  X=51  GOSUB  5440 

380  IF  W=l  THEN  R=RND(3):IF  R=l 

THENPRINT: PRINT "THE  MATCH  BLEW 
OUT.":W=0 

390  IF  LT=1  THEN  OT=OT+l:IF  OT=l 

5  THENPRINT: PRINT "THE  LIGHT  FROM 
THE  TORCH  IS  GROWING  DIM." 

400  IF  OT=35  THENPRINT: PRINT "THE 
TORCH  BLEW  OUT . " : LT=3 : FOR  Z=1T0 
2000 :NEXTZ: GOTO  4600 
410  PRINT: INPUT "WHAT  NEXT";A$ 
420  IF  A$=""  THEN  410 
430  IF  A$="N"  THEN  SC=SC+l:GOTO 
1510 

440  IF  A$="S"  THEN  SC=SC+l:GOTO 


1530 

450  IF  A$="E"  THEN  SC=SC+l:GOTO 
1550 

4  60  IF  A$="W"  THEN  SC=SC+l:GOTO 
1580 

470  IF  A$="U"  THEN  SC=SC+l:GOTO 
1610 

480  IF  A$="D"  THEN  SC=SC+l:GOTO 
1640 

490  M$=LEFT$(A$,2) : IF  M$="GO"THE 
N770  ELSEIF  M$="ON"  THEN  1910 
500  M$=LEFT$ ( A$ ,  3 ) : IF  M$="GET"TH 
EN1980ELSEIF  M$="DIG"THEN4540ELS 
EIF  M$="OUT"THEN4350  ELSEIF  M$=" 
HIT"THEN2230 

510  M$=LEFT$(A$,4) :IF  M$="LOOK"T 

HEN2410ELSEIF  M$="OPEN"THEN3750E 

LSEIF  M$="DROP"THEN4000ELSEIF  M$ 

=  " READ " THEN 3930  ELSEIF  M$="TAKE" 

THEN  1950  ELSEIF  M$=" JUMP"THEN48 

50  ELSEIF  M$="ROPE"THEN4970  ELSE 

IF  M$="SAVE"  THEN  6080ELSEIF  M$= 

"PUSH"THEN2  300 

520  IF  M$="SEND"  THEN  740 

530  IF  M$="MOVE"THEN  2300 

540  M$=LEFT$ (A$, 5) : IF  M$="CLEAR" 

THEN4440ELSEIF  M$="LIGHT"THEN42  6 

0  ELSEIF  M$=" ENTER" THEN1670  ELSE 

IF  M$="CLIMB"  THEN  1860  ELSEIF  M 

$="SCORE"  THEN1660 

550  M$=LEFT$ (A$, 6) : IF  M$="REPAIR 

"THEN4190ELSEIF  M$="UNLOCK"THEN4 

100 

560  M$=LEFT$(A$,7) : IF  M$="EXAMIN 
E"THEN2420ELSEIF  M$="UNLIGHT"THE 
N4380 

570  M$=LEFT$(A$,8) : IF  M$="TRANSM 
IT"THEN  600 

580  M$=LEFT$(A$,9) : IF  M$="INVENT 
ORY"THEN2340 

590  PRINT" I  DON'T  UNDERSTAND  THA 
T  " ;PN$;".":GOTO410 
600  GOSUB  5710 
610  SC=SC+1 

620  IF  M$="LOCATION"  AND  VI(17)< 
>0  THEN  640 

630  PRINT" YOU  CAN'T  SEND  THAT.": 
GOTO  410 

640  INPUT"YOUR  LATITUDE" ;L$ 
650  IF  L$=""  THEN  620 
660  IF  L$="23.12  NORTH"  THEN  680 
670  GOTO  410 

680  INPUT"YOUR  LONGITUDE" ; L$ 
690  IF  L$=""  THEN  680 
700  IF  L$="178.00  WEST"  THEN  720 
710  GOTO  410 

720  CLS ( 3 )  : PRINT@  3 9 , "  A  VOICE  FR 
OM  THE  " ; :PRINT@71, "  RADIO  SAYS 
WERE     "; :PRINT@100,"  SENDING  A  P 
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LANE  FOR  YOU.    ";:  PRINT©  168  , 11  CON 
GRATULATIONS  "  ;  :  PRINT@199 , 11  YOU 
HAVE  COMPLETED  " ; : PRINT@230 , "  TH 
E  ISLAND  ADVENTURE  » ; : PRINT@2 66 , 
"  SUCCESSFULLY  "  ; 

725  PRINT@3  93,"  YOU  COMPLETED  " ; 
:PRINT@421,  "  THE  GAME  IN";SC;"MO 
VES  "; 

730  GOTO  730 
740  GOSUB  5550 
750  SC=SC+1 
760  GOTO  620 
770  GOSUB  5460 
780  SC=SC+1 

790  IF  M$=II$(54)   THEN  1340 
800  IF  M$=II$(49)    THEN  1300 
810  IF  M$=II$(51)    THEN  1270 
820  IF  M$=II$(4)    THEN  1220 
830  IF  M$=II$(40)   THEN  1200 
840  IF  M$=II$(39)    THEN  1180 
850  IF  M$=II$(38)   THEN  1130 
860  IF  M$=II$(41)    THEN  1090 
870  IF  M$=II$(37)   THEN  1030 
880  IF  M$=II$(21)   THEN  960 
890  IF  M$=II$(84)   THEN  1790 
900  IF  M$=II$(16)    THEN  1420 
910  IF  M$=II$(59)    THEN  1400 
920  IF  M$=II$(55)   THEN  1380 
930  IF  M$=II$(36)    THEN  990 
940  IF  M$="ROAD"  THEN  13  60 
950  GOTO  1440 

960  IF  X=l  THEN  X=50:GOTO  200 
970  IF  X=46  THEN  X=47:GOTO  200 
980  GOTO1500 

990  IF  X=4  THEN  X=5:GOTO200 
1000  IF  X=6  THEN  X=5:GOTO200 
1010  IF  X=40  THEN  X=5:GOTO200 
1020  GOTO  1500 

1030  IF  X=6  AND  QQ(5)=0  THEN  392 


1040  IF  X=6  AND  QQ(5 
:GOTO200 

1050  IF  X=5  THEN  X=6 
1060  IF  X=21  THEN  X= 
1070  IF  X=18  THEN  X= 
1080  GOTO  1500 
1090  IF  X=34  THEN  X= 
1100  IF  X=35  AND  QQ ( 
J3 

1110  IF  X=35  AND  QQ ( 
36:GOTO200 
1120  GOTO  1500 
1130  IF  X=49  THEN  X= 
1140  IF  X=44  AND  CA( 
INT" YOU  CAN'T  ";PN$: 
1150  IF  X=44  AND  CA( 
49:GOTO200 

1160  IF  X=5  THEN  X=3 
1170  GOTO  1500 


) =1  THEN  X=7 

:GOTO200 

18:GOTO200 

17:GOTO200 

35:GOTO200 
6)=0  THEN392 

6)=1  THEN  X= 


51:GOTO200 
2)<>1  THENPR 
GOTO410 
2 ) =1  THEN  X= 

8:GOTO200 


1180  IF  X=38  THEN  X=39:GOTO200 
1190  GOTO  1500 

1200  IF  X=3  THEN  X=32:GOTO200 
1210  GOTO  1500 

1220  IF  X=26  THEN  X=25:GOTO  200 
1230  IF  X=25  AND  LT=1  THEN  X=23: 
GOTO  200 

1240  IF  X=25  AND  LT=0  THEN  X=23: 
GOTO4  600 

1250  IF  X=13  AND  VI (4) =13  THEN  X 
=12:GOTO  200 
1260  GOTO  1500 

1270  IF  X=ll  AND  GT=1  AND  LT=0  T 
HEN  X=10:GOTO  4600 

1280  IF  X=ll  AND  GT=1  AND  LT=1  T 
HEN  X=10:GOTO200 
1290  GOTO  1500 

1300  IF  X=32  AND  RP=0THENPRINTPN 
$;"  YOU  FELL  THROUGH" : PRINT "A  RO 
TTEN  BOARD  IN  THE  BRIDGE .": PRINT 
"YOU  LANDED  ON  THE  ROCKS  BELOW." 
:GOTO4820 

1310  IF  X=32  AND  RP=1  THEN  X=31: 
GOTO  200 

1320  IF  X=30  THEN  X=31:GOTO200 
1330  GOTO  1500 

1340  IF  X=22  THEN  X=45:GOTO  200 
1350  GOTO  1500 

1360  IF  X=22  THEN  X=19:GOTO  200 
1370  GOTO  1500 

1380  IF  X=45  THEN  X=46:GOTO  200 
1390  GOTO  1500 

1400  IF  X=19  THEN  X=21:GOTO  200 
1410  GOTO1500 

1420  IF  VI(16)=45  THEN  X=15:GOTO 
200 

1430  GOTO  1500 

1440  IF  M$="NORTH"  THEN  1510 
1450  IF  M$="SOUTH"  THEN  1530 
1460  IF  M$="EAST"  THEN  1550 
1470  IF  M$="WEST"  THEN  1580 
1480  IF  M$="UP"  THEN  1610 
1490  IF  M$="DOWN"  THEN  1640 
1500  PRINT" YOU  CAN'T  GO  THAT  WAY 
! " :GOTO410 

1510  IF  MM(X,1)=0  THEN  GOTO  1500 
1520  IF  MM(X,1)>0  THEN  X=MM(X,1) 
:GOTO200 

1530  IF  MM(X,2)=0  THEN  GOTO  1500 
1540  IF  MM(X,2)>0  THEN  X=MM(X,2) 
:GOTO200 

1550  IF  X=49  THEN  X=51:GOTO200 
1560  IF  MM(X,3)=0  THEN  GOTO  1500 
1570  IF  MM(X,3)>0  THEN  X=MM(X,3) 
:GOTO200 

1580  IF  X=22  THEN  X=51:GOTO200 
1590  IF  MM(X,4)=0  THEN  GOTO  1500 
1600  IF  MM(X,4)>0  THEN  X=MM(X,4) 
:GOTO200 
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161)3  IF  X=51  THENPRINT"YOU  CAN'T 

THE  PIT  IS  TO  DEEP. " :GOTO410 
1620  IF  MM(X,5)=0  THEN  GOTO  1500 
1630  IF  MM(X,5)>0  THEN  X=MM(X,5) 
:GOTO200 

1640  IF  MM(X,6)=0  THEN  GOTO  1500 
1650  IF  MM(X,6)>0  THEN  X=MM(X,6) 
:GOTO200 

1660  PRINT  PN$;"  YOU  HAVE  MADE"; 
SC ; "MOVES . " : GOT04 10 
1670  GOSUB  5590 
1680  SC=SC+1 

1690  IF  M$=II$(37)   THEN  1030 
1700  IF  M$=II$(16)   THEN  1420 
1710  IF  M$=II$(4)   AND  X=26  THENP 
RINT "MAYBE  YOU  SHOULD  GO  THERE  F 
IRST." :GOTO  410 
1720  IF  M$=II$(4)   THEN  1220 
1730  IF  M$=II$(41)    THEN  1090 
1740  IF  M$=II$(51)   THEN  1270 
1750  IF  M$=II$(21)   THEN  1830 
1760  IF  M$=II$(84)    THEN  1790 


1770  PRINT  PN$"  YOU  CAN'T  ENTER 
THE": PRINT  M$;".":GOTO  410 
1780  PRINT"I  DON'T  UNDERSTAND  TH 
AT?": GOTO  410 

1790  IF  X=50  THEN  X=48:GOTO  200 
1800  IF  X=16  THEN  X=17 :VI (18) =17 
:GOTO  200 

1810  IF  X=17  AND  VI (18) =17  THEN 
X=16:GOTO  200 
1820  GOTO  1770 

1830  IF  X=50  THEN  X=48:GOTO  200 
1840  IF  X=46  THEN  X=47:GOTO  200 
1850  GOTO  1770 
1860  GOSUB  5590 


1870  SC=SC+1 

1880  IF  M$="MOUNTAIN"  AND  X=27  T 
HEN  X=26:GOTO  200 

1890  IF  M$=II$(13)   AND  TT=1  THEN 
X=2  2 : VI ( 7  4 ) =0 : VI ( 15 ) =4  9 : GOT02 00 
1900  PRINT"YOU  CAN'T  CLIMB  THE  " 
;M$:GOTO  410 
1910  GOSUB  5460 
1920  SC=SC+1 

1930  IF  M$=II$(17)  AND  VI(17)<>0 
THENPRINT"YOU  HEAR  A  VOICE  THAT 
SAYS.  WHAT  IS  YOUR  LOCATION 

.":GOTO  410 

1940  PRINT" YOU  CAN'T  TURN  THAT  O 

N.":GOTO  410 

1950  GOSUB  5550 

1960  SC=SC+1 

1970  GOTO  2000 

1980  GOSUB  5510 

1990  SC=SC+1 

2000  IF  M$=II$(27)    OR  M$=II$(21) 
OR  M$=II$(25)   OR  M$=II$(29)  OR 
M$=II$(33)   OR  M$=II$(36)   OR  M$=I 
I$(37)   OR  M$=II$(38)   OR  M$=II$(3 
9)   OR  M$=II$(40)   OR  M$=II$(41)  0 
R  M$=II$(4)    OR  M$=II$(49)    OR  M$= 
11$ (54)   OR  M$="ROAD"OR  M$=II$(57 
)   OR  M$=II$(61)  THEN2200 
2010  IF  M$=II$(69)   OR  M$=II$(55) 
OR  M$=II$(51)   OR  M$=II$(66)  AND 
X=27  OR  M$=II$(77)    OR  M$=II$(78 
)  THEN2200 

2020  IF  M$=II$(19)  OR  M$=II$(22) 
OR  M$=II$(24)  OR  M$=II$(30)  OR 
M$=II$(31)  OR  M$=II$(32)  OR  M$=I 
I$(44)  OR  M$=II$(65)  OR  M$=II$(6 
7)  OR  M$=II$(71)  OR  M$=II$(81)  T 
HEN  2  210 

2030  IF  M$=II$(43)OR  M$=II$(52)T 
HEN  2220 

2035  IF  L=5  THEN  2190 
2040  IF  M$=II$(1)   AND  VI(5)=-1  T 
HEN  VI(l)=-l:L=L+l:GOTO  2180 
2045  IF  M$=II$(1)   AND  VI(5)=X  AN 
D  VI(1)=0  THEN  VI (l)=-l:L=L+l:GO 
TO  2180 

2050  IF  M$=II$(2)   AND  VI(5)=-1  T 
HEN  VI(2)=-l:L=L+l:GOTO  2180 
2055  IF  M$=II$(2)   AND  VI(5)=X  AN 
D  VI(2)=0  THEN  VI ( 2 ) =-1 : L=L+1 : GO 
TO  2180 

2060  IF  M$=II$(5)  AND  X=48  AND  L 
L(2)=l  THEN  VI(5)=-l:L=L+l:GOT02 
180 

2070  IF  M$=II$(6)  AND  X=48  AND  L 
L(2)=l  THEN  VI(6)=-l:L=L+l:GOT02 
180 

2080  IF  M$=II$(13)   AND  X=49  AND 
TT=1  THENPRINT"THE  TREE  IS  ON  TH 
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E  OTHER  SIDE       OF  THE  PIT.   YOU  C 

AN ' T  REACH  IT.":GOTO410 

2090  IF  M$=II$(13)   AND  X=51  AND 

TT=1  THENPRINT"THE  TREE  LIMB  IS 

TO  HIGH  TOO         REACH. ":GOT04 10 

21^  IF  M$=II$(13)   AND  TT=1  THEN 

VI(13)=-1:VI(14)=0:VI(76)=X:TT=0 

:L=L+1:GOTO2180 

2110  II$=RIGHT$(II$/LEN(II$) ) 

2120  IF  M$=II$(19)   AND  VI(19)=X 

THEN  2210 

2130  IF  M$=II$(20)   AND  VI(20)=X 

THEN  2210 

2140  FOR  I=1T084 

2150  IF  L=5  THEN  2190  ELSE  IF  M$ 
=11$ (I)   AND  VI(I)=X  THEN  L=L+1:V 
I(I)=-l:GOTO  2180 
2160  NEXT  I 

2170  PRINT  "I  DON'T  SEE  IT  HERE. 
":GOTO  410 

2180  PRINT"OK  ";PN$:GOTO410 
2190  PRINT" YOU  CAN'T  CARRY  ANY  M 
ORE! ! " :GOTO  410 

2200  PRINT "ARE  YOU  KIDDING  ME  "; 
PN$;"?":GOTO410 

2210  PRINTPN$;"  YOU  CAN'T  GET  TH 

E" : PRINTM$ ; " . " : GOTO410 

2220  PRINT "THE  ";M$"  IS  TO  LARGE 

":PRINT"TO  GET  " ;PN$ :GOTO410 

2230  GOSUB  5510 

2240  SC=SC+1 

2250  IF  M$=II$(65)   AND  X=50  OR  X 

=35  OR  X=6  THEN  2290 

2260  IF  M$=II$(24)   THEN  2280 

2270  PRINT" DON ' T  BE  MEAN!": GOTO 

410 

2280  PRINT "YOU  DIDN'T  EVEN  SCRAC 
H  IT.":GOTO  410 

2290  PRINT "YOU  MADE  A  LARGE  DENT 

IN  IT.": GOTO  410 
2300  GOSUB  5550 
2310  SC=SC+1 

2320  IF  X=17  AND  M$=II$(81)  THEN 
PRINT" YOU  FOUND  SOMETHING. ": VI (1 
8)=17:GOTO410 

2330  PRINT" YOU  CAN'T  MOVE  THE  "  ; 
M$;". ":GOTO410 

2340  KK=l:CLS: PRINT  PN$;"  YOU  AR 

E  CARRYING:" 

2350  C=0:FOR  1=1  TO  84 

2360  IF  VI (I) =-1  THEN  C=l 

2370  KK$=STR$ (KK) : IF  VI(I)=-1  TH 

ENPRINT  KK$;">  " ;VI$ (I) : KK=KK+1 : 

C=l 

2380  NEXT 

2390  IF  C=0  THEN  PRINT " NOTH I NG " 
2400  GOTO  410 
2410  GOTO200 
2420  GOSUB  5670 


2430  SC=SC+1 
2440  IF  M$=II$ 
50  THEN3080 
2450  IF  M$=II$ 


0 

2460 
0 

2470 
2480 
2490 
2500 
2510 
40 

2520 
50 

2530 
2540 
20 

2550 
20 

2560 
2570 
2580 
3200 
2590 
3170 

2600  IF  M$=II$ 
A(2)O1THEN3180 
2610  IF  M$=II$ 
(2)=1THEN3190 
2620  IF  M$=II$ 
IF  M$=II$ 
IF  M$=II$ 
IF  M$=II$ 


IF  M$=II$ 

IF  M$=II$ 
IF  M$=II$ 
IF  M$=II$ 
IF  M$=II$ 
IF  M$=II$ 

IF  M$=II$ 

IF  M$=II$ 
IF  M$=II$ 

IF  M$=II$ 

IF  M$=II$ 
IF  M$=II$ 
IF  M$=II$ 

IF  M$=II$ 


IF  M$=II$ 
IF  M$=II$ 
IF  M$=II$ 


2630 
2640 
2650 
50 

2660  IF  M$=II$ 
30 

2670 
2680 
2690 
30 

2700  IF  M$=II$ 
40 

2710  IF  M$=II$ 
40 

2720  IF  M$=II$ 
(1)=0THEN3450 
2730  IF  M$=II$ 
(1)=1THEN3030 
2740  IF  M$=II$ 
IF  M$=II$ 
IF  M$=II$ 
IF  M$=II$ 
IF  M$=II$ 
IF  M$=II$ 
THEN3070 
2800  IF  M$=II$ 
THEN3070 
2810  IF  M$=II$ 


2750 
2760 
2770 
2780 
2790 


21 

21 

21 

22 
24 
25 
31 
51 

51 

3*5 
35 

42 

36 
37 
38 

38 

38 

38 


AND  X=l  OR  X= 

ANDX=4  6THEN309. 

ANDX=47THEN309 

THEN3130 
THEN3340 
THEN3100 

THEN  3470 
AND  GT=0THEN30 

AND  GT=1THEN30 

THEN3110 

AND  X=14THEN31 

AND  X=34THEN3  2 

THEN3150 
THEN3160 
AND  X=49  THEN 

AND  X=22  THEN 

AND  X=44AND  C 

AND  X=44AND  CA 


38)THEN3170 
40)THEN3210 
5) THEN  3390 
43) AND  X=3  6THEN3  2 

52 


AND  X=29THEN35 

THEN  3280 
THEN3  330 
AND  RP=0THEN32 

AND  RP=1THEN32 

AND  X=38THEN34 

AND  X=39AND  CA 

AND  X=39AND  CA 

THEN3460 
THEN3490 
THEN3500 
THEN3  510 
THEN3520 
AND  VI(23)<>-1 


26)AND  VI(26)<>-1 
7 ) AND  VI(7)<>-1TH 
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EN3070 

2820  IF  M$=II$(23)AND  VI(23)=-1T 
HEN3030 

2830  IF  M$=II$(7)AND  VI(7)=-1THE 
N3030 

2840  IF  M$=II$(26)AND  VI(26)=-1T 
HEN3060 

2850  IF  M$=II$(10)THEN3560 
2860  IF  M$=II$(11)THEN3570 
287)3  IF  M$=II$(54)THEN3580 
28b0  IF  M$=II$(61)THEN3590 
2890  IF  M$=II$(4)  AND  X=25  OR  M$ 
=11$  (4)  AND  X=26  THEN  3600 
2900  IF  M$=II$(71)  AND  VI(12)<>- 
1  THEN3610 

2910  IF  M$=II$(71)   AND  VI(12)=-1 

THEN3620 
2920  IF  M$=II$(12)THEN3630 
2930  IF  M$="PIT"  AND  X=49  AND  VI 
(75)<>0  THEN  3640 

2940  IF  M$="PIT"  AND  X=49  AND  VI 
(75) =0  THEN  3650 

2950  IF  M$="PIT"  AND  X=22  AND  VI 
(75)<>0  THEN  3670 

2960  IF  M$="PIT"  AND  X=22  AND  VI 
(75)=0THEN  3660 
2970  IF  M$=II$(76)THEN3680 
2980  IF  M$=II$(60)THEN3690 
2990  IF  M$=II$(81)THEN3720 
3000  IF  M$=II$(83)THEN3730 
3010  IF  M$="FLOOR"  AND  VI(46)=0 
AND  X=7  THEN  3740 

3020  PRINT"I  SEE  NOTHING  SPECIAL 
.":GOTO410 

3030  PRINT "THERE'S  SOMETHING  WRO 
TE  ON  IT. " :GOTO410 
3040  PRINT "THE  ENTRANCE  IS  CAVED 
IN  WITH" : PRINT" DIRT  AND  SMALL  R 
OCKS.":GOTO410 

3050  PRINT"IT'S  VERY  DARK  AND  DA 
NGEROUS         LOOKING ! 11 :  GOTO 4 10 
3060  PRINT"OUCH! !":PRINT"A  ";VI$ 
(3);"  PINCHED  YOU. ": VI (3) =2 : GOTO 
410 

3070  PRINT" YOU  DON'T  HAVE  IT!":G 
OTO  410 

3080  PRINT"  IT'S  A  SMALL  SINGLE 
ENGINE" : PRINT "PLANE.   IT  LOOK'S  L 
IKE  IT'S  BEEN" : PRINT "HERE  AWHILE 
.":GOTO410 

3090  PRINT"IT'S  A  JAPANESE  ZERO. 
":GOTO410 

3100  PRINT"THE  SAILBOAT  IS  DESTR 
OYED":GOTO410 

3110  PRINT"IT'S  VERY  BEAUTIFUL." 
:GOTO410 

3120  PRINT "THEIR  BIRD  OF  PARADIS 

E  FLOWERS" : GOTO 4 10 

3130  IF  X=48  THENPRINT "IT'S  BROK 


EN.":GOTO410 

3140  PRINT "THE  DIAL  IS  SET  TO  13 
0  MHZ. " :GOTO410 

3150  PRINT" IT  LOOKS  OLD  AND  ABAN 
DON.":GOTO410 

3160  PRINT"IT'S  LARGE  AND  MADE  O 
UT  OF  PALM  LEAVES. ":GOT04 10 
3170  PRINT"IT'S  JUST  A  SMALL  PAT 
H.":GOTO410 

3180  PRINT "THE  PATH  IS  OVERGROWN 
WITH  DENSE  FOLIAGE .": GOT04 

10 

3190  PRINT"IT'S  A  SMALL  CLEARED 

JUNGLE  PATH . " : GOT04 10 

3200  PRINT"YOU  DISCOVER  A  DEEP  P 

IT.":GOTO410 

3210  PRINT"IT'S  VERY  ROCKY.": GOT 
0410 

3220  PRINT "THE  FLOWERS  ARE  LARGE 

AND  RED. ":GOTO410 
32  30  PRINT" IT  LOOK'S  DANGEROUS  " 
;PN$: PRINT" SOME  OF  THE  BOARDS  AR 
E  ROTTEN! " :GOTO410 

3240  PRINT"IT'S  SAFE  AND  REPAIRE 
D.":GOTO410 

3250  IF  LL(1)=0  THENPRINT " THE  CH 

EST  IS  LOCKED! ":G0T04 10 

3260  IF  LL(1)=1  AND  QQ(3)=0  THEN 

PRINT"IT'S  NOT  OPEN. " : GOTO410 

3262  IF  VI(9)=36  THEN  3270 

3265  IF  VI(9)<>0  THEN  PRINT "THE 

CHEST  IS  EMPTY.": GOTO  410 

3270  IF  LL(1)=1  AND  QQ(3)=1  THEN 

PRINT "THERE  IS  A  MACHETE  IN  IT." 

:VI.(9)=3  6:GOTO410 

3280  IF  X=36  AND  YY=0  THENPRINT" 

THEIR 'S  A  SET  DOG  TAGS  ON  IT.":V 

I(7)=36:YY=l:GOTO  410 

3  2  90  IF  X=36  AND  YY=1  THENPRINT" 

THERE'S  A  COIL  OF  ROPE  ON  IT.":Y 

Y=2:VI(13)=36:GOTO  410 

3  300  IF  X=36  AND  YY=2  THENPRINT" 

IT'S  A  LARGE  TABLE.": GOTO  410 

3310  IF  X=17  AND  VI (17) =17  THENP 

RINT"IT'S  JUST  A  SMALL  TABLE. ":G 

OTO410 

3320  IF  X=17  THENPRINT "YOU  FOUND 

SOMETHING . " : VI ( 17 ) =17 : G0T04 10 
3330  PRINT"IT'S  A  STACK  OF  1X6  P 
INE  LUMBER" : G0T04 10 
3340  IF  LL(2)=0  THEN  PRINT"THE  " 
;II$(24);"  IS  LOCKED. " :GOTO  410 
3350  IF  QQ(1)=0  THENPRINT" YOU  HA 
VE  TO  OPEN  IT  FIRST. " : G0T04 10 
3360  IF  VI (6) =0  THENPRINT "THERE' 
S  A  BOX  OF  MATCHES  IN  IT.":G0T04 
10 

3370  IF  VI (5) =0  THENPRINT "THERE' 
S  A  TOOLBOX  IN  IT.":GOTO410 
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3380  PRINT "IT'S  EMPTY. " :G0T04 10 
339)3  IF  QQ(2)=0  THENPRINT 11  YOU  HA 
VE  TO  OPEN  IT  FIRST. " : GOTO  410 
3400  IF  QQ(2)=1  AND  VI(1)=0  AND 
VI (2) =0  THENPRINT "THERE'S  A  HAMM 
ER  AND  NAILS  IN  IT.":GOT041 

3410  IF  QQ(2)=1  AND  VI(1)=0  THEN 
PRINT "THERE ' S  A  HAMMER  IN  IT.":G 
OTO410 

3420  IF  QQ(2)=1  AND  VI(2)=0  THEN 
PRINT "THERE ' S  NAILS  IN  IT.": GOTO 
410 

3430  PRINT"IT'S  EMPTY .": GOT04 10 
3440  PRINT"IT'S  TOO  FAR  AWAY  TO 
TELL  ANYTHING" : GOT04 10 

3450  PRINT"IT'S  OVERGROWN  WITH  F 
OLIAGE" : GOT04 10 

3460  PRINT"IT  LOOK'S  HUMAN  ";PN$ 
:GOTO410 

3470  IF  X=13  THENPRINT" YOU  FOUND 

SOMETHING . " : VI ( 4 ) =13 : GOT04 10 
3480  GOTO  3020 
3490  IF  VI(8)<>0  THEN  3020 
3495  PRINT "YOU  HAVE  FOUND  SOMETH 
ING" : VI ( 8 ) =3  9 : GOT04 10 
3500  PRINT"IT'S  A  MILITARY  CAMP. 
":GOTO410 

3510  PRINT"IT'S  A  JAPANESE  FLAG. 
":GOTO410 

3520  PRINT"HE  IS  A  JAPANESE  SOLD 
IER. " : PRINT" AND  HE  SHOUTS  DO  NOT 

ENTER. ":GOTO410 
3  530  IF  QQ(4)=0THENPRINT"IT'S  NO 
T  OPEN. ":GOTO410 

3540  IF  VI(10)=-1  THENPRINT" IT ' S 

EMPTY. " :GOT04 10 
3550  IF  QQ(4)=1  THENPRINT" YOU  FO 
UND  A  SACK  OF  PEARLS .": VI (10) =X: 
GOTO410 

3  560  PRINT "THE  PEARLS  ARE  LARGE 

AND  BLACK. " :GOT04 10 

3570  PRINT"IT'S  CARVED  FROM  IVOR 

Y":GOTO410 

3580  PRINT"IT'S  AN  OLD  MILITARY 
AIRFIELD . " : GOT04 10 

3590  PRINT"THE  RIVER  IS  WIDE  AND 

HAS  "; : PRINT" LARGE  ROCKS 

IN  IT.":GOTO410 

3  600  PRINT "THE  CAVE  IS  VERY  DARK 
.":GOTO410 

3  610  PRINT "THE  HERMIT  LOOKS  VERY 

OLD.": PRINT "HE  SAYS,   TAKE  THIS 
CHARM  THE         SERPENTS  FEAR  IT.  G 
0  NOW  AND         BEWARE. " : VI (12) =33: 
GOTO410 

3  620  PRINT"THE  HERMIT  LOOKS  VERY 

OLD. " :GOTO410 
3  630  PRINT "THE  CHARM  IS  MADE  OF 


GOLD  AND  HAS  A  SERPENT  ON  IT." 
:GOTO410 

3640  PRINT "THE  PIT  HAS  THREE  SNA 

KES  IN  IT.":GOTO410 

3650  PRINT "THE  PIT  IS  VERY  DEEP. 

":GOTO410 

3  660  PRINT"THE  PIT  IS  VERY  DEEP 
AND  BLOCKS  A  PATH  TO  THE  WEST . " : 
GOTO410 

3  670  PRINT "THE  PIT  BLOCKS  A  PATH 
TO  THE         WEST  AND  HAS  THREE  SN 
AKES  IN  IT.":GOTO410 
3680  PRINT"IT'S  A  LARGE  TREE  LIM 
B  THAT  EXTENDS  OVER  THE  PIT. 


":GOTO410 

3690  IF  X=45  AND  VI(16)=45  THEN 
3020 

3700  IF  X=45  THENPRINT " YOU  FOUND 

SOMETHING . " : VI ( 16 ) =4  5 : GOT04 10 
3710  GOTO  3020 

3720  PRINT"IT'S  A  LARGE  WOODEN  B 
OX. " :GOTO410 

3730  PRINT "THE  CRATE  IS  EMPTY.": 
GOTO410 

3740  PRINT"YOU  FOUND  SOMETHING." 
:VI(46)=7:GOTO410 
3750  GOSUB  5550 
3760  SC=SC+1 

3770  IF  M$=II$(24)  AND  LL(2)=0  T 
HEN  3890 

3780  IF  M$=II$(24)   AND  VI(8)=-1 
AND  LL(2)=0  THENPRINT " YOU  HAVE  T 
0  UNLOCK  IT  FIRST.": GOTO  410 
3790  IF  M$=II$(24)   AND  LL(2)=1  T 


285 


HEN  QQ(1)=1:VI(24)=0:VI(64)=48:G 
OTO  3900 

38J3^  IF  M$=II$(5)THEN  QQ(2)=l:GO 
TO3900 

3810  IF  M$=II$(43)   AND  X=29  THEN 

QQ(4)=l:GOTO  3900 
3820  IF  M$=II$(43)   AND  X=36  AND 
LL(1)=0  THEN  3890 

3830  IF  M$=II$(43)   AND  X=36  AND 
LL(1)=1  THEN  QQ(3)=l:GOTO  3900 
3840  IF  M$=II$(52)   AND  VI(8)<>-1 

THEN  4810 
3850  IF  M$=II$(52)   AND  VI (8)=-l 
AND  X=3  6  THEN  QQ(4)=l:GOTO  3900 
3860  IF  M$="DOOR"  AND  X=6  THEN  Q 
Q(5)=l:GOTO3900 

3870  IF  M$="DOOR"  AND  X=35  THEN 
QQ(6)=l:GOTO  3900 

3880  PRINT"YOU  CAN'T  OPEN  THAT!" 
.•GOTO  4 10 

3890  PRINT "THE  ";M$;"  IS  LOCKED. 
":GOTO410 

3900  PRINT"OK  "; PN$ : PRINT "THE  "M 

$"  IS  OPEN.":GOTO410 

3910  PRINT" IT'S  NOT  OPEN":GOT041 

3920  PRINT "THE  DOOR  IS  CLOSED.": 
GOTO 4 10 

3930  GOSUB  5550 
3940  SC=SC+1 

3950  IF  M$=II$(23)AND  VI(23)<>-1 
THEN3070ELSEIF  M$=II$ ( 23 ) AND  VI ( 
23)=-lTHEN3990 

3960  IF  M$=II$(7)  THENPRINT"NAME 
:  JT  SER#1242  USAF" :GOTO410 
3970  IF  M$=II$(39)THENPRINT"JT": 
PRINT: PRINT" IT  LOOKS  LIKE  IT  WAS 

WROTE  IN  BLOOD. " :GOT04 10 

3980  PRINT"YOU  CAN'T  READ  THAT." 
:GOTO410 

3990  PRINT"  THE  LOG  BOOK  OF  FLIG 

HT  Z104": PRINT"  PLANE  OUT  OF  FUE 

L.": PRINT"  GOING  TOO  LAND  ON  ISL 

AND.": PRINT"  2  3.12  NORTH  LATITUD 

E  BY": PRINT"   178.00  WEST  LONGITU 

DE.": PRINT"  JT  2/14/41" : GOTO410 

4000  GOSUB  5550 

4010  SC=SC+1 

4020  FOR  1=1  TO  84 

4030  IF  VI (I) =-1  THEN  4060 

4040  NEXT  I 

4050  PRINT "YOU  DON'T  HAVE  THE  " ; 

M$;".": PRINT" CHECK  YOUR  inventor 

y  ";PN$;".":GOTO  410 

4060  FOR  1=1  TO  84 

4070  IF  M$=II$(I)   THEN  L=L-1:VI( 

I)=X:GOTO  2180 

4080  NEXT  I 

4090  GOTO  4050 


4100  GOSUB  5630 
4110  SC=SC+1 

4120  IF  M$=II$(43)  AND  VI(8)<>-1 
THEN  4810 

4130  IF  M$=II$(43)   AND  VI(8)=-1 
THEN  LL(l)=l:GOTO  4170 
4140  IF  M$=II$(24)   AND  VI(8)<>-1 
THEN  4810 

4150  IF  M$=II$(24)   AND  VI (8) =-1 

THEN  LL(2)=l:GOTO  4170 

4160  PRINT "YOU  CAN'T  UNLOCK  THAT 

.":GOTO410 

4170  PRINT"OK  ";PN$ 

4180  PRINT "THE  ";M$;"  IS  UNLOCKE 

D.":GOTO410 

4190  GOSUB  5630 

4200  SC=SC+1 

4210  IF  M$=II$(49)   AND  VI(1)<>-1 
AND  VI(2)<>-1  AND  VI(45)<>-1  TH 
EN4810 

4220  IF  M$=II$(49)   AND  VI(1)=-1 
AND  VI (2) =-1  AND  VI(45)<>-1  THEN 
PRINT"YOU  HAVE  NO  LUMBER. ": GOTO 4 
10 

4230  IF  M$=II$(49)  AND  VI(1)<>-1 
AND  VI(2)<>-1  AND  VI (45) =-1  THEN 
PRINT" YOU  HAVE  NO  TOOLS .": GOT041 

4240  IF  M$=II$(49)   AND  VI(1)=-1 

AND  VI(2)=-1  THEN  RP=1 : VI (2 ) =0 : V 

I ( 4  5 ) =0 : L=L-2 : GOT02 180 

4250  PRINTPN$;"  YOU  CAN'T  REPAIR 

" : PRINT "THE  " ;M$ ; " . " :GOTO410 

4260  GOSUB  5590 

4270  SC=SC+1 

4280  IF  M$=II$(46)  AND  VI(46)<>- 
1THEN  4050 

4290  IF  M$=II$ (46)AND  VI(46)=-1A 
ND  VI(6)O-1THEN4810 
4300  IF  M$=II$(46)AND  VI(46)=-1A 
ND  VI(6)=-1THEN  LT=1 : GOT04 340 
4310  IF  M$="MATCH"  AND  VI(6)<>-1 

THEN  4050 
4320  IF  M$="MATCH"  AND  VI (6) =-1 
THEN  W=l:GOTO  4340 
4330  PRINT"YOU  CAN'T  LIGHT  THAT" 
:GOTO410 

4340  PRINT"OK  ";PN$;"  THE  ";M$;" 

IS  LIT. ":GOTO410 
4350  GOSUB  5510 
4360  SC=SC+1 
4370  GOTO  4400 
4380  GOSUB  5670 
4390  SC=SC+1 

4400  IF  M$= "MATCH"  AND  VI (6) =-1 
THEN  W=0:PRINT"OK  THE  MATCH  IS 
OUT.":GOTO410 

4410  IF  M$=II$(46)  AND  VI(46)=-1 
AND  X=8  OR  X=9  OR  X=10  OR  X=20  0 
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R  X=28  OR  X=29  OR  X=23  OR  X=24  O 

R  X=33THEN  LT=0 : GOTO4600 

442^  IF  M$=II$(46)   AND  VI (46) =-1 

THEN  LT=0:  PRINT  "OK  THE  TORCH  IS 

OUT .  "  :  GOTO410 
4430  PRINT"YOU  CAN'T  UNLIGHT  THA 
T.":GOTO410 
4440  GOSUB  5590 
4450  SC=SC+1 

4460  IF  M$= " FOLIAGE " ANDX=3 9THEN 
M$=II$ (39) 

4470  IF  M$=" FOLIAGE "AND  X=44THEN 

M$=II$ (38) 
4480  IF  M$="ALTAR"ANDVI(9)<>-1TH 
EN4810ELSEIF  M$="ALTAR"ANDVI ( 9 ) = 
- 1THENCA ( 1 ) =1 : GOT04  530 
4490  IF  M$="TUNNEL"  AND  X=ll  AND 

VI(50)=-1  THEN  GT=l:GOTO  4530 
4500  IF  M$=" TUNNEL"  AND  X=ll  AND 

VI(50)<>-1  THEN  4590 
4510  IF  M$=II$(38)AND  VI(9)<>-1T 
HEN4810  ELSEIF  M$=II$(38)   AND  VI 
(9)=-lTHEN  CA(2)=1:VI(72)=0:VI(7 
3)=44:GOTO4530 

4520  PRINT "YOU  CAN'T  CLEAR  THAT. 
":GOTO410 

4530  PRINT"OK  " ; PN$ : PRINT"THE  " ; 
M$;"  IS  CLEARED. " :GOT04 10 
4540  GOSUB  5510 
4550  SC=SC+1 

4560  IF  M$=II$ (51) AND  X=ll  AND  V 

I(50)<>-1  THEN  4590 

4570  IF  M$=II$ (51) AND  X=ll  AND  V 

I(50)=-l  THEN  GT=1: PRINT "THE  ENT 

RANCE  IS  CLEAR. ":GOT04 10 

4  580  PRINT" YOU  CAN'T  DIG  THAT.": 

GOTO410 

4590  PRINT "YOU  HAVE  NO  WAY  TO  DO 

THAT.": GOTO  410 
4  600  CLS : PRINTPN$ ; "  YOU  ARE:" 
4610  IF  X=10  THENPRINT" IN  A  VERY 

DARK  TUNNEL!"  ELSEPRINT"IN  A  VE 
RY  DARK  CAVE!" 

4620  PRINT: INPUT"WHAT  NEXT";A$ 
4630  M$=LEFT$(A$,4) : IF  M$="LOOK" 
THEN  4670  ELSEIF  M$="HELP"  THEN 
4750 

4640  M$=LEFT$(A$,5) :IF  M$="LIGHT 
"THEN  4680 

4650  M$=LEFT$(A$,2) :IF  M$="GO"  T 

HEN  4760 

4660  GOTO  4770 

4  670  PRINT" IT'S  TO  DARK  TO  SEE!" 
:GOTO4620 

4680  M$=RIGHT$ (A$,LEN(A$) -5) : IF 
M$=""  THENPRINT "LIGHT  WHAT?" : GOT 
04620 

4690  M$=RIGHT$ (A$,LEN(A$) -6) 
4700  IF  M$="TORCH"  AND  LT=3  THEN 


PRINT "YOU  CAN  NOT  LIGHT  YOUR  TOR 
CH        AGAIN.": GOTO  4620 
4710  IF  M$="TORCH"  AND  VI (6) =-1 
AND  VI (46) =-1  THEN  LT=1 : D=0 : GOTO 
200 

4720  IF  M$=" TORCH" AND  VI(6)<>-1 
AND  VI(46)O-lTHENPRINT"Y0U  HAVE 

NO  WAY  TO  DO  THAT !": G0T04 620 
4730  IF  M$="MATCH"  AND  VI(6)<>-1 

THEN  4620 
4740  IF  M$="MATCH"  AND  VI (6) =-1 
THENPRINT"THE  LIGHT  FROM  THE  MAT 
CHE  IS         TO  DIM  TOO  SEE  ANY  THI 
NG.":GOTO4620 

4750  PRINT"I'M  SCARED  ";PN$;"!": 
GOTO4620 

4760  D=D+1:GOTO4780 

4770  PRINT" I  DON'T  UNDERSTAND  TH 

AT!":D=D+1 

4780  IF  D=l  THENPRINT "IT'S  VERY 

DARK  IN  HERE!  ".-GOTO4620 

4790  IF  D=2  THENPRINT " OUCH! " : PRI 

NT" YOU  BUMPED  YOUR  HEAD . " : G0T04 6 

20 

4800  IF  D=3  THENPRINT"OH  NO  ";PN 
$: PRINT" YOU  FELL  AND  BROKE  YOU  N 
ECK! ! ":GOTO4820 

4810  PRINT "YOU  HAVE  NO  WAY  TO  DO 

THAT.": GOTO  410 
4820  INPUT"  ANOTHER  GAME  [Y/N]"; 
B$ 

4830  IF  B$=""THEN4820 

4840  IF  B$="Y"THEN  5030  ELSE  IF 

B$="N"  THENEND : G0T04 820 

4850  GOSUB  5550 

4860  SC=SC+1 

4870  IF  M$="PIT"AND  X=49THEN4900 
4880  IF  M$="PIT"AND  X=22THEN4930 
4890  PRINT "YOU  CAN'T  JUMP  THAT." 
:GOTO410 
4900  J=RND(2) 

4910  IF  J=l  THEN  X=51: GOSUB  5750 
.'GOTO200 

4920  X=22: GOSUB  5750:GOTO200 
4930  J=RND(5) 

4940  IF  J=l  THEN  X=51: GOSUB  5750 
:GOTO  200 

4950  IF  J>1  THEN  X=49: GOSUB  5750 
:GOTO  200 
4960  GOTO  200 
4970  GOSUB  5550 
4980  SC=SC+1 

4990  IF  M$="TREE"  THEN  M$="LIMB" 
5000  IF  M$=II$(76)   AND  VI(13)=-1 
THEN  TT=l:VI(13)=0:L=L-l:VI(76) 
=0:GOTO2180 

5010  IF  M$=II$(76)   AND  X=51  AND 
VI(13)<>-1  THENPRINT" YOU  HAVE  NO 
WAY  TO  DO  THAT. ": GOTO 4 10 
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5020  PRINT"YOU  CAN'T  ROPE  THAT." 
:GOTO410 

5030  VI(4)=0:GT=0:CA=0:LT=0:D=0: 
PC=0 :  RP=0 :  TT=0 :  W=0 :  OT=0 :  SC=0 :  L= 
0 : YY=0 

5040  FOR  X=l  TO  10:VI(X)=0:NEXT 
X 

5045  VI(12)=0:VI(13)=0:VI(46)=0 
5050  FOR  X=l  TO  6 : QQ (X) =0 : NEXT  X 
5060  FOR  X=l  TO  2 : LL (X) =0 : NEXT  X 
5070  GOTO  5080 

5080  DATA  STANDING  IN  THE  MIDDLE 
OF  A  LARGE  OPEN  FIELD., STAN 

DING  ON  A  VERY  LONG  AND  SAND 
Y  BEACH . , STANDING  IN  A  JUNGLE  CL 
EARING ., STANDING  IN  A  GRASSY  FIE 
LD., STANDING  IN  THE  MIDDLE  OF  AN 

OLD  NATIVE  VILLAGE. 
5090  DATA  STANDING  AT  THE  DOOR  W 
AY  OF  AN  OLD  GRASSY  HUT., IN  A  V 
ERY  OLD  HUT  WITH  A  DIRT  FLOOR. 
, STANDING  INSIDE  A  TUNNEL. , STAND 
ING  INSIDE  A  TUNNEL. 


5100  DATA  STANDING  INSIDE  A  VERY 
LONG  TUNNEL. , INSIDE  A  SMALL 

CAVE., INSIDE  A  SMALL  CAVE., AT  T 
HE  END  OF  A  PATH. , AT  A  JUNGLE  PA 
TH., INSIDE  A  NARROW  PASSAGEWAY. 
5110  DATA  AT  THE  END  OF  A  PASSAG 
EWAY ., STANDING  IN  A  DESTROYED 

SUPPLY  HUT ., STANDING  OUTS I 
DE  OF  A  DESTROYED  SUPP 

LY  HUT., AT  A  DIRT  ROAD. , STANDING 

INSIDE  A  TUNNEL., AT  A  MILITARY 
POST. 

5120  DATA  AT  A  SMALL  PATH., STAND 
ING  INSIDE  A  LARGE  CAVE . , STANDIN 
G  IN  A  SMALL  TUNNEL. , STANDING  AT 
THE  ENTRANCE  OF  A       LARGE  CAVE. 


, STANDING  AT  THE  TOP  OF  A  GREAT 
MOUNTAIN. 
5130  DATA  STANDING  AT  THE  BASE  O 
F  A  GREAT  MOUNTAIN. , STANDING  INS 
IDE  A  TUNNEL. , STANDING  INSIDE  A 
TUNNEL. , STANDING  ON  THE  BANK  OF 
A  DEEP     RIVER. , STANDING  ON  AN  OL 
D  BRIDGE. 

5140  DATA  STANDING  AT  THE  WEST  B 
ANK  OF  A  DEEP  RIVER. , STANDING  A 
T  THE  END  OF  A  SMALL  TUNNEL., ST 
ANDING  AT  THE  EDGE  OF  A  SMALL  AN 
D  BEAUTIFUL  WATERFALL. , STANDING 
AT  THE  DOORWAY  OF  A  SMALL  SHA 
CK., STANDING  INSIDE  A  SMALL  SHAC 
K. 

5150  DATA  STANDING  ON  A  JUNGLE  P 
ATH. , STANDING  ON  A  SMALL  JUNGLE 

PATHWAY . , AT  THE  FOOT  OF  A  S 
TONE  ALTAR. , STANDING  IN  THE  MIDD 
LE  OF  A  LARGE  CLEARING  IN  TH 

E  JUNGLE. 

5160  DATA  STANDING  ON  A  JUNGLE  P 
ATH. , STANDING  ON  A  JUNGLE  PATH., 
STANDING  ON  A  JUNGLE  PATH., STAND 
ING  ON  A  JUNGLE  PATH. , STANDING  A 
T  THE  EDGE  OF  AN  OLD  AIRFIELD. , 
STANDING  ON  A  RUNWAY . , AT  A  DEMOL 
ISHED  AIRPLANE. , INSIDE  A  CRASHED 

AIRPLANE . 
5170  DATA  STANDING  ON  A  JUNGLE  P 
ATH. , STANDING  OUTSIDE  OF  A  SMALL 
AIRPLANE. , "INSIDE  A  DEEP  PI 
T,  IN  WHICH  YOU  HAVE  JUST  FELL  I 
NTO .  " 

5180  FOR  X=l  TO  51 : READ  L$(X):NE 
XT  X 

5190  DATA  <north>,<south>,<east> 

, <west> , <up> , <down> 

5200  FOR  Y=1T06:READ  D$(Y):NEXT 

Y 

5210  DATA  2,0,3,0,0,0,14,1,37,0, 

0,0,0,34,0,1,0,0,0,0,0,37,0,0,40 

,4,0,0,0,0,0,0,5,0,0,0,0,6,0,0,0 

,0,9,0,0,28,0,0,10,8,0,20,0,0 

5220  DATA  11,9,0,0,0,0,0,0,0,0,1 

2,0,0,0,0,0,13,11,0,0,0,14,0,0,0 

,2,13,0,0,0,16,0,0,0,45,0,0,15,0 

,0,0,0 

5230  DATA  0,18,0,0,0,0,0,21,0,0, 
0,0,0,0,0,22,0,0,0,28,9,0,0,0,0, 
19,0,0,0,0,0,0,19,51,0,0,0,25,0, 
0,0,24 

5240  DATA  33,0,0,0,23,0,0,26,0,0 

,0,0,0,0,0,0,0,27,0,0,0,30,0,0,2 

0,29,8,0,0,0,28,0,0,0,0,0,0,0,27 

,0,0,0,0,0,30,32,0,0 

5250  DATA  0,0,0,3,0,0,0,24,0,0,0 

,0,3,0,0,0,0,0,0,0,34,0,0,0,35,0 
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,0,0, 0,0, 0,0,4, 2, 0,0, 0,0, 0,5,0,0 
5260  DATA  0  , 0  , 0  ,  38  , 0  ,  0  ,  41 ,  0  , 0  ,  0  , 
0,0,43,40,42,0,0,0,44,0,0,41,0,0 
,0, 41 ,44,0 ,0,0,0, 42 ,0,43,0,0,0 ,2 
2,0,0,0,0,0,45,0,0,0,0,0,46,0,0, 
0,0,0,0,50,0,0,0,0,44,0,0,0,0,0, 
0,1,0,0,0 

5270  DATA  0,0,0,0,22,0 

5280  FOR  X=l  TO  51: FOR  Y=l  TO  6: 

READ  MM(X,Y):NEXT  Y,X 

5290  DATA  HAMMER, HAMMER, 0 , NAILS , 

NAILS, 0, LARGE  CRAB , CRAB , 0 , A  SMAL 

L  CAVE, CAVE, 0, TOOLBOX, TOOLBOX, 0, 

A  BOX  OF  MATCHES , MATCHES , 0 , A  SET 

OF  DOG  TAGS , TAGS , 0 , KEYS  ON  A  CH 
AIN,KEYS,0,A  MACHETE , MACHETE , 0 
5300  DATA  A  SACK  OF  PEARLS , PEARL 
S,0,AN  IVORY  STATUE, STATUE, 17, A 
SMALL  GOLD  CHARM , CHARM , 0 , A  COIL 
OF  ROPE , ROPE , 0 , A  TREE  LIMB  WITH 
A  ROPE  AROUND  IT . , TREE , 0 

,A  LARGE  PIT  THAT  BLOCKS  A 

PATH  TO  THE  EAST. , PATH,0 , A  SECR 
ET  PASSAGEWAY, PAS SAGEWAY,0 
5310  DATA  A  TWO  WAY  RADIO, RADIO, 
0,A  TRAP  DOOR, DOOR, 0,S AND, S AND, 0 
, SMALL  ROCKS , ROCKS , 0 
5320  DATA  A  AIRPLANE  CRASH, AIRPL 
ANE , 1 , A  RADIO, RADIO, 4 8, A  BOOK, BO 
OK, 4 8, A  LARGE  COMPARTMENT , COMPAR 
TMENT , 4 8 , A  SAILBOAT, SAILBOAT, 2 , S 
EAWEED, SEAWEED, 2, THE  OCEAN, OCEAN 
,2, SAND, SAND, 2, A  LARGE  BOULDER, B 
OULDER,13,A  SMALL  BIRD, BIRD, 13 , A 

FLOWERING  BUSH, BUSH, 13 
5330  DATA  TROPICAL  PLANTS , PLANTS 
,3 7, TREES, TREES, 3 7, TROPICAL  PLAN 
TS , PLANTS , 14 , FLOWERS , FLOWERS , 14 , 
A  VILLAGE, VILLAGE, 4, AN  OLD  HUT,H 
UT,5,A  SMALL  PATH , PATH , 5 , A  STONE 

ALTAR, ALTAR, 3 8, A  RIVERBANK, RIVE 
RBANK , 3 , A  SMALL  SHACK, SHACK, 34 , T 
ROPICAL  FLOWERS, FLOWERS, 34 
5340  DATA  A  METAL  CHEST , CHEST , 3 6 
,A  TABLE, TABLE, 3 6, LUMBER, LUMBER, 
3 6, A  TORCH, TORCH, 0, A  SKULL  HANGI 
NG  FROM  A  POLE, SKULL, 39 
5350  DATA  A  PILE  OF  BONES , BONES , 
3 9, A  BRIDGE, BRIDGE, 3 2, A  SMALL  SH 
0VEL,SH0VEL,7,A  TUNNEL, TUNNEL, 11 
, AN  OLD  CHEST, CHEST, 2 9, A  VILLAGE 
, VILLAGE, 40 

5360  DATA  AN  AIRFIELD, AIRFIELD, 2 
2, A  RUNWAY , RUNWAY , 4 5 , A  DEMOLISHE 
D  AIRPLANE, AIRPLANE, 4 6, AIRPLANE 
WRECKAGE, WRECKAGE, 4 7, A  PROPELLER 
, PROPELLER, 4 7, AN  OLD  CAMP, CAMP, 1 
9, A  TREE  STUMP, STUMP, 4 5, A  LARGE 
RIVER, RIVER, 31, AN  OLD  BRIDGE, BRI 


DGE, 30 

5370  DATA  A  LARGE  CAVE , CAVE , 2 6 , A 
LARGE  OPEN  COMPARTMENT , COMPARTM 
ENT,0 , A  SMALL  OPEN  DOOR, DOOR, 50 , 
LARGE  ROCKS, ROCKS, 2 7, A  SMALL  TRE 
E, TREE, 2 7, SMALL  ROCKS , ROCKS , 25 , A 
SMALL  TREE  STUMP, STUMP, 25 , A  LAR 
GE  BUSH, BUSH, 25 

53  80  DATA  AN  OLD  HERMIT , HERMIT , 3 
3, AN  OVER  GROWN  PATH, PATH, 44 , A  S 
MALL  CLEARED  PATH , PATH , 0 , A  PATH 
TO  THE  EAST  COVERED  WITH  LE 

AVES . , PATH ,49, THREE  SNAKES , SNAKE 
S,51,A  TREE  LIMB  AT  THE  TOP  OF 

THE  PIT. , LIMB, 51 
5390  DATA  A  PIT, PIT, 22 , AN  OLD  FL 
AG, FLAG, 21, A  SOLDIER, SOLDIER, 19 , 
A  SUPPLY  HUT, HUT, 21 
5400  DATA  A  LARGE  BOX, BOX, 17, A  S 
MALL  TABLE, TABLE, 17, A  SMALL  CRAT 
E, CRATE, 17, A  TRAP  DOOR, DOOR, 16 
5410  FOR  I«1T084:READ  VI$(I),II$ 
(I) ,VI(I) :NEXT  I 
5420  X»2 

5430  RESTORE: IF  A$«"Y"  THEN  6140 
ELSE  200 

5440  PRINT:  IF  PC=«1  THEN  RETURN  E 
LSEIF  VI  (12)—  1  THENPRINT"THE  SN 
AKES  DISAPPEAR. ": PRINT "LOOK'S  LI 
KE  THE  CHARM  WORKS . " : VI (75) =0 : PC 
=1: RETURN 

5450  IF  VI(12)<>-1  THENPRINT"ONE 
OF  THE  SNAKES  JUST  BIT  YOU.": PR 
INT"YOU  FEEL  VERY  DIZZY .": PRINT" 
THIS  GAME  IS  OVER  "PN$" . " : GOT048 
20 

5460  M$-RIGHT$(A$,LEN(A$)-2) 
5470  IF  M$«""  AND  A$»"GO"THENPRI 
NT  LEFT$ (A$ ,2) ; "  WHERE?" :GOT04 10 
5480  IF  M$=" "THENPRINT  LEFT$(A$, 
2);"  WHAT?" :GOTO410 
5490  M$=RIGHT$(A$,LEN(A$)-3) 
5500  RETURN 

5510  M$=RIGHT$ (A$ , LEN (A$) -3 ) 
5520  IF  M$=" "THEN  PRINT  LEFT$ (A$ 
,3);"  WHAT  ";PN$;"?":GOTO410 
5530  M$=*RIGHT$(A$,LEN(A$)-4) 
5540  RETURN 

5550  M$=RIGHT$ ( A$ , LEN ( A$ ) -4 ) 
5560  IF  M$=" "THEN  PRINT  LEFT$ (A$ 
,4);"  WHAT  ";PN$;"?":GOTO410 
5570  M$«RIGHT$(A$,LEN(A$) -5) 
5580  RETURN 

5590  M$=RIGHT$ (A$ , LEN (A$ ) -5) 
5600  IF  M$=" "THEN  PRINT  LEFT$ (A$ 
,5);"  WHAT  " ;PN$ ; "?" :GOTO410 
5610  M$=RIGHT$(A$,LEN(A$)-6) 
5620  RETURN 

5630  M$=RIGHT$(A$,LEN(A$)-6) 
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5640  IF  M$»" "THEN  PRINT  LEFT$ (A$ 
,  6 ) ; "  WHAT  " ;  PN$ ; "?" :  GOT04 1J3 
5650  M$«RIGHT$(A$,LEN(A$)-7) 
5660  RETURN 

5670  M$=RIGHT$(A$,LEN(A$)-7) 
5680  IF  M$~""THEN  PRINT  LEFT$ (A$ 
,7);"  WHAT  "PN$; "?" :GOTO410 
5690  M$-RIGHT$(A$,LEN(A$)-8) 
5700  RETURN 

5710  M$=RIGHT$(A$,LEN(A$)-8) 
5720  IF  M$=" "THEN  PRINT  LEFT$ (A$ 
,8);"  WHAT  "PN$;"?":GOTO410 
5730  M$=RIGHT$(A$,LEN(A$)-9) 
5740  RETURN 

5750  IF  TT=1  THEN  VI(14)=X 
5760  IF  TT=0  THEN  VI(76)=X 
5770  RETURN 

5780  PRINT"  YOU  HEAR  GUN  SHOTS." 
: PRINT"  THE  SOLDIER  IS  SHOOTING 
AT  YOU." 
5790  J«RND(3) 

5800  IF  J-l  THEN  PRINT"  HE  SHOT 

YOU  ";PN$;".": PRINT"  THIS  GAME  I 

S  OVER.": GOTO  4820 

5810  PRINT"  HE  MISSED  YOU  ";PN$; 

M.":FORJ-1TO1700:NEXT  J: RETURN 

5820  OPEN"0",-l,N$ 

5830  FOR  1-1  TO  84 

5840  PRINT#-1,VI(I) 

5850  NEXT  I 

5860  FOR  1-1  TO  6 

5870  PRINT#-1,QQ(I) 

5880  NEXT  I 

5890  FOR  1-1  TO  2 

5900  PRINT#-1,LL(I) ,CA(I) 


5910  NEXT  I 

5920  PRINT#-1,PN$,X,TT,L,LT,GT,D 

,PC,RP,W,OT,CA,SC,YY 

5930  CLOSE-1 

5940  CLS:PRINT§34, "THIS  GAME  IS 

SAVED.": END 

5950  OPEN"IM,-l,N$ 

5960  FORI-1  TO  84 

5970  INPUT#-1,VI(I) 

5980  NEXT  I 

5990  FOR  1-1  TO  6 

6000  INPUT#-1,QQ(I) 

6010  NEXT  I 

6020  FOR  1-1  TO  2 

6030  INPUT#-1,LL(I) ,CA(I) 

6040  NEXT  I 

6050  INPUT#-1,PN$,X,TT,L,LT,GT,D 

,PC,RP,W,OT,CA,SC,YY 

6060  CLOSE-1 

6070  GOTO  200 

6080  CLS 

6090  PRINT© 3 3 , "READY  CASSETTE" :P 
RINT"  PRESS  play  and  record" :PRI 
NT : PRINT 

6100  LINE  INPUT"  ENTER  NAME  ";N$ 
6110  IF  N$=""  THEN  6090 
6120  GOTO  5820 
6130  GOTO  6090 
6140  CLS 

6150  PRINT§33, "READY  CASSETTE" :P 
RINT"  PRESS  play  ONLY" : PRINT: PRI 
NT 

6160  LINE  INPUT"  ENTER  NAME  ";N$ 
6170  IF  N$=""  THEN  6150 
6180  GOTO  5950 
6190  GOTO  6150 


AFREAN 
TRANSFERENCE 


  Program  by  Michael  Dennison 

You've  been  going  on  weekend  hiking  expeditions 
ever  since  you  can  remember,  answering  the 

 1  call  of  the  wild  and  loving  every  minute  out 

in  the  open  air.  The  office  does  tend  to  be 
oppressive  and  the  daily  traffic  jams  that 
complicate  your  life  on  your  way  to  and  from 
work  only  strengthen  your  desire  to  get  away 
from  it  all. 

One  evening  you  scan  the  cable  television 
channels  unable  to  find  anything  interesting 
until  you  happen  onto  a  travelogue  on  West 
Africa.  You  are  fascinated  by  the  sight  of  a 
thundering  herd  of  wild  elephants,  the  power 
of  the  lions,  the  hypnotic  stripes  of  the 
meandering  zebras,  the  agility  of  the  monkeys 
and  the  determination  of  the  rhinoceros. 

From  a  graphic  map  of  the  country,  the 
camera  lens  zooms  in  on  a  remote  area  in  the 
deepest  part  of  Africa,  which,  the  announcer 
says,  is  shrouded  in  mystery.  Many  attempts 
to  explore  the  area  have  failed  and  the  explorers 
_ _ —      have  disappeared  without  a  trace,  one  after  the 
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other.  In  dramatic  tones,  the  announcer  tells  of  native  rumors  of  cannibals 
and  "other-worldly"  monsters. 

But  the  thing  that  bolts  you  upright  from  your  reclining  position  in  your 
lounger  is  the  mention  of  a  treasure.  Estimated  to  be  worth  millions  of  dollars, 
the  bounty  is  said  to  be  in  the  hands  of  a  fearsome  warlord  who  rules  the 
area. 

"This  is  for  me,"  you  say,  only  halfway  believing  the  words  coming  out 
of  your  mouth  and  the  thoughts  spinning  around  in  your  head. 

For  days  you  think  about  nothing  else,  unable  to  sleep  at  night  or  to 
concentrate  on  the  mundane  matters  at  work.  At  the  cafeteria  during  lunch, 
you  put  only  bananas  and  other  fruits  on  your  tray.  For  dinner  you  settle 
for  raw  fish  and  coconut  milk,  preparing  your  wildly  tossing  stomach  for 
a  steady  diet  of  jungle  food. 

Then  one  day  you  find  yourself  aboard  an  airplane  headed  for  West  Africa. 
You've  made  the  commitment;  there's  no  turning  back  now. 

Upon  arriving,  you  meet  with  local  authorities.  Their  first  advice  is  to  forget 
it,  telling  you  that  the  mission  is  impossible.  You  even  hear  a  couple  of  them 
talking  about  you  behind  your  back.  When  they  realize  that  there's  no  way 
to  prevent  you  from  going,  the  authorities  say  your  most  reliable  source  of 
help  will  be  the  witch  doctor  who  has  always  lived  in  the  forbidden  zone. 
You  may  even  have  to  befriend  the  cannibals,  but  be  sure  to  shun  seemingly 
helpless  animals. 

This  Adventure  uses  some  one-word  commands,  but  primarily  two-word 
commands  using  the  traditional  verb-noun  combinations.  You  should  type 
in  a  PCLERR1  before  running  the  program. 

Good  luck.  We  hope  you  have  made  a  last  will  and  testament  because 
we  don't  really  expect  to  see  you  again! 


(Michael  S.  Dennison,  of  Titusville,  Fla.,  is  employed  by  TKS,  Inc.,  a 
manufacturer  of  software  and  computers  for  optometrists.  Michael  also 
attends  Miami  Dade  Junior  College  and  is  a  certified  wind-surfing 
instructor.) 
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AFRICA  32K  ECB 


1  CLS3:CLEAR1000:DIMU$(19) 

2  ZB=451:ZC=163 :F0RN=1T07 :READU$ 
(19) 

3  FOR  ZA=ZB  TO  ZC  STEP-32 

4  PRINT@ZA,U$ (19) ; : PRINT@ZA+32 , C 
HR$(175) ; : NEXTZA 

5  ZB=ZB+4:ZC=ZC+4:NEXTN:ZB=227:Z 
C=254 

6  FORN=8T019 :READU$ (19) 

7  FOR  ZA=ZC  TO  ZB  STEP-2 

8  PRINT@ZA,U$ (19) ; : PRINT@ZA+2 , CH 
R$(175) ; : NEXTZA 

9  ZB=ZB+2 : NEXTN 

10  F0RN=1T02 :PLAY"T603EFGEFDECDP 
4" :NEXTN:FORZ=1TO500:NEXT 

11  ZA=191:ZB=4:CLSZB:R$="by"+CHR 
$ (ZA) +CHR$ (ZA) +"michael"+CHR$ (ZA 
) +CHR$ (ZA) +"dennison"+CHR$ ( ZA) +C 
HR$(ZA) :FORZC=453T0229  STEP-32 :C 
LSZB: PRINT@ZC , R$ ; : NEXTZC : PLAY "T6 
03DCCDEGFE" 

17  X=30: Y=30 

18  DIML$(X+10) ,LO$(Y+10) ,O$(Y+10 
)  ,C$(30)  ,T(4,X)  ,C(30)  ,O(Y+10) 

19  CLS:PRINTMDO  YOU  NEED  INSTRUC 
TIONS . " : INPUTS$ : IFS$="Y"THEN20EL 
SE100 

20  CLS:PRINT"THIS  ADVENTURE  BEGI 
NS  IN  THE  DEEPEST  PART  OF  A  J 
UNGLE  IN  AFRICA. YOU  HAVE  ACC 
EPTED  A  QUESTOF  FINDING  OUT  WHY 
THIS  AREA  IS  SO  DIFFICULT  TO  EXP 
LORE. YOU  MAY  HAVE  TO  BEFRIEND  CA 
NNIBALS  AND  SHUN  HELPLESS  AN I MA 
LS .  "  ; 

30  PRINT "WHATEVER  YOU  DO  THOUGH 
,LOOK  OUT  FOR  YOUR-SELF  AND  BE  C 
AREFUL  BECAUSE  THERE  ARE  MAN 
Y  HAZARDS  IN               UNKNOWN  LANDS 

GOOD  LUCK  IN 
YOUR  ADVENTURING.      (PRESS  ANY  KE 
Y)  ." 

31  R$=INKEY$: IFINKEY$=""THEN31EL 
SE35 

35  CLS:PRINT"THIS  ADVENTURE  USES 

SOME  ONE         WORD  COMMANDS , BUT  M 
AINLY  TWO         WORD  COMMANDS , SUCH 
AS  <LOOK>, <I>AND  <GO  E>,<GET  AXE 
>/<LOOK  TREE>THIS  ADVENTURE  WILL 

ALSO  ASK  YOUTO  CLARIFY  YOUR  COM 
MAND, SUCH  AS  <PLACE  AXE>YOU  WILL 

BE  ASKED        WHERE?  ANSWER"; 
40  PRINT"  WITH  THE  CORRECT  NOUN 
.THERE  IS  ALSO  A  SAVE/LOAD  FEAT 
URE  WHICH  WILL  SAVE  YOUR  GAME 

EXACTLY  WHERE  YOU  LEFT  OFF."; 


45  PRINT: PRINT" (PRESS  ANY  KEY) 

(TO  BEGIN  YOUR  DE 

STINY) " 

46  IF  INKEY$=" "THEN  46ELSE100 

90  DATA  a,f ,r,i,c,a,n,t,r,a,n,s, 
f  s,r,s,n,c,s 

100  DATA  AT  A  DARK  WINDING  PATH 
SURROUNDED  BY  LOWHANGING  TREES, 
AT  A  DARK  WINDING  PATH, IN  A  VAST 
CLEARING, IN  A  WHIRLPOOL, AT  A  CL 
EARING  WITH  A         WOODED  FLOOR, , A 
T  A  LAKE  LEADING  TO  THESOUTH  IS 
A  CREEK, AT  A  PATH  WITH  HUMAN 
BONES  PILED  AROUND  IT 

102  DATA  OUTSIDE  AN  OLD  HUT,INSI 
DE  AN  OLD  HUT, AT  THE  CEREMONIAL 
BURIALGROUNDS , CONFRONTED  BY  A  TR 
IBE  OFPIGMYS,IN  A  MAZE  OF  HAZY 

TWISTING  CREEKS, IN  A  MAZE  O 
F  HAZY  TWISTING  CREEKS , IN 

A  MAZE  OF  HAZY  TWISTING  CR 

EEKS , AT  A  DOCKING  AREA 

103  DATA  ON  A  PATH  CUT  OUT  FROM 
THICK  BUSHES, AT  THE  ANCIENT'S  M 

EETINGCEREMONY, IN  A  MAZE  OF  HAZY 
TWISTING  CREEKS, IN  A  MAZE 
OF  HAZY  TWISTING  CREEKS, A 

T  THE  END  OF  A  SPRING  WITH  3  PA 
SSAGES  LEADING  INTO  DARKNESS, 
AT  AN  ERIE  LOOKING  TRAIL 

104  DATA  AT  CROSSROADS  IN  THE 
TRAIL, AT  A  CLEARING  WITH  AN  A 

NIMAL  PEN, IN  A  MAZE  OF  HAZY 

TWISTING  CREEKS, IN  A  MAZE  OF  H 
AZY  TWISTING  CREEKS , IN  A  M 

AZE  OF  HAZY  TWISTING  CREEK 

S , IN  A  DUNGEON,, IN  THE  WARLORD'S 
CHAMBER 

200  DATA  TREES,*, 1, SAND, SAND, 1,C 
ANOE , CANOE , 3 , BOARDS , * , 5 , A  SANDY 
AREA , * , 7 , BONE , BONE , 8 , SKULL , * , 8 , H 
UT,*, 9, DOG,*, 9, AN  OLD  LADY,*, 10, 
CRYSTAL  BALL, *, 10, BOOK, BOOK, 10, W 
OODEN  BOX,*,ll,PIGMYS,*,12,SUNKE 
N  CANOES, *, 16, AN  OLD  DOCK,*, 16 
, BUSHES , * , 17 

202  DATA  BERRIES, BERRIES, 17, SMAL 
L  BRANCHES, *, 17, HEAD  VILLAGERS, 
* , 18 , GUARDS , * , 18 , PASSAGES , * , 2 1 , A 
BODY,*, 22, AN  OLD  PROPHET ,*, 23 , B 
OAR, BOAR, 24, DOG,*, 24, PEN,*, 24, A 
7  HEADED  MONSTER, *, 28 , A  WARLORD, 
*,30,THRONE,*,30 

300  DATA  0,0,2,0 

301  DATA  0,0,3,1 

302  DATA  0,9,0,2 

303  DATA  0,0,0,0 


304  DATA  0, 11,0, 4 

305  DATA  0,0,0,0 

306  DATA  0,0,8,0 

307  DATA  0,0,9,7 

308  DATA  3,0,0,8 

309  DATA  0,16,0,9 

310  DATA  5,17,0,10 

311  DATA  1000,18,0,0 

312  DATA  25,19,14,0 

313  DATA  26,20,0,13 

314  DATA  27,0,0,26 

315  DATA  10,22,0,0 

320  DATA  11,23,18,0 

321  DATA  12,0,0,17 

322  DATA  13,25,0,0 

323  DATA  14,26,0,0 

324  DATA  0,0,0,0 

325  DATA  16,0,23,0 

326  DATA  17,2000,24,22 

327  DATA  0,0,0,23 

328  DATA  19,13,2  6,0 

329  DATA  20,14,15,25 

335  DATA  21,15,0,25 

336  DATA  0,0,0,0 

337  DATA  0,0,0,0 

338  DATA  0,0,0,0 

400  DATA"GOM, 1, "I", 2, "DROP", 3, "L 
OOK" , 4 , "GET" , 5 , "SAY" , 6 , "LIFT" , 7 , 
"LAUNCH" , 8 , "ROW" , 9 , "PADDLE" , 9 , "0 
PEN" , 10 , "GIVE" , 11 , "PAY" , 12 , "TALK 
" , 13 , "EAT" , 14 , "ENTER" , 15 , "MOVE" , 
16 , "PUT" , 17 , "INSERT" , 17 , "TURN" , 1 
8 , "TWIST" , 18 , "THROW" , 19 , "KILL" , 2 
0 , "HIT" , 20 , "PUNCH" , 20 

401  DATA  "STAB",20,"DRINK",21,"D 
IG" , 22 , "SAVE" , 23 , "LOAD" , 24 

600  F0RC=1T0X:READL$(C) tNEXTC 
700  F0RC=1T0Y:READL0$ (C) ,0$ (C) ,0 
(C) :NEXTC 

800  F0RC=1T0X:READT(1,C) ,T(2,C) , 

T(3,C) ,T(4,C) :NEXTC 

850  T$(1)="N":T$(2)="S":T$(3)="E 

":T$(4)="W" 

899  N=30 

900  F0RC=1T0N:READC$(C) ,C(C) :NEX 
TC 

950  L=l 

1000  CLS: PRINT: PRINT "YOU  ARE  ";L 
$(L) 

1010  PRINT"YOU  SEE:"; 

1020  F0RC=1T0Y:IF0(C)=L  THENPRIN 

TLO$(C);"  "; 

1030  NEXTC 

1035  PRINT 

1040  PRINT"OBVIOUS  EXITS  LEAD:"; 

1050  FORC=1TO4:IFT(C,L)>0THENPRI 

NTT$(C);»  "; 

1060  NEXTC 

1065  PRINT: GOTO 1100 


1070  GOSUB  10000: END 

1100  PRINT :PRINT"WHAT  WOULD  YOU 

LIKE  TO  DO  NOW" :INPUTA$: PRINT :SC 

=SC+1 

1200  F0RC=1T0LEN(A$) :IFMID$(A$,C 
,  1)  ="   "THENA1$=LEFT$ (A$ , C-l) : B$= 
MID$ (A$,C+1,LEN(A$) -C) :GOTO1230E 
LSENEXTC 
1210  A1$=A$ 
1230  F0RC=1T0N 

1240  IF  C$(C)=A1$THENA=C(C) :GOTO 
1400 

1250  NEXTC 

12  60  PRINT" I  DO  NOT  UNDERSTAND": 
GOTO1100 

1400  ON  A  GOTO2000, 2  500, 3000, 350 
0, 4000, 4500, 5000, 5500, 6000, 6500, 
7000,7500,8000,8500,9000,9300,94 
00,9500,9  600,9700,9800,9900, 1311 
0,13170 

1999  'GO 

2000  F0RC=1T04:IFB$=T$(C)THENDR= 


2010  NEXTC :GOTO2050 

2020  IFT(DR,L) >0THENL=T(DR,L) :G0 

TO2030 

2025  IFT (DR, L) <=0THENPRINT"YOU  C 
AN'T  GO  THAT  WAY . " : GOTO1100 
2030  IFL=1000THENCLS: PRINT "YOU  H 
AVE  JUST  WALKED  INTO  QUICK-SAND 
THAT  WAS  COVERED  BY  MANY  SMALL 

LEAVES  YOU  HAD  NOTHING  TO  GRAB 
ONTO  AND  YOU  HAVE  DIED  NEEDLESSL 
Y" : END 

2032  IFL=2000THENCLS: PRINT  "YOU 
TOOK  THE  WRONG  TURN  THAT  THEPROP 
HET  TOLD  YOU  ABOUT  AND  YOU  HAVE 
BECOME  LION  FOOD  IN  A  PIT  OF  L 
ONELY  LIONS  AND  YOU  DIE  NEEDLESS 
LY . " : END 
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2040  GOTO1000 

2050  PRINT "TRY  A  DIRECTION" : GOTO 
1100 

2499  'INV 

2500  CLS:PRINT"YOU  ARE  CARRYING 
THE  FOLLOWING:" 

2510  FORC=lTOY 

2520  IFO(C)=1000THENPRINTLO$(C) 
2530  NEXTC:GOTO1100 

2999  'DROP 

3000  IFB$=O$(E)ANDO(2)=1000THENP 
RINT"YOU  CAN'T  DROP  THE  POUCH  AN 
D         STILL  KEEP  THE  SAND. IT  ALL 
POURSOUT  OF  THE  POUCH  AND  MIXES 
WITH  THE  REGULAR  SAND . " : SA=1 : 0 ( 2 
) =L: O (E) =L: DI=DI-2 : GOTO1100 

3002  IFB$=O$(F)ANDO(H)=1000THENP 
RINT"BY  DROPPING  THE  JUG, THE  BLO 
OD       HAS  BEEN  SPILLED  AND  IT  HAS 

SEAPED  INTO  THE  GROUND  BENE 
ATH  YOU.":O(H)=200:O(F)=L:DI=DI 
-2:GOTO1100 

3003  IFB$=O$(H)ANDO(H)=1000THENP 
RINT"YOU  HAVE  POURED  THE  BLOOD  O 
UT  OFYOUR  JUG  IT  IS  GONE  FOREVER 
. " :0 (H) =200 : DI=DI-1 : GOTO1100 
3010  FORC=lTOY 

3015  IFB$=O$(C)ANDO(C)=1000THENO 

(C)  =L:PRINTLO$(C)  11  HAS  BEEN  DROP 
PED. " : DI=DI-1 : GOTO1100 

3020  NEXTC 

3030  PRINT "SORRY, YOU  ARE  NOT  CAR 
RYING  "B$:GOTO1100 
3500  'LOOK 

3505  IFA$=A1$THEN1000 
3510  IFB$=LO$ ( 1) ANDL=1THENPRINT" 
THEY  ARE  VERY  THICK": GOTO  1100 
3520  IFB$=0$(2)ANDL=10RB$=0$(2)A 
NDO(2)=1000THENPRINT"IT  IS  MAGIC 
AL  SAND.  IT  SPARKLES  VERY  BRIGHT 
LY . " : GOTO1100 

3530  IFB$=0$ (3) ANDL=30RB$=0$ (3)  A 
NDO(3)=1000THENPRINT"IT  LOOKS  TO 

BE  IN  GOOD  SHAPE. IT  IS  DUG  OUT 
OF  AN  OLD  TREE  TRUNK" : GOTO 1100 
3540  IFB$=LO$ (4) ANDL=5THENPRINT" 
THEY  ARE  ABOUT  5  FEET  LONG  AND 
8  INCHES  WIDE. " :GOTO1100 
3550  IFB$=LO$ ( I ) ANDL=5ANDHO=0AND 
LI=1THENPRINT" THERE  IS  A  SHOVEL 
IN  IT . " : D=Y+1 : LO$ (D) ="SHOVEL" : 0$ 

(D)  ="SHOVEL" : 0 (D) =5 : Y=Y+1 : H0=1 : F 
ORZ=1TO1500 : NEXT : GOTO1000 

3560  IFB$=0$ (D) ANDL=5ANDH0=10RB$ 
=0$ (D) ANDO (D) =1000THENPRINT"IT  I 
S  HEAVY  AND  MADE  OUT  OF  WOODIT  I 
S  VERY  PRIMITIVE  AND  THE  HEAD 

OF  IT  IS  FLAT. " :GOTO1100 
3570  IFB$="AREA"ANDL=7THENPRINT" 


IT  LOOKS  LIKE  IT  WAS  USED  FOR 
LAUNCHING  BOATS . » : GOTO 1100 
3580  IFB$=0$(6)ANDL=80RB$=0$(6)A 
NDO(6)=1000THENPRINT"IT  HAS  SOME 
MEAT  ON  IT.  IT  COULDBE  THE  REMA 
INS  OF  A  PREVIOUS  ADVENTURER. 
":GOTO1100 

3590  IFB$=LO$ (7) ANDL=8THENPRINT" 
IT  IS  A  REGULAR  SKULL  WITH  EYE 
SOCKETS  AND  A  NOSEHOLE  AND  A 
MOUTH. ": GOTO 1100 

3600  IFB$= "MOUTH" ANDL=8THENPRINT 

"IT  IS  SHUT. " :G0T01 100 

3610  IFB$=0$ (J) ANDL=80RB$=0$ (J) A 

NDO(J)=1000THENPRINT"IT  IS  A  PRI 

MITIVE  COIN  USED  IN     EARLIER  DAY 

S  IN  THIS  AREA. " :GOTO1100 

3  620  IFB$=LO$ (8) ANDL=9THENPRINT" 

IT  IS  A  SMALL  RICKETY  OLD  HUT 

THE  WALLS  ARE  MADE  OF  BAMBOO  AND 

THE  ROOF  IS  MADE  OF  PALM  FRONDS" 

:GOTO1100 

3630  IFB$=LO$ (9) ANDL=9THENPRINT" 
HE  LOOKS  VERY  MEAN  AND  HUNGRY. 
YOU  MIGHT  BECOME  HIS  LUNCH. HE  IS 
SALIVATING  AND  SHOWING  HIS  TEETH 
HE  IS  ALSO  BLOCKING  THE  DOOR." :G 
OTO1100 

3640  IFB$="LADY"ANDL=10THENPRINT 
"SHE  IS  AN  OLD  WITCH  DOCTRESS. 

WHO  WILL  TELL  YOU  YOUR  FORTUNE. 
":GOTO1100 

3  650  IFB$="CRYSTAL"ORB$="BALL"AN 
DL=10THENPRINT" IT  IS  CLEAR  AND  L 
OOKS  VERY  HEAVYTHE  OLD  LADY  HAS 
HER  HAND  ON  IT. I  GUESS  SHE  IS  NO 
T  WILLING  TO  GIVE  IT  UP.": GOTO 
1100 

3660  IFB$=0$ (12) ANDL=10ORB$=O$ (1 
2) ANDO(12)=1000THENPRINT"IT  IS  M 
ORE  LIKE  AN  OLD  SCRATCH  PAD  MAD 
E  OUT  OF  LARGE  LEAVES  ANDTHE  INK 
IS  DARK  RED. I  THINK  IT  IS  BLOO 
D. THE  TITLE  SAYS'  ENGLISHTRANSLA 
TION  OF  PIGMY  LANGUAGE 1 .  IT  WAS 
WRITTEN  BY  AN  " ; 

3662  IFB$=0$ (12) ANDL=10ORB$=O$ (1 
2 ) ANDO ( 12 ) =1000THENPRINT"ADVENTU 
RER  WHO  WASN'T  ABLE  TO  TELL  PEOP 
LE  ABOUT  IT. (HE  WAS  EATEN).": GO 
TO1100 

3  665  IFB$="B0X"ANDL=11THENPRINT" 
IT  IS  ABOUT  SIX  FEET  LONG  AND 
HAS  A  STRANGE  SMELL  EMINATING 
FROM  IT. ":GOTO1100 

3670  IFB$=L0$(B)ANDL=11ANDBX=1TH 
ENPRINT"IT  IS  A  CORPSE  WITH  A  CL 
ENCHED     HAND. " :GOTO1100 
3675  IFB$="HAND"ANDL=11ANDPC=0AN 
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DBX= 1THENPRINT " THERE  IS  A  POUCH 
IN  IT. " :E=Y+1: LO$ (E) =" POUCH" : 0$ ( 
E) ="POUCH" : 0 (E) =11 : Y=Y+1 : PC=1 : FO 
RZ=1TO1500 : NEXTZ : GOTO1000 
3680  IFB$=0$(E)ANDL=110RB$=0$(E) 
ANDO(E)=1000THENPRINT"IT  IS  USED 
FOR  HOLDING  VERY  SMALL  OBJE 

CTS. » :GOTO1100 

3685  IFB$=LO$(14)ANDL=12THENPRIN 
T"THEY  LOOK  MEAN  AND  HUNGRY. YOU 

BETTER  THINK  QUICK  WHILE  YOU  A 
REABLE  TO  THINK  AT  ALL. " : GOTO110 

3690  IFB$=0$ (F) ANDL=12ANDJU=10RB 

$=0$  (F)  ANDO(F)=1000ANDJU=1THENPR 

INT" IT  IS  LARGE  AND  USED  FOR  HOL 

DINGLIQUIDS .  "  :  G0T01  100 

3  695  IFB$="CAN0ES"ANDL=16THENPRI 

NT"THEY  ARE  FROM  A  PREVIOUS  EXPE 

DI-TION. NEEDLESS  TO  SAY  THEY  DID 

N'TMAKE  IT.":GOTO1100 

3700  IFB$=" D0CK"ANDL=16THENPRINT 

"IT  IS  MADE  OF  OLD  TREE  BRANCHES 

AND  IS  VERY  SHAKE Y .  "  :  GOTO 1100 
3705  IFB$=LO$(17)ANDL=17THENPRIN 
T"THEY  ARE  VERY  THICK. ": GOTO1100 
3710  IFB$=0$ (18)ANDL=170RB$=0$ (1 
8)ANDO(18)=1000THENPRINT"THEY  AR 
E  RED  AND  IN  BUNCHES  . 11 :  GOTO  110 0 
3720  IFB$=" BRANCHES "ANDL=17THENP 
RINT"THEY  ARE  SMALL  AND  BRITTLE. 
": GOTO 1100 

3725  IFB$=" VILLAGERS "ANDL=18THEN 
PRINT"THEY  ARE  DISCUSSING  SOMETH 
ING.  THEY  LOOK  SCARED .": GOTO110 
0 

3730  IFB$=LO$(21)ANDL=18THENPRIN 
T" THERE  ARE  FOUR  OF  THEM  AND  THE 
Y  LOOK  VERY  STRONG. THEY  ARE  PROT 
ECTING  THE  ELDER  VILLAGERS .": GOT 
01100 

3735  IFB$=LO$(22)ANDL=21THENPRIN 
T" THERE  ARE  THREE  OF  THEM." : GOTO 
1100 

3740  IFB$="BODY"ANDL=22THENPRINT 
"IT  IS  A  DEAD  NATIVE. CAUSE  OF 

DEATH  UNKNOWN. ": GOTO 1100 
3745  IFB$=0$ (G) ANDL=22ANDKN=10RB 
$=0$ (G) ANDO (G) =1000THENPRINT"IT 
HAS  A  WOODEN  HANDLE  AND  IT  ISCRE 
SCENT  SHAPED. " : GOTO1100 
3750  IFB$="PROPHET"ANDL=2  3THENPR 
INT"HE  IS  A  BENT  OLD  MAN  WITH  A 
CANE" : GOTO 1100 

3755  IFB$=0$(25)ANDL=240RB$=0$(2 
5) ANDO(25)=1000THENPRINT"IT  LOOK 
S  NICE  AND  PLUMP" : GOTO 1100 
3 7 60  IFB$=" DOG" ANDL=2 4THENPRINT" 
IT  IS  SKINNY  AND  HAS  A  SAD  LOOK 


ON  ITS  FACE. ": GOTO 1100 

3765  IFB$=LO$(27)ANDL=24THENPRIN 

T"IT  IS  MADE  OF  STURDY  WOOD  AND 

HAS  A  LOCK. ": GOTO 1100 
3770  IFB$="LOCK"ANDL=24THENPRINT 
"IT  IS  MADE  OUT  OF  A  CRUDE  METAL 
, AND  IT  IS  LOCKED. IT  HAS  A  KEY- 
HOLE .":  GOTO1100 
3775  IFB$="KEYHOLE"ANDL=24THENPR 
INT" IT  IS  CRESCENT  SHAPED. ": GOTO 
1100 

3780  IFB$="MONSTER"ANDL=28THENPR 
INT"HE  IS  VICIOUS  WITH  7  HEADS  A 
ND  14  EYES. " :GOTO1100 
3785  IFB$=0$(H)ANDL=280RB$=0$(H) 
ANDO(H)=1000THENPRINT"IT  IS  A  PU 
RPLISH  GREEN  COLOR.  LEGEND  HAS 
IT  THAT  THIS  BLOOD  ISSACRED  AND 
FROM  THE  ALL-POWERFUL ' S  VEINS  T 
HEMSELVES . " : GOTO1100 
3790  IFB$="WARL0RD"ANDL=3 0THENPR 
INT" IT  IS  THE  ALL-POWEFUL  HIMSEL 
F. HE LOOKS  APALLED  THAT  YOU  ARE  A 
CTU-ALLY  CHALLENGING  HIM.": GOTO 1 
100 

3795  IFB$=LO$(30)ANDL=30THENPRIN 
T"IT  IS  DEFINITELY  THE  THRONE  OF 

WEALTH. IT  IS  STUDDED  WITH  EVER 
Y  GEM  IN  EXISTENCE.IT  SHINES  SO 

BRIGHTLY  THAT  YOU  MUST  COVER 

YOUR  EYES. ":G0T01 100 
3800  PRINT" I  SEE  NOTHING  SPECIAL 
ABOUT  THE  "B$:GOTO1100 

4000  'GET 

4001  IFB$=0$ (J) ANDC0=1THENPRINT" 
YOU  CAN'T  TAKE  IT  BACK  AFTER 
YOU'VE  ALREADY  PAID  HER.": GOTO 11 
00 

4002  IFB$=0$ ( 6 ) ANDBN=1THENPRINT" 
THE  DOG  GROWLS  AT  YOU  AND  BARES 
HIS  TEETH. I  THINK  YOU  BETTER 
FORGET  ABOUT  THE  "B$: GOTO 1100 

4004  IFB$=0$  (2) ANDO (E)  O1000ANDS 
A<>1AND0(2)=L  THENPRINT" IT  FALLS 

THROUGH  YOUR  FINGERS  AND  MIXE 
S  WITH  THE  REGULAR  SAND. YOU  CANN 
OT  GET  IT  AGAIN. " :SA=1: GOTO 1100 

4005  IFB$=0$ (2 ) ANDSA=1THENPRINT" 
YOU  CANNOT  GET  IT  AGAIN" : GOTO 110 

4007  IFB$="B0AR"ANDB0<>1ANDL=24T 
HENPRINT"YOU  CANNOT  TAKE  IT  YET. 
":GOTO1100 

4008  IFB$=0$ (25)ANDL=12ANDB0<>1T 
HENPRINT " YOU  BETTER  NOT  DO  THAT 
OR  THEY     WILL  EAT  YOU  INSTEAD.": 
GOTO1100 

4009  IFB$=0$(2)ANDL=28ANDSA=2THE 
NPRINT"YOU  CANNOT  GET  THE  SAND  B 


298 


ACK  IT  IS  IN  THE  EYES  OF  THE  MON 
STER. " :GOTO1100 

4013  IFDI=5THENPRINT"NO  MORE, I'M 

JUST  NOT  ABLE  TO  LUGAROUND  MORE 

THINGS . " : GOTO1100 
4015  IFB$=O$(2)ANDO(E)=1000ANDO( 
2)<>1000ANDO(2)=L  THENPRINT"WITH 

WHAT" :INPUTPC$:IF  PC$<>0$(E)  TH 
EN  GOTO  4490  ELSE  PRINT"SAND  HAS 

BEEN  TAKEN": 0(2) =1000 :DI=DI+1:G 
OTO1100 

4017  IFB$=0$(25)ANDL=24ANDB0=1TH 

ENPRINT " BOAR  HAS  BEEN  TAKEN. ":0( 

25) =1000 : DI=DI+1 : GOTO1100 

4045  IFB$=O$(H)ANDO(H)=200THENPR 

INT" IT  IS  GONE  FROM  SIGHT.": GOTO 

1100 

4050  IFB$=O$(H)ANDO(F)=1000ANDO( 
H)<>1000ANDO(H)<>200ANDO(H)=L  TH 
ENPRINT" WITH  WHAT" : INPUTJG$ : GOSU 
B4052 :GOTO1100 

4051  GOTO4060 


4052  IFJG$<>0$ (F) THENGOTO4490ELS 
EPRINT"YOU  HAVE  TAKEN  THE  BLOOD. 
": BL=2 : 0 (H) =1000 : L=l : DI=DI+1 : RET 
URN 

4060  IFB$=0$ (H) ANDL=28ANDO(F) <>1 
000THENPRINT"YOU  HAVE  NOTHING  TO 
PUT  IT  IN.":L=1:FORZ=1TO1500:NE 
XT:GOTO1000 

4070  IFB$=LO$ (30) ANDL=30THENPRIN 
T"THE  WARLORD  GRABS  YOUR  HAND  AN 
D  HURLS  YOU  ACROSS  THE  CHAMBER  A 
NDYOU  NEEDLESSLY  DIE.": END 
4200  F0RC=1T0Y 

4210  IFB$=0$ (C) ANDO(C)=L  ANDO$(C 
)<>m*iiTHEN0(C)  =1000:PRINTLO$  (C)  " 
HAS  BEEN  TAKEN" : DI=DI+1 : GOTO110 


4220  NEXTC 

4300  FOR  C=l  TO  Y 

4310  IF  B$=0$(C)   AND  0(C) =1000  T 
HEN  PRINT "YOU  ALREADY  HAVE  IT.": 
GOTO1100 
4320  NEXT  C 

4490  PRINT" I  TRIED  GETTING  THE  " 
B$"  BUT  I  JUST  COULDN'T  DO  IT.": 
GOTO1100 
4500  'SAY 

4502  IFB$="LOOPLRIHW"ANDL=4GOT04 
503ELSE4520 

4503  CLS0 

4504  FORZ=1TO160 

4505  PRINT"*11; 
4  506  NEXT 

4510  PRINT" EVERYTHING  SPINS  AND 
YOU  GO  DOWN" ; :FORZ=1TO600: NEXT 

4511  FORZ=1TO480 

4512  PRINT"*"; 

4513  NEXT 

4515  FORZ=1TO480 

4516  PRINT"******YOU  FINALLY  COM 
E  UP!******"; :FORZ=1TO300:NEXT 

4517  F0RZ=1T0128 : PRINT"*" ; :NEXT: 
L=13 : FORZ=1TO1500 : NEXT : GOTO 1000 
4520  PRINT"I  SAID  "B$",BUT  NOTHI 
NG  HAPPENED" :GOTO1100 

4999  'LIFT 

5000  IFB$=LO$ ( 4 ) ANDL=5ANDLI=0THE 
NPRINT" THERE  IS  A  HOLE . " : I=Y+1 ; L 
0$ (I)="HOLE" :0$ (1)="*" :0(I)=5:Y= 
Y+l : LI=1 : FORZ=1TO1500 : NEXT : G0T01 
000 

5080  PRINT"THE  "B$"  CANNOT  BE  LI 
FTED. " :GOTO1100 
5500  'LAUNCH 

5510  IFB$=O$(3)ANDL=7ANDO(D)=100 
0ANDO(3)=1000THENPRINT"YOU  NEARL 
Y  FELL  IN  BUT  YOU  MAN-  AGE  TO  GE 
T  THE  CANOE  IN  THE  WAT-ER" : LA=1 : 
GOTO 1100 

5520  IFB$=0$ (3) ANDL=7AND0(D) <>10 
00ANDO(3)=1000THENPRINT"YOU  GET 
THE  CANOE  IN  BUT  YOU  HAVE  NOT 
HING  TO  ROW  WITH. YOUR  CANOE  RU 
NS  INTO  THE  RAPIDS  AND  YOU  NEED 
LESSLY  DIE.": END 

5530  IFB$=O$(3)ANDL=7ANDO(3)<>10 
00THENPRINT " YOU  DO  NOT  HAVE  THE 
CANOE  TO         LAUNCH . " : GOTO 1100 
5540  PRINT"I  TRIED  TO  LAUNCH  THE 
"B$"  BUT  NOTHING  HAPPENED. ": GOT 
01100 
6000  'ROW 

6010  IFB$=O$(3)ANDO(3)=1000ANDL= 
7 ANDLA< > 1THENPRINT " THAT  IS  VERY 
DIFFICULT  TO  DO         WHILE  YOU  ARE 


299 


STILL  ON  LAND.  ":GOTO1100 
6020   IFB$=0$ ( 3 ) ANDL=7ANDLA=1THEN 
L=13  :  LA=0  :  GOTO1000 

6030  IFB$=0$  (3)  ANDO(3)  O1000THEN 
PRINT "HOW  CAN  YOU  ROW  IT  WHEN  YO 
U  DON'T  HAVE  IT . " : GOTO1100 

6040  PRINT" I  TRIED  BUT  NOTHING  R 
ESULTED  FROM  THE  EFFORT .  11 :  GOTOll 
00 

6499  'OPEN 

6500  IFB$="MOUTH"ANDL=8ANDMO<>lT 
HENPRINT" SOMETHING  FELL  OUT":J=Y 
+1 : LO$ (J) ="COIN" : 0$ (J) ="COIN" : 0 ( 
J) =8 : Y=Y+1 : M0=1 : FORZ=1TO1500 : NEX 
T:GOTO1000 

6510  IFB$="M0UTH"ANDL=8ANDM0=1TH 
ENPRINT"IT  IS  ALREADY  OPEN": GOTO 
1100 

6520  IFL=11ANDB$="B0X"ANDBX<>1TH 
ENPRINT" THERE  IS  A  BODY  IN  IT":B 
=Y+1 : L0$ (B) ="BODY" :0$="*" :0 (B) =1 
1 : Y=Y+1 : BX=1 : FORZ=1TO1500 : NEXT : G 
OTO1000 

6530  IFL=11ANDB$="B0X"ANDBX=1THE 
NPRINT"IT  IS  ALREADY  0PEN":G0T01 
100 

6590  PRINT"I  CAN'T  OPEN  THE  "B$: 
GOTO1100 

6999  'GIVE 

7000  IFB$=O$(6)ANDL=9ANDO(6)=100 
0THENPRINT"THE  DOG  WAGS  HIS  TAIL 

AND  LICKS  YOUR  HAND. HE  SITS  DOW 
N  TO  CHEW     ON  THE  BONE. HE  LET'S 
YOU  WALK       TO  THE  DOOR. " : 0 ( 6 ) =L: 
T(3,9)=10:T(4,10)=9:BN=1:DI=DI-1 
:GOTO1100 

7010  IFB$=0$(25)ANDL=12ANDO(25)= 
1000THENPRINT"THEY  TAKE  THE  BOAR 
AND  BEGIN  TO  PREPARE  IT  FOR  THE 
IR  NEXT  MEAL.  THEY  LOOK  AS  THOUG 
H  THEY  HAVE  SOMETHING  TO  SAY." 
: 0 (25 ) =L: B0=2 : DI=DI-1 : GOTO1100 
7050  PRINT"I  TRIED  TO  GIVE  THE  " 
B$"  BUT  NOTHING  HAPPENED. ": G0T01 
100 

7499  'PAY 

7500  IFB$="LADY"ANDL=10ANDO(J)=1 
000THENPRINT"SHE  THANKS  YOU  AND 
LOOKS  INTO       HER  CRYSTAL  BALL.": 
0 (J) =10 : C0=1 : PA=1 : DI=DI-1 : GOTOll 
00 

7590  PRINT"I  TRIED  TO  PAY  THE  "B 
$"  BUT  NOTHING  HAPPENED. ": GOTOll 
00 

8000  'TALK 

8005  IFB$="LADY"ANDL=10ANDPA<>1T 
HENPRINT "I  DO  NOT  GIVE  UP  MY  INF 
ORMATION  FOR  FREE .": G0T01 100 
8010  IFB$="LADY"ANDPA=1ANDL=10TH 


ENPRINT" SHE  SAY'S  LISTEN  CLOSE 

LY  THERE  IS  A  SAND  FOR  BLIN 

DING.USEIT  WISELY.  AND  WHEN 

IN  TROUBLE  IN  CERTAIN  SPOTS 

SAYING  YOUR  PROBLEM  IN  REVERSE 
MAY  HELPYOU  WHEN  ALL  ELSE  FAILS. 
":PA=2:GOTO1100 

8030  IFB$=LO$(14)ANDL=12ANDO(12) 
=1000ANDBO=2ANDJU=0THENPRINT"THE 
Y  TELL  YOU  SOMETHING  WHICH  YOU 
TRANSLATE  INTO  ENGLISH. THEY  TEL 
L  YOU  OF  A  GREAT  BEAST  THAT  DEV 
OURS  THOSE  WHO  VENTURE  TOO  CLO 
SE.THEY  GIVE  YOU  SOMETHING  TOHEL 
P  YOU  OUT."; 

8035  IFB$=LO$(14)ANDL=12ANDO(12) 
=1000ANDBO=2ANDJU=0THENF=Y+1 : L0$ 
(F) ="JUG" : 0$ (F) =" JUG" : O (F) =12 : Y= 
Y+l:B0=2 : JU=1:GOTO1100 
8040  IFB$=LO$(14)ANDL=12ANDO(12) 
<>1000THENPRINT"THEY  SAY  SOMETHI 
NG  BUT  YOU  CAN ' TUNDERSTAND  WHAT 
THEY  ARE  SAYING .": GOTO1100 
8050  IFB$=LO$(14)ANDL=12ANDO(12) 
=1000ANDBO<>2THENPRINT"THEY  ARE 
NOT  WILLING  TO  TALK  TO  YOU  YET  Y 
OU  MUST  APPEASE  THEM       FIRST. ":G 
OTO1100 

8060  IFB$="VILLAGERS"ANDL=18AND0 
(12)=1000THENPRINT"THEY  TELL  YOU 
OF  A  GREAT  BEING  THAT  THEY  WOR 
SHIP. HE  IS  SAID  TO  BE  ALL-POWERF 
UL  AND  IS  SAID  TO  SIT  ON  THE  CH 
AIR  OF  WEALTH. AS  LEGEND  HAS  IT 
,  IF  HE  IS  BETRAYEDHE  WILL  FEED 
YOU  TO  HIS  PET"; 

8065  IFB$="VILLAGERS "ANDL=18AND0 
(12)=1000THENPRINT"  IN  ADUNGEON 
WHICH  NONE  HAVE  SURVIVED" : GOTOll 
00 

8070  IFB$=" VILLAGERS "ANDL=18AND0 
(12)<>1000THENPRINT"THEY  MUMBLE 
SOMETHING  THAT  YOU     CANNOT  UNDER 
STAND. ":GOTO1100 

8080  IFB$=LO$ (21) ANDL=18THENPRIN 
T"THEY  DON'T  TALK. THEY  STARE 

SEARINGLY  THROUGH  Y0U.":G0T011 

00 

8090  IFB$="PROPHET"ANDL=23THENPR 
INT"HE  SAYS  CHOOSE  YOU  DIRECTION 
S       WISELY  BECAUSE  THE  NEXT  MAY 
BE     YOUR  LAST.":GOTO1100 
8100  IFB$="WARL0RD"ANDL=3 0THENPR 
INT"HE  SAYS  HE  DOESN'T  SPEAK  TO 
MORTALS. HIS  VOICE  IS  SO  DEEP 
THAT  THE  GROUND  SHAKES  AND  Y 
OU     HAVE  DIFFICULTY  STANDING. ":G 
OTO1100 

8150  PRINT"I  TALKED  TO  THE  "B$" 
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BUT  NOTHING  WAS  SAID"  :  GOTO1100 

8499  'EAT 

8500  IFB$=LO$(18)ANDO(18)=1000TH 
ENPRINT"THE  BERRIES  MUST  HAVE  BE 
EN  POIS-ONOUS.THEY  PARALYZED  YOU 

FROM       THE  NECK  DOWN  AND  YOU  NE 
EDLESSLYDIED  IN  SECONDS .": END 
8505  IFB$=0$  (18)  ANDO(18)  O1000AN 
DO(18)=L  THENPRINT"YOU  DON'T  HAV 
E  THEM  TO  EAT. ": GOTO 1100 
8510  PRINT" YOU  CAN'T  EAT  THE  "B$ 
lf.":GOTO  1100 
9000  'ENTER 

9002  IFB$="PASSAGE"ANDL=21ANDO(2 

) <>1000ANDSA=0THENPRINT"YOU  HAVE 
NOT  GAINED  THE  PRIVEL-  EDGES  TO 
MAKE  A  DECISION  LIKE  THIS. YOU 
MUST  GO  BACK  AND  BUILD  UP  YOUR 

SUPPLIES . " : L=16 : FORZ=1TO5000 : NEX 

T:GOTO1000 

9010  IFB$="PASSAGE"ANDL=21THENPR 
INT" IF  THEY  ARE  NOT  ENTERED  IN  T 
HE  CORRECT  ORDER  YOU  MAY  NOT  GE 
T  VERY  GOOD  RESULTS. — WHICH  ON 
E — ":INPUTP 

9017  IFP=1ANDBL=2THENL=13 : GOTO 10 
00 

9020  IFP=1THENTR=1:L=28:GOTO1000 
9030  IFP=2THENL=13 :GOTO1000 
9040  IFP=3ANDTR<>1THENL=13 : GOTOl 
000 

9050  IFP=3ANDTR=1THENL=30:GOTO10 
00 

9100  IFB$="PASSAGE"ANDP<10RP>3TH 
ENPRINT" THERE  ARE  ONLY  THREE  PAS 
SAGES  TO  CHOOSE  FROM. " : GOTO110 
9> 

9150  PRINT" I  ATTEMPTED  TO  ENTER 
THE   "B$"   BUT  I  JUST  CAN'T  DO  IT. 
": GOTO 1100 
9300  'MOVE 

9310  IFB$="BODY"ANDL=22ANDBD=0AN 
DKN=0THENPRINT" THERE  IS  A  KNIFE 
STUCK  IN  IT'S  BACK.":G=Y+l:LO$( 
G) ="KNIFE" : 0$ (G) =" KNIFE" : 0 (G) =2  2 
: Y=Y+1 : KN=1 : BD=1 : FORZ=1TO1500 : NE 
XT:GOTO1000 

9  3  20  PRINT"WELL  I  ATTEMPTED  TO  M 
OVE  THE   "B$"   BUT  NOTHING  HAPPENE 
D. " :GOTO1100 
9400  'PUT 

9410  IFB$="KNIFE"ANDL=24ANDO (G) = 
1000THENPRINT "WHERE" : INPUTKN$ 
9420  IFL=2  4ANDKN$="KEYHOLE"ANDKE 
<>1THENPRINT"0.K.  THE  KNIFE  IS  I 
N  THE  KEYHOLE" :KE=1:0(G)=L:DI=DI 
-1:GOTO1100 

9450  PRINT"I  TRIED  BUT  NOTHING  H 
APPENED. " :GOTO1100 


9500  'TURN 

9510  IFB$=0$(G)ANDL=24ANDO(G)=24 
ANDKE= 1 ANDGA< > 1THENPRINT " YOU  HEA 
R  A  CLICK  AND  THE  GATE  SWINGS 
OPEN. " : GA=1 : B0=1 : GOTO1100 
9590  PRINT"WELL  I  DID  IT  BUT  NOT 
HING  HAPPENED. " :GOTO1100 

9  600  'THROW 

9610  IFB$=O$(2)ANDO(2)=1000ANDL= 
2  8ANDBL=0THENPRINT"WHERE" : INPUTM 
0$ : GOSUB9620 : GOTO1000 
9615  GOTO9640 

9620  IFMO$="EYES"THENPRINT"THE  M 
ONSTER'S  BODY  BEGINS  TO  SMOKE 

AND  MELTS. ALL  THAT  IS  LEFTIS  A 
POOL  OF  BLOOD. ":H=Y+1:L0$(H)="BL 
OOD" : 0$ (H) ="BLOOD" : 0 (H) =28 : Y=Y+1 
: BL=1 : SA=2 : 0 ( 2 ) =0 : 0 ( 2  8 ) =0 : DI=DI- 
1 : FORZ=1TO3500 : NEXT : RETURN 


9640  IFB$=0$  (2)  AND0(2)  O1000THEN 
PRINT"YOU  DO  NOT  HAVE  THE  SAND  T 
0  THROW. " :GOTO1100 

9650  IFB$=O$(2)ANDO(2)=1000ANDL< 
>2  8THENPRINT"YOU  WASTED  YOUR  USE 
OF  THE  MAGICSAND":SA=1:0(2)=L:D 
I=DI-1:GOTO1100 

9690  PRINT"I  TRIED  THROWING  THE 
"B$"   BUT  IT  HAD  NO  EFFECT .": GOTO 
1100 


9699  'KILL 

9700  IFB$= "WARLORD" ANDL=30THENPR 
INT"HE  LAUGHS  AND  DECIDES  THAT  H 
E  ISTHROUGH  PLAYING  WITH  YOU. HE 
HITSYOU  WITH  ONE  OF  HIS  WINGED  A 
RMS  AND  SENDS  YOU  HURLING  INTO  T 
HE  WALL  AND  YOU  DIE  NEEDLESSLY. 
" :  END 

9710  PRINT"I  TRIED  BUT  NOTHING  H 
APPENED . " : GOTO 1 100 
9800  'DRINK 

9810  IFB$=O$(H)ANDL=30ANDO(H)=10 
00THEN1070 

9820  IFB$=0$ (H)ANDL=30ANDO(H) <>1 

000THENPRINT"YOU  HAVEN'T  THE  BLO 

OD  TO  DRINK.": GOTO 1100 

9830  PRINT"I  TRIED  DRINKING  THE 

"B$" , BUT  NOTHING  SPECTACULAR  RES 

ULTED.":GOTO  1100 

9900  'DIG 

9910  IFO(D)=1000THENPRINT"I  TRIE 
D  DIGGING  HERE  BUT  I  JUST  DIDN'T 
SEEM  TO  FIND  ANYTHING .": GOTOl 10 

0 

9920  PRINT" I  HAVE  NOTHING  TO  DIG 

WITH" : GOTOl 100 
10000  CLS: PRINT" YOU  HAVE  CONQUER 
ED  THE  WARLORD     AND  THIS  ADVENTU 
RE. YOU  TAKE  OVERTHE  THRONE  OF  WE 
ALTH  AND  BECOME  THE  NEW  WARLORD. 
YOU  HAVE  THE         STRENGTH  OF  ALL 
THE  PREVIOUS         WARLORDS  COMBINE 
D.YOU  SIT  AND       AWAIT  FOR  A  YOUN 
G  ADVENTURER  TO  ATTEMPT  TO"; 
10010  PRINT"  OVERTHROW  YOU. YOU  A 
RENEVER  HEARD  FROM  AGAIN, AS  YOU 

CONTROL  YOUR  DESTINY. IF  CONGRA 
T-ULATIONS  ARE  IN  ORDER  FOR  THE 
DESTINY  THAT  YOU  HAVE  CHOSEN 
THEN  THEY  ARE  GRANTED. IT  TOOK 
YOU  "SC"  MOVES  TO  TAKE  OVER  TH 
E  THRONE. (PRESS  ANY  KEY)." 
10015  X$=INKEY$ 

10017  IFINKEY$=""THENGOTO10017EL 


SEGOTO10018 
10018  CLS 

11000  PCLEAR4:PMODE4,l:PCLS 
11020  SCREEN1,1 
11023  COLOR5,0 

11025  CIRCLE (128, 48) ,25, , .8, .5,1 

11030  CIRCLE (128, 52) ,12, ,1.2 

11040  DRAW"BM128,52;L5NU4R5NR5NH 

5ND4E5ND4BD12NL10BR5BU12R15D20F4 

D20G15R20D48L20U48H4L6G4D48NR14L 

14NL20U48L20ND48BR20BR14H4L6G4H1 

5U20E4U20NR15D20R15NU8BR20NU8R15 

BL6H8BL22G8BL10BD2  5L4D14R6R14E4H 

12E4U8NH2D8F2R13E2NU4F2R13E2U8NE 

2D8F4G12L6G3 

11050  DRAW"BM112, 86 ;D8BR32U8D6BR 
12R5D14NL16 

11060  DRAWBM140,  152  ;H3L6G3H3L6G 
3 

11070  DRAWBM128  ,  88  ; D3NL4NR4D3NL 

4NR4D3NL4NR4D3" 

11080  DRAW"BM128,60;NL2R2" 

12000  PAINT(112,52) ,5,5 

12010  PAINT(142,52) ,5,5 

12020  PAINT(102,140) ,5,5 

12030  PAINT(152, 140) ,5,5 

12040  PAINT(150, 102) ,5,5 

12045  PAINT (106, 102) ,5,5 

12050  PAINT(146, 88) ,5,5 

12055  PAINT(110, 88) ,5,5 

12060  PAINT(128, 36) ,5,5 

12070  LINE(162,106)-(143,106) , PR 

ESET 

12080  LINE(94,106)-(112,106) , PRE 
SET 

12090  LINE(104, 46) -(152,46) , PRES 
ET 

13020  DRAWBM25, 12  ;R4L2D7L2R4BR1 
BR12BU7BD1D1F1R3F1D2G1L3H1BU5E1R 
3F1BD6BR4BU7D7U4R5NU3D4BR4BU7BD1 
D6U4NR5U2E1R3F1D6BR4BU7D7R5BR4BU 
7D7R5BR12BU7ND7R4F1D1G1NL4F1D3BR 
4BU7NR5D3NR4D4R5BR4BU7R4L2D7BR3B 
R4BU7D6F1R3E1U6BD7BR4BU7ND7R4F1D 


1G1NL4F1D3BR4BU7D1ND6E1R3F1D6" 

13030  DRAWBM157  , 12  ; R4 L2 D7 BR3 BR4 

BU7BD1D5F1R3E1U5H1L3G1BD6BR5BR12 

BU7NR5D3NR4D4BR5BR4BU7R4L2D7L2R4 

BR1BR4BU7BD1D5F1R3E1U2NL2BU2U1H1 

L3G1BD6BR5BR4BU7D7U4R5NU3D4BR4BU 

7R4L2D7BR3 

13040  DRAW"BM78 , 168 ; BD1D6U4NR5U2 

E1R3F1D6BR4BU7D1ND6E1R3F1D6BR4BU 

7BD1D5F1R3E1U5H1L3G1BD6BR5BR4BU7 

R4L2D7BR3BR4BU7D7U4R5NU3D4BR4BU7 

NR5D3NR4D4R5BR4BU7ND7R4F1D1G1NL4 

F1D3BR12BU7D7R4E1U5H1L4BD7BR5BR4 

BU7BD1D6U4NR5U2E1R3F1D6BR4BU7D2F 

2ND3E2U2BD7BR1BR4BU7D4BD2D1 

13050  GOTO  14900 

13110  GOSUB  13230: OPEN "  O  " , DV , " TR 
ANS  " 

13115  NI=0(J) : YD=0(B) :EL=0(I) :LE 
=0(D) :HC=0(E) :GU=0(F) :EF=0(G) :00 
=0(H) 

13117  PRINT # DV , NI : PRINT #DV, YD: PR 
INT  #  DV , EL : PRINT  #  DV , LE : PRINT  #  DV , H 
C:PRINT#DV,GU:PRINT#DV,EF:PRINT# 
DV , 00 : PRINT#  DV , SC 
13120  PRINT#DV,L 

13122  PRINT#DV,HO:PRINT#DV,BX:PR 

INT#DV, PC : PRINT#DV, JU: PRINT#DV, K 

N :  PRINT  #  DV ,  CO :  PRINT #  DV ,  BN :  PRINT  # 

DV,SA:PRINT#DV,BO:PRINT#DV,BL:PR 

INT#DV,LI:PRINT#DV,LA:PRINT#DV,M 

0:PRINT#DV,PA:PRINT#DV,P:PRINT#D 

V, TR: PRINT #DV, BD: PRINT #DV, KE : PRI 

NT  #  DV , GA :  PRI  NT  #  DV ,  DI 

13130  FOR  C«l  TO  Y 

13140  PRINT#DV,0(C) 

13150  NEXTC 

13160  CLOSE :CLS:GOTO1000 

13170  GOSUB  13230 : OPENMI", DV, "TR 

ANS" 

13175  INPUT # DV , NI : INPUT #DV, YD: IN 
PUT  #  DV , EL : INPUT  #  DV , LE : INPUT  #  DV , H 
C: INPUT# DV,GU: INPUT #DV, EF: INPUT # 
DV, 00: INPUT #DV,SC 
13180  INPUT#DV,L 

13182  INPUT # DV, HO: INPUT #DV,BX: IN 
PUT#  DV , PC : INPUT  #  DV , JU : INPUT#  DV , K 
N: INPUT #DV, CO : INPUT #DV, BN: INPUT # 
DV , S A : INPUT  #  DV , BO : INPUT  #  DV , BL : IN 
PUT  #  DV , LI : INPUT  #  DV , LA : INPUT  #  DV , M 
0: INPUT#DV, PA: INPUT#DV, P: INPUT#D 
V, TR: INPUT* DV, BD: INPUT #DV, KE : INP 
UT  #  DV ,  G A :  I NPUT  #  DV ,  D I 
13190  FOR  C=l  TO  Y 
13200  INPUT#DV,0(C) 
13205  NEXTC 

13210  IF  EOF(DV)   THEN  CLOSE 
13220  CLOSE :CLS:GOSUB16000: GOTO 
1000   


13230  CLS: PRINT" INDICATE  THE  DEV 
ICE  TO  BE  USED:" 

13240  PRINT: PRINT"     C  -  CASSETTE 

D  -  DISK" 
13  2  50  PRINT: INPUT "YOUR  CHOICE";D 
V$ 

13260  IF  DV$="D"  THEN  DV=1  ELSE 
IF  DV$="C"  THEN  DV=-1  ELSE  13250 
13270  PRINT: PRINT" PRESS  ANY  KEY 
WHEN  THE  DEVICE  ISREADY." 
13280  IF  INKEY$=" "THEN  13280  ELS 
E  RETURN 

14900  FORZ=1TO100:PLAY"T6O2CCGCO 
3C02CCGCD#DCDP3 " : NEXT 
15000  GOTO15000 

16000  IF  NI=0  THEN  GOTO16100  ELS 
E  J=Y+1 : L0$ (J) ="COIN" : 0$ ( J) ="COI 
N":0(J)=NI:Y=Y+1 

16100  IF  YD=0  THEN  GOTO  16200  EL 
SE  B=Y+1: L0$ (B) ="BODY" :0$ (B) ="*" 
:0(B)=YD:Y=Y+1 

16200  IF  EL=0  THEN  GOTO  16300  EL 
SE  I=Y+l:LO$(I)="HOLE":0$ (1)="*" 
:0(I)=EL:Y=Y+1 

16300  IF  LE=0  THEN  GOTO  16400  EL 

SE  D=Y+1 : L0$ (D) ="SHOVEL" : 0$ (D) =" 

SHOVEL" : 0 ( D) =LE : Y=Y+1 

16400  IF  HC=0  THEN  GOTO  16500  EL 

SE  E=Y+1 : L0$ (E) =" POUCH" : 0$ (E) ="P 

OUCH" : 0 ( E ) =HC : Y=Y+1 

16500  IF  GU=0  THEN  GOTO  16600  EL 

SE  F=Y+1:L0$ (F)="JUG" :0$ (F)="JUG 

":0(F)=GU:Y=Y+1 

16600  IF  EF=0  THEN  GOTO  16700  EL 

SE  G=Y+1 : L0$ (G) ="KNIFE" : 0$ (G) ="K 

NIFE" : Y=Y+1 : O (G) =EF 

16700  IF  00=0  THEN  GOTO  16800  EL 

SE  H=Y+1 : L0$ (H) =" BLOOD" : 0$ (H) ="B 

LOOD" : Y=Y+1 : O (H) =00 

16800  IF  BN=0  THEN  RETURN  ELSE  T 

(3,9)=10:T(4,10)=9:RETURN  ^ 
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Roberts 
Adventure 

  Program  by  Robert  Dickau 

/  %  fter  many  months  of  house-hunting,  Robert 
finally  finds  the  house  he  has  been  searching 
for  —  at  a  very  reasonable  price.  It's  a  majestic 
two-story  mansion  situated  on  a  high  hill  with 
a  long  winding  driveway  in  front.  There's  even 
a  nice  lake  on  the  property. 

"Somebody  must  be  crazy  for  letting  a  house 
like  this  go  so  cheaply,"  he  says,  signing  the 
loan  agreement  with  the  bank.  "There  must 
be  something  to  the  American  dream!" 

Robert  is  in  a  daze  as  he  wanders  around 
the  property  the  next  day,  taking  notes  of  things 
that  need  fixing  up.  With  a  little  landscaping, 
he  believes  it  will  be  the  toast  of  the  local  home 
and  garden  tour. 

As  he  approaches  the  lake,  Robert  trips  over 
something.  It  appears  to  be  the  bone  of  a  large 
animal,  possibly  the  leg  of  a  horse  or  cow.  Or 
maybe  even  that  of  a  man.  Never  having  studied 
anatomy,  Robert  really  has  no  idea. 

"It  couldn't  possibly  have  been  a  man,"  he 

  murmurs,  casting  aside  the  possibility  for  the 

moment. 


305 


The  next  day  Robert  takes  the  bone  to  the  local  veterinarian. 

The  vet  examines  the  bone  carefully,  then  peers  over  his  spectacles  at  Robert. 
"Where  did  you  say  you  found  this?"  he  asks. 

Robert  explains,  eager  to  know  what  kind  of  bone  he  has  discovered. 

"It's  from  a  man's  leg,"  says  the  vet.  "I  would  suggest  that  you  take  this 
to  the  police  immediately." 

The  police  are  understanding,  knowing  that  Robert  has  just  bought  the 
property.  They  explain  that  the  previous  owner  reported  some  "pretty  weird 
things"  were  going  on  at  the  house  and  that  there  were  some  crazy  rumors 
that  the  place  was  haunted. 

That  night  Robert  is  awakened  by  strange  rustling  noises  that  appear  to 
be  coming  from  inside  the  walls.  "Must  be  rats,"  he  says,  just  before  turning 
over  to  go  back  to  sleep. 

A  few  minutes  later,  however,  Robert  is  awakened  again  —  by  the  sound 
of  loud  laughter  echoing  throughout  the  house.  This  time  he  cannot  ignore 
the  danger  signals. 

Slipping  on  his  shoes,  Robert  goes  down  the  stairs  to  the  basement.  After 
an  extensive  search,  he  discovers  a  door  that  he  had  not  known  existed.  Prying 
the  door  open,  Robert  finds  a  sword  just  inside  the  entrance  to  a  mysterious 
corridor. 

Robert  knows  that  suddenly  he  has  been  thrust  into  a  life-and-death  situation. 
There's  no  way  he  can  renege  on  his  loan  from  the  bank.  He  must  destroy 
the  evil  presence.  Besides,  there  could  even  be  a  few  treasures  in  the  challenge. 


(Robert  Dickau  is  a  high  school  senior  who  resides  in  Sacramento,  Calif.) 


r  ROBERT 


16K  ECB 


5  CLEAR2J30,  16352  :  F0RR=1T018  3  :  REA 
DA$ : NEXT : FORR= 16352  TO 16380: READP 
: POKER , P : NEXT : DEFUSR0=1 6 352 

6  CLS:T$="robert's  adventure" : FO 
RI=1T018:F0RP=427+I  TO230STEP-33 
:PRINT@P,MID$(T$,I,1) ; :X=USR(RND 
(255) ) :PRINT@P+33,"  »; :NEXTP,I:P 
RINT@452 , "PRESS  ANY  KEY  TO  BEGIN 
"  :P0KE126j3,  39 

7  NC=2  8:NR=31:NO=31:MM=20:PP=25: 
IFINKEY$=" "THENX=USR0 (RND( 32767) 
) : G0T07 


1)3  RESTORE  :  B$=STRING$  (31,8):  L=2  : 
R=l : F0RI=1T03 1 : READA$ , A$ : NEXT 
2J3  DIMC$(28)  :F0RI=1T02  8:READC$(I 
) : NEXT 

30  DIML0$(31) ,S0$(31) ,L0(31) : FOR 
I=1T031:READL0$ (I) , S0$ (I) ,LO(I) : 
NEXT 

35  CLS:PRINT@480, ; 

3  6  NH$="I  DON'T  SEE  THAT  HERE.": 

0$="OKAY. " 

37  PRINT"YOU  ARE  CARRYING: ": PRIN 

T"A  GLOWING  SWORD" : PRINT 

4J3  PRINT"YOU  ARE  ";:  RESTORE :  FORI 
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=1T0R : READD$ , E$ : NEXT : F0RI=1T0LEN 
(D$)  :A$=MID$(D$,I/1)  :IFA$="*»THE 
NPRINTELSEPRINTA$ ; 
50  NEXT:  PRINT 

70  PRINT"OBVIOUS  EXITS  :":  RESTORE 
: FORI=lTOR : RE ADA $ , A$ : NEXT : FORI=l 
T06:A=VAL(MID$(A$,I*2-1,2) ) : GOSU 
B5000:NEXTI 

80  PRINT:  IFR=11ANDGG=0THENPRINT" 
A  GATE  BLOCKS  YOUR  WAY  TO  THE 
SOUTH.    IT  IS  TOO  HEAVY  TO  LIFT." 
ELSEPRINT 

90  Q=0: PRINT" YOU  CAN  SEE:":FORI= 
1T031:IFL0(I)=R  THENPRINTLO$ (I) : 

0=1 

100  NEXT : IFQ=0THENPRINT"NOTHING . 
it 

lip  PRINT 

112  IFMF=1THEN8000 

115  I FR=  2  4 THENPRINT " YOU  ARE  NEXT 

TO  A  LAKE (TO  THE", "EAST  OF  YOU) 
>  ii 

117  IFR=5ANDLO(17)=-lANDLO(8)=-5 
THENPRINT"A  DARK   'X'   APPEARS  ON 
THE  GROUNDAND  THEN  DISAPPEARS." 

15)  3  IFM=1THENGOSUB9  500:LINEINPUT 
">";A$  ELSELINEINPUT">" ;A$ 

151  IFM<>1ANDMM>0THENIFRND(30) =1 
THENM=1: PRINT "POOF  !!",, "A  MEAN- 
LOOKING  GOBLIN  APPEARS" , "FROM  NO 
WHERE!  !  ":  GOTO  15)3 

152  IFA$=" "THENPRINT "SPEAK  UP  !! 
" :GOTO150 

16)  3  IFLEFT$(A$,1)="  "THENA$=MID$ 
(A$,2) :GOTO160 

161  IFRIGHT$(A$,1)="  "THENA$=LEF 

T$ (A$ , LEN (A$) -1) :GOT0161 

170  S=INSTR(A$,"   "):IFS  THEN250 

180  A$=LEFT$ (A$ , 5) 

181  F0RD=1T06:IFA$=C$(D)0RA$=LEF 
T$ (C$ (D) , 1) THENGOTO5200ELSENEXT 

182  IFA$="SIT"THEN450 

183  IFA$="SWIM"THEN690 

184  IFA$=" STAND" THEN6 7)3 

185  IFA$="SCORE"THEN9000 

186  IFA$="DIG"THEN65)3 

187  I FA$= " FREE Z " THENI FR=2 4THENPR 
INT"THE  LAKE  NEXT  TO  YOU  FREEZES 

! ! " : LL=1 : GOTO150ELSEPRINT"NOTHI 
NG  HAPPENS. ": GOTO 150 
190  IFA$="QUIT" THENPRINT "SEE  YOU 

LATER  ! ! " : CLEAR : END 
195  IFA$="JUMP"THENPRINT"BOY,  TH 
AT  LOOKS  LIKE  FUN  !!":GOTO150 
200  IFA$="LOOK"ORA$="L"THEN40 
210  IFA$="INVEN"ORA$="I"GOSUB512 
0: PRINT :GOTO150 

220  IFA$="HELP"THENPRINT"THE  KIN 
D  OF  HELP  YOU  NEED  I", "CAN'T  GIV 


E  YOU  ! ! " :GOTO150 

2  30  IFA$="WAIT" THENPRINT "FOR  WHA 

T?  THE  EASTER  BUNNY? ": GOTO150 

240  PRINT"WHAT  ?":GOTO150 

250  V$=LEFT$(A$,S-1) :N$=MID$(A$, 

S+l) 

270  V$=LEFT$(V$,5) :N$=LEFT$(N$,5 

271  IFV$="EXAMI"THENV$="LOOK" 

2  72  IFV$="SIT"ANDN$="DOWN"THEN45 
0 

273  IFV$="STAND"THEN670 

275  IFR=11ANDGG=0ANDN$=" GATE "AND 

V$="LOOK"THENPRINT"I  SEE  NOTHING 

SPECIAL  ABOUT  IT.":GOTO150 
280  F0RI=1T0NC:IFV$=C$ (I)THEN300 
ELSENEXT 

284  IFV$="TAKE"THENV$="GET" : GOTO 
280 

285  I FV$="GO "THENPRINT "PLEASE  US 
E  THE  DIRECTION  WITHOUT" CHR$ (34 ) 
"GO"CHR$(34) ".":GOTO150 

2  90  PRINT" I  SURE  DON'T  UNDERSTAN 
D  THAT. ": GOTO 150 
300  N=I 

302  FORI=1TONO:IFN$=SO$(I)THEN30 
4 ELSENEXT : PRINTNH$ : GOTO150 
304  0=1 

310  ONN-6GOTO330,350,370,390,410 
,430,450,470,490,490,510,530,550 
,570,590, 610, 630, 650, 670, 690,710 
,730 

320  PRINT" SOMETHING ' S  WRONG,  ROB 
ERT. " : STOP 
330  GOSUB7500 

332   IFFL=0THENPRINTNH$ : GOTO150 
334  IFO=30THENPRINT"IT  READS:  SA 
Y   'FREEZE'  WHEN  BY  ALAKE . " : GOT01 
50 

33  6  IFO=20THENPRINT"IT  READS:  YO 
U  ARE  IN  A  POND. " :GOTO150 
338  IFO=21THENPRINT"IT  HAS  A  KEY 
-SHAPED  INDENTATION . " ; : GOTO150 
340  IFO=5THENIFLO(6)=-9THENPRINT 
"THERE  IS  WATER  IN  IT. " : GOTO150E 
LSEPRINT"IT  IS  EMPTY .": GOTO150 

342  IF0=19THENPRINT"IT  HAS  A  FAC 
E  ON  ONE  SIDE,   AND     'ROBERT  THE 
MCMLXXXVIII'   ETCHED  ON  THE  OTHER 
.":GOTO150 

343  IFO=13THENPRINT"IT  HAS  THE  W 
ORDS  'THIS  CROSS  IS  MADE  OF  META 
L1   ENGRAVED  ON  IT.": GOTO 150 

345  IFO=4THENPRINT"IT  HAS  A  SMAL 
L  PICTURE  OF  A", "PORPOISE  JUMPIN 
G  OUT  OF  A  BODY  OF  WATER  ENGRAV 
ED  ON  IT. " :GOTO150 

348  PRINT"I  SEE  NOTHING  INTEREST 
ING  ABOUT  IT.":GOTO150 
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350  GOSUB7500:IFFL=0THENPRINTNH$ 
:GOTO150 

352  IF0=15THENPRINT"IT'S  TOO  FAR 
FOR  YOU  TO  JUMP.    I  WOULDN'T  ADV 
ISE  TRYING." : GOTO 150 
3  68  PRINT"WHEEEEEEEEE  !!":GOT015 
0 

37 p  IFM=1AND0=3 1THENPRINT" YOU  CA 
N'T  DO  THAT! "ELSEGOSUB7500 : IFFL= 
0THENPRINTNH$ :  GOTO150 
372  IFFL=2THENPRINT"YOU  ALREADY 
HAVE  IT.":GOTO150 

374  IFO=9ORO=10ORO=15ORO=16ORO=1 

80RO=220RO=260RO=270RO=28THENPRI 

NT "VERY  FUNNY . " : GOTO 150 

376  IFO=11ORO=20ORO=29THENPRINT" 

YOU  CAN'T  CARRY  THAT . " : GOTO150 

378  IFC>4THENPRINT"YOU  CAN'T  CAR 

RY  ANY  MORE.":GOTO150 

380  IFO=14THENGG=l:LO$(0)="A  PIE 

CE  OF  ROPE" 

388  C=C+l:LO(0)=-l:PRINTO$:GOT01 
50 

390  GOSUB7500:IFFL=0THENPRINTNH$ 
:GOTO150 

392  IFO<>22THENPRINT"I  DOUBT  YOU 

COULD  DO  THAT.": GOTO 150 
394  IFL0(24)<>-1THENPRINT"Y0U  HA 
VE  NOTHING  TO  UNLOCK  THE     DOOR  W 
ITH.":GOTO150 

408  PRINT "YOU  UNLOCK  THE  DOOR  AN 
D  IT", "SWINGS  OPEN. " : DD=1 : GOT015 

410  GOSUB7500:IFFL=0THENPRINTNH$ 
:GOTO150 

412  IFO<>22THENPRINT"YOU  CAN'T  O 
PEN  THAT  !":GOTO150 
414  I FDD=0THENPRINT " THE  DOOR  IS 
LOCKED. ":GOTO150 

416  PRINT"IT  IS  ALREADY  OPEN.":G 
OTO150 

430  IF0O24THENPRINT"I 'M  AFRAID 
YOU  CAN'T  DO  THAT. ": GOTO 150 
432  IFL0(21)=-1ANDL0(23)=-1THENP 
RINTO$:LO(24)=-l:LO(23)=0:GOTO15 

434  PRINT"YOU  CAN'T  DO  THAT... YE 
T  !":GOTO150 

450  IFR<19ORR>20THENPRINT"THERE ' 
S  NOWHERE  TO  SIT .": GOTO 150 
452  IFLO (8 ) =-lANDLO ( 7 ) =-lTHENR=3 
9 -R: PRINT "SUDDENLY,  YOU  HEAR  A  L 
OUD", "SCRAPING  SOUND.  THE  ROOM  B 
ECOMESDARK  FOR  A  MOMENT  AND  THEN 
", "LIGHTS  BACK  UP.  YOU  HAVE  THE" 
, "STRANGE  FEELING  YOU  ARE  NOT"," 
WHERE  YOU  WERE  A  MOMENT  AGO . " : GO 
TO150 

454  PRINT " AH. . .RELAXATION  !!":GO 


TO150 

470  GOSUB7500  :  IFFL02THENPRINT"  Y 
OU  CAN'T  DROP  WHAT  YOU  DON'T", "H 
AVE  !!":GOTO150 

472  IFR=9THENLO(0)=-8:PRINT"AS  Y 
OU  DROP  THE  OBJECT,   IT", "FLOATS 
UPWARD  AND  GETS  STUCK  ON  THE  CEI 
LING  !!":GOTO150 

473  IF0=1THENPRINT"I  WON'T  LET  Y 
OU...IT'S  YOUR  ONLYSOURCE  OF  LIG 
HT  !!":GOTO150 

474  PRINTO$:LO(0)=R:C=C-l:GOT015 

490  IFOO6THENGOSUB7500:IFFL=0TH 
ENPRINTNH$ : GOTO150 

492  IF0O6THENPRINT"UGH!  YOU  CAN 
•T  CONSUME  THAT!": GOTO 150 

493  IFLO(0)o-9THENPRINT"I  DON'T 
SEE  THAT  HERE.": GOTO 150 

494  IFL0(5)O-lANDL0(5)<>R  THENI 
FRO 6THENPRINT" THERE  IS  NO  WATER 

HERE.": GOTO 150 
498  PRINT"GULP  ! " : LO (O) =0 : GOT015 


510  GOSUB7500:IFFL=0THENPRINTNH$ 
:GOTO150 

512  IFO<>4THENPRINT"THAT  DOESN'T 

DO  YOU  ANY  GOOD.":GOTO150 
514  PRINT  "TWEET  !  "  :  IFR06THENPRI 
NT "NOTHING  HAPPENS . " : GOTO150 
516  IFLO ( 3 ) =-lANDLO ( 7 ) =-lANDLO ( 2 
5 ) =-lANDLO ( 19 ) =-lTHENLO ( 10 ) =6 : MF 
=l:GOTO40 

518  PRINT "THE  WATER  STARTS  TO  RI 
PPLE  A", "LITTLE,  BUT  THEN  IT  STO 
PS. ":GOTO150 

530  GOSUB7500:IFFL=0THENPRINTNH$ 
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:GOTO150 

532  IF0<>14THENPRINT"THAT  WOULDN 

•T  DO  YOU  ANY  GOOD. " : GOTO150 

534  PRINTO$:GG=1:GOTO150 

550  GOSUB7500 :  IFFL=0THENPRINTNH$ 

:GOTO150 

552  IFO<>5THENPRINT"YOU  CAN'T  FI 
LL  THAT  !": GOTO 150 

553  IFR<>6THENPRINT"THERE  IS  NO 
WATER  HERE.": GOTO 150 

554  IFLO (6) =-9THENPRINT"THE  BOTT 
LE  IS  ALREADY  FULL. " : GOTO 150 
556  LO(6)=-9:PRINTO$:GOTO150 
570  GOSUB7500:IFFL=0THENPRINTNH$ 
:GOTO150 

572  IFLO(6)=0THENPRINT"YOU  HAVE 
NO  WATER. 11 : GOTO  150 
574  PRINT"SPLASH   ! " : IFR=24ANDO=l 
1THENPRINT " YOU  WATER  THE  PLANT. 
AFTER  A", "SECOND,   THE  PLANT  GROW 
S  VERY" /'LARGE  AND  EATS  YOU.  JUS 
T  BEFORE  YOU'RE  COMPLETELY  GONE, 
YOU  SEE  A  SIGN  THAT  READS:   DO  N 
OT  FEED", "THE  PLANTS .": L=L-1 : GOS 
UB5300:R=1:GOTO40 
576  GOTO150 

590  GOSUB7500:IFFL=0THENPRINTNH$ 
:GOTO150 

592  IFO<>7THENPRINT"YOU  CAN'T  WE 

AR  THAT! ":GOTO150 

594  LO(O)=-1:PRINTO$:GOTO150 

610  GOSUB7500:IFFL=0THENPRINTNH$ 

:GOTO150 

612  IFO=30THENPRINT"IT  READS:  SA 
Y  'FREEZE'  WHEN  BY  ALAKE . " : GOTOl 
50 

614  IFO=20THENPRINT"IT  READS:  YO 

U  ARE  IN  A  POND.":GOTO150 

616  IFO=13ORO=19THEN330 

618  PRINT "THERE  IS  NO  WRITING  ON 

IT.":GOTO150 
630  GOSUB7500:IFFL=0THENPRINTNH$ 
:GOTO150 

632  IFO=2THENPRINT"YOU  CAN'T  KEE 

P  YOUR  BALANCE.": GOTO 150 

634  IFO=29THENPRINTO$:R=23 :GOT04 

636  PRINT "THAT  WON'T  DO  YOU  ANY 
GOOD.":GOTO150 

650  IFLO (17) <>-lTHENPRINT"YOU  DO 
N'T  HAVE  ANYTHING  TO  DIG  WITH." 
:GOTO150 

652  IFR=5THENLO(8)=5:PRINT"OKAY. 
":GOTO40 

654  PRINT"YOU  FIND  NOTHING .": GOT 
0150 

670  PRINTO$:GOTO150 

690  PRINT" YOU  DON'T  KNOW  HOW  TO 

SWIM.": GOTO 150 


710  GOSUB7500:IFFL=0THENPRINTNH$ 
:GOTO150 

712  IF0=22THENIFDD=1THENPRINT"TH 
E  DOOR  SLAMS  SHUT  AND  THE  LOCKCA 
TCHES . " : DD=0 : GOTO150ELSEPRINT"IT 

IS  CLOSED. " :GOTO150 
714  PRINT" YOU  CAN'T  CLOSE  THAT." 
:GOTO150 

730  IFM=0ORO<>3 1THENPRINT"ALL  YO 
U  CAN  KILL  HERE  IS  TIME . " : G0T015 

731  PRINT"YOU  SWING..." 

732  AT=RND(100) :IFAT<75THENPRINT 
"  AND  HIT! ! "ELSEPRINT"  AND  MISS! 
!":GOTO150 

735  DM=RND(3) :IFDM=1THENPRINT"IT 
WAS  A  SOLID  HIT! ! " :MM=MM-RND(10 

) 

737  IFDM=2THENPRINT"THAT  WAS  A  P 
RETTY  WEAK  HIT   ! " :MM=MM-RND (5) 

739  IFDM=3THENPRINT"Y0U  JUST  BAR 
ELY  NICKED  HIM  ! " : MM=MM-RND ( 2 ) 

740  IFMM<0THENPRINT, , "YOU  KILLED 
THE  GOBLIN!!", "I  GUESS  HE  WON'T 
BOTHER  YOU  ANY    MORE  !!":M=0:GO 

TO150 

745  I FMM< 5 THENPRINT " THE  GOBLIN  S 
CREAMED  AND" , "TELEPORTED  AWAY  IN 
A  PUFF  OF", "SMOKE   ! ! " : MM=MM+5 : M 
=0:GOTO150 

747  PRINT "THE  GOBLIN  IS  SHAKEN, 
BUT  STILL  WELL  ENOUGH  TO  FIGHT  ! 
! ":GOTO150 

4999  END 

5000  IFA=0THENRETURN 
5010  IFA>3 1THENRETURN 
5015  IFR=13GOTO5060 

5050  IFI=1THENPRINT"N0RTH  "; 
5055  I FR= 1 1 ANDGG= 1THENPRI NT " S OUT 
H  "; 

5060  IFI=2THENPRINT"S0UTH  "; 
5065  IFR=18THENPRINT"S0UTH  "; 
5070  IFI=3THENPRINT"EAST  " ; 
5075  IFR=15THENPRINT"EAST (OVER  T 
HE  HOLE)  "; 

5080  IFI=4THENPRINT"WEST  "; 
5090  IFI=5THENPRINT"UP  "; 
5100  IFI=6THENPRINT"D0WN  "; 
5110  RETURN 

5120  PRINT" YOU  ARE  CARRYING :": FO 
RI=1T03 1 : IFLO ( I ) =-lTHENPRINTLO$ ( 
I) 

5130  NEXT: RETURN 

5200  RESTORE :F0RI=1T0R:READA$,A$ 
: NEXT : F0RI=1T0D : A=VAL (MID$ ( A$ , I* 
2-1,2) ) :NEXT 

5202  I FM= 1THENPRINT "IF  YOU  LEFT, 
THE  GOBLIN  WOULD", "GET  A  FREE  S 
HOT  AT  YOU  !!":GOTO150 
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5205  IFA=95THENIFLL=0THENPRINT"Y 
OU'D  DROWN  IF  YOU  DID  THAT." : GOT 
O150ELSEPRINTO$:R=25:GOTO40 
5210  IFA=98THENPRINT"YOU  WALK  IN 
TO  THE  FLAMES  AND  ARE BURNT  TO  DE 
ATH  !  !":L=L-1:GOSUB5300:R=1:GOTO 
40 

5212  IFA=97THENIFDD=0THENPRINT"T 
HE  DOOR  BLOCKS  YOUR  WAY.": GOTO 15 
0ELSER=19 : PRINTO$ : GOT04 0 
5215  IFA=92THENIFGG=0THENPRINT"A 
GATE  BLOCKS  YOUR  WAY.  IT  IS  T 
00  HEAVY  TO  LIFT . " : GOTO150ELSER= 
12:PRINTO$:GOTO40 

5220  IFA=86THENPRINT"YOU  JUST  WA 
LKED  INTO  WATER  THAT  WAS  TOO  DEE 
P  FOR  YOU  ! !":L=L-l:GOSUB5300:R= 
1:GOTO40 

5222  IFA=91THENPRINT"A  BRIGHT  LI 
GHT  ENGULFS  YOU  FOR  ASECOND  AND 
THEN  STOPS . " : R=l : G0T04 0 
5224  IFA=99THENPRINT"AAAAAAH! !  Y 
OU  JUST  WALKED  OFF  THE  EDGE  OF 
THE  CLIFF 11": L*L-1 : GOSUB5300 : R= 
l:GOTO40 

5226  IFA=96THENIFLO(2)=-10RLO(2) 
=R  THENPRINT " YOU  START  TO  FALL  I 
N  THE  HOLE,  BUT  THE  POLE  STOPS 
YOU  AND  YOU  ARE  ABLE  TO  CROSS  T 
HE  ROOM. ":R=16:GOTO40ELSEPRINT"Y 
OU  FALL  INTO  THE  HOLE  AS  YOU  T 
RY  TO  CROSS  THE  ROOM. " :R=17 : GOTO 
40 

5250  IFA=0THENPRINT"YOU  CAN'T  GO 

THAT  WAY.": GOTO 150 
5260  R=A:PRINTO$:GOTO40 
5300  M=0: PRINT: PRINT"  **  YOU  HAV 
E  DIED  **":IFL=0THEN5350 
5310  PRINT "LUCKILY,   I  CAN  BRING 
YOU  BACK  TOLIFE   (FOR  A  WHILE,  AT 

LEAST) .": PRINT "OKAY,  HERE  YOU  G 
0  ! ! ": PRINT: PRINT" — >  PRESS  ANY 
KEY  < — "; :EXEC44539:PRINTSTRING$ 
(21,8) ; : RETURN 

5350  PRINT"TSK,   TSK,   TSK.   THIS  I 
S  YOUR", "SECOND  TIME,   YOU  KNOW. 
I'M  SORRY, BUT  I  CAN'T  HELP  YOU  A 
NYMORE.       WELL,   BETTER  LUCK  NEXT 
TIME  ! ! " : PRINT : END 
7500  FL=0:IFLO(O)=R  THENFL=1ELSE 
IFLO(O) =-lTHENFL=2 
7505  IFO>25ANDO<29THENFL=l 
7510  RETURN 

7520  REM  THAT  WAS  SUBR.   TO  CHECK 
IF  OBJECT  O  WAS  AROUND. 

8000  PRINT"  PRESS  ANY  KEY — 

 " ; : EXEC44539 : CLS : PRINT@97 , "T 

HE  PORPOISE  CARRIES  YOU  TO  A"," 
SMALL  CAVE.   INSIDE  THE  CAVE  IS", 


"  A  TROPHY.   THE  TROPHY  HAS  AN"," 
INSCRIPTION  ON  IT.   IT  READS:"," 
CONGRATULATIONS   !  !  " , "     YOU  HAV 
E  SOLVED  "; 

8005  PRINT"ROBERT'S", "  ADVENTUR 
E  !  !  " 

8007  PRINT: PRINT"  OUT  OF  25,  YOU 

HAVE  25  POINTS!" 
8100  X=USR0(RND( 32767) ) :GOTO8100 
9000  SC=0:IFLO(3)=-1THENSC=5 
9002  IFLO(7)=-lTHENSC=SC+5 
9004  IFLO(19)=-lTHENSC=SC+5 
9006  IFLO(25)=-lTHENSC=SC+5 
9008  PRINT"OUT  OF  25,    YOU  HAVE"S 
C 

9010  GOTO150 

9500  REM  »  MISC  « 

9502  REM  »BATTLE« 

9510  PRINT "THE  GOBLIN  ATTACKS   ! ! 

" :AT=RND( 100) : PRINT "THE  GOBLIN  S 

WINGS  .  .  .  "  :  IFAK50THENPRINT"  AND 

MISSES  !1":RETURN 

9520  PRINT"  AND  HITS  !!" 

9530  DM=RND(4) : IFDM=1THENPRINT"0 

UCH!!  A  SOLID  HIT ! ! " : PP=PP-RND ( 1 

0) 

9532  IFDM=2THENPRINT"0WWW! !  HE  S 
CRAPED  YOU  UP  PRETTY  BAD...":PP= 
PP-RND(4) 

9534  I FDM= 3 THENPRINT "AAAAARGH! ! 
HE  CUT  PRETTY  DEEP. . . " ; : PP=PP-RN 
D(3) 

9536  IFDM=4THENPRINT"YIKE! !   HE  N 
ICKED  YOU! ! " : PP=PP-RND ( 2 ) 
9538  IFPP>5THENRETURN 
9540  IFPP>1THENPRINT"I 'M  AFRAID 
THAT  LAST  BLOW" , "KNOCKED  YOU  OUT 
FOR  AWHILE.", ,, "THE  GOBLIN  LEAV 
ES,   LAUGHING" , "LOUDLY. " :M=0:GOTO 
9560 

9550  L=L-1:PP=20:PRINT"I'M  SORRY 
,  BUT  THAT  LAST  HIT  WASTOO  MUCH 
FOR  YOU.":GOSUB5300:R=l:GOTO40 
9560  F=0 : I FLO ( 3 ) =-lTHENLO ( 3 ) =14 : 
F=1ELSEIFL0 ( 7 ) =-lTHENLO (7) =14 : F= 
1ELSEIFL0 ( 19 ) =-lTHENLO ( 19 ) =14 : F= 
1 

9570  IFF=1THENC=C-1 : PRINT, , "BUT 
BEFORE  HE  LEFT,   HE  RELIEVED  YOU 
OF  ONE  OF  YOUR  VALUABLES .": RETUR 
NELSERETURN 

10000  REM  ############# 
10010  REM  #  ROOM  DATA  # 
10020  REM  ############# 
10030  DATAIN  A  SHED, 0002, IN  A  CL 
EARING, 010400000003, IN  A  STONE  R 
OOM, 0008000002, IN  A  CLEARING, 020 
005, STANDING  BY  A  POND  TO*THE  SO 
UTH, 00060704, IN  THE  POND, 0586, AT 
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THE  EDGE  OF  THE* CLEARING, 000000 
05, IN  A  SMALL  ROOM, 03 1109 , IN  A  R 
OOM  WITH  A  BLACK* CEILING 
10040  DATA00100008,IN  A  SMALL  RO 
OM,09,IN  A  WARM  ROOM, 0892, IN  A  H 
OT  ROOM, 11001513 , IN  A  ROOM  WITH 
FIRE  ON*THREE  SIDES , 14981298 , IN 
A   (COUGH!)    SMOKY  ROOM, 0013, IN  A 
ROOM  WITH  A  HOLE* IN  THE  FLOOR, 00 
009612, IN  A  ROOM  WITH  A  DOOR  INT 
HE  NORTH  WALL, 97000015 
10050  DATAIN  A  ROOM  WITH  A  HOLE 
INTHE  CEILING, 00000018, IN  A  SMAL 
L  ROOM, 009117, IN  THE  THRONE  ROOM 

WITH  A  DOOR  ON  THE  SOUTH  WALL,0 
016, IN  THE  THRONE  ROOM  WITH  A  DO 
OR  ON  THE  SOUTH  WALL, 0021, IN  A  L 
ARGE  ROOM, 200031, IN  A  ROOM  WITH 
A  LADDER  GOING  UP 

10060  DATA3 10000002 3, IN  A  CLEARI 
NG  WITH  A*LADDER  GOING  DOWN, 0000 
24000022, IN  A  CLEARING , 0000952 3 , 
ON  THE  FROZEN  LAKE, 00260024 , ON  T 
HE  NE  CORNER  OF  A*CLIFF, 25289927 
,ON  THE  NW  CORNER  OF*THE  CLIFF, 9 
9292699, ON  THE  SE  CORNER  OF*THE 
CLIFF, 26999929 

10070  DATAON  THE  SW  CORNER  OF  TH 
E  CLIFF, 27992899, ,0, IN  A  COLD  RO 
OM, 00220021 

20000  DATANORTH, SOUTH, EAST, WEST, 


UP , DOWN , LOOK , JUMP , GET , UNLOC , OPEN 
, MAKE , SIT , DROP , EAT , DRINK , BLOW , PU 
LL , FI LL , WATER , WEAR , READ , CLIMB , DI 
G , STAND , SWIM , CLOSE , KILL 
30000  DATAA  GLOWING  SWORD, SWORD, 
-1,"A  10'  POLE", POLE, 7, A  LARGE  G 
EM, GEM, 11, A  TIN  WHISTLE, WHIST, 2  6 
,A  GLASS  BOTTLE, BOTTL, 1, WATER  IN 
BOTTLE, WATER, -9, THE  KING'S  CROW 
N, CROWN, 13, THE  KING'S  SCEPTER, SC 
EPT,-5,THE  KING'S  THRONE , THRON , 1 
9, A  FRIENDLY  PORPOISE , PORPO , 
30010  DATAA  GREEN  PLANT , PLANT , 2 4 
,,TROPH,30,A  METAL  CROSS , CROSS , 1 
4, A  ROPE  HANGING  FROM  THE  CEILIN 
G, ROPE, 10, THE  HOLE, HOLE, 15, , LAKE 
,6, A  SHOVEL, SHOVE, 2, , FIRE, 13, A  S 
HINY  COIN, COIN, 21, A  SIGN, SIGN, 6, 
A  MOLD, MOLD, 12 , A  LARGE  IRON  DOOR 
, DOOR, 16, SOME  WAX, WAX, 1 
30020  DATAA  WAX  KEY, KEY, 0, AN  ABS 
TRACT  PAINTING , PAINT ,31,, FLOOR , , 
, CEILI, , ,WALL, ,A  LADDER, LADDE , 22 
,A  MAGIC  BOOK, BOOK, 3, A  MEAN-LOOK 
ING  GOBLIN, GOBLI, 

40000  DATA189, 179,237, 31, 152, 142 
,4,0,16,142,4,31,2  37,137,1,224,2 
37,164,49,168,32,237,129,140,4,3 
2,38,240,57 


Tape  Bonus  Programs 


By  now  you  probably  are  addicted  to  Adventures  and  are  hungry  for 
even  more.  Read  on. 

The  following  section  contains  loading  and  playing  instructions  for  three 
additional  Adventures  that  are  included  as  bonus  programs  on  The  Second 
Rainbow  Adventures  Tape  but  were  considered  too  lengthy  to  be  "listed 
out"  in  this  book. 

The  tape,  which  is  sold  separately,  includes  all  24  of  the  featured 
Adventures  in  this  publication.  The  tape  also  saves  you  many  hours  of 
time  which  are  required  to  type  in  the  lengthy  program  listings.  For 
information  on  how  to  order  The  Second  Rainbow  Adventures  Tape,  see 
page  327. 
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Sails  of 
Dungeon  Deaffi 


Program  by  Eric  and  Mark  Riel 


n  eerie  mist  pervades  Dungeon  Death  where 
legend  says  there  is  a  solid  platinum  crown 
embedded  with  sapphires  and  diamonds. 

Even  if  you're  not  into  "Dungeons  & 
Dragons'1  games  on  a  regular  basis,  you  will 
enjoy  this  program  because  it  combines  D&D 
qualities  with  the  fun  and  challenge  of 
Adventure  games  and  some  super  graphics.  It 
also  includes  such  D&D  basics  as  hit  points, 
experience  points,  armor  class,  weapons  and, 
of  course,  monsters. 

Your  goal  is  to  retrieve  the  crown.  This  is 
no  easy  task  since  the  crown  is  buried  12  levels 
below  the  surface.  Each  level  is  infested  with 
evil  creatures  and  traps. 

When  a  monster  is  encountered,  you  will 
decide  whether  to  fight  or  run.  Your  odds  of 
escaping  are  better  if  you  take  off  before  any 
blows  are  exchanged.  If  you  choose  to  fight, 
you  are  asked  if  you  want  to  thrust,  parry  or 
attack  with  a  normal  blow.  A  monster's  chance 
of  hitting  you  is  affected  by  your  armor  class. 
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You  gain  experience  points  for  killing  monsters,  advancing  in  ability  as  you 
collect  experience  points. 

There  are  enchanters  on  some  of  the  levels.  Resembling  robed  wizards, 
the  enchanters  will  restore  some  of  your  lost  hit  points  for  2,000  gold  pieces 
or  enchant  one  of  your  weapons  for  5,000  gold  pieces.  Enchanting  is  a  magical 
process  that  increases  the  power  of  a  weapon. 

You  will  find  the  following  commands  helpful  as  you  make  your  way  through 
the  dungeon: 

(I)nventory  —  Lists  what  you  are  carrying,  as  well  as  hit  points  and 
experience. 

(G)et  —  To  retrieve  the  object  on  which  you  are  positioned. 
(D)rop  —  To  place  an  object.  You  must  not  be  standing  on  an  object 
at  the  time. 

(C)hange  —  To  trade  the  weapon  in  your  hand  for  another. 

(O)pen  —  To  open  a  door,  but  you  must  have  the  correct  key. 

(S)earch  —  To  check  the  area  in  your  immediate  vicinity  for  pits,  secret 
passages  and  rooms. 

As  your  quest  begins,  you  are  in  possession  of  a  sword,  a  healing  potion, 
and  a  magical  bag  that  enables  you  to  carry  as  much  gold  as  necessary.  The 
potion  and  the  bag  were  given  to  you  by  an  old  wizard  who  offered  the 
following  advice:  "Remember,  on  the  first  level  past  the  bones  lies  that  which 
will  help  carry  you  deep  into  the  dungeon." 

After  the  introduction  is  loaded,  type  RUN.  The  credits  will  be  shown  while 
machine  language  subroutines  for  the  main  program  are  loaded.  It  is  a  good 
idea  to  leave  the  Play  button  on  your  tape  recorder  on  at  all  times.  Also, 
be  sure  to  unplug  your  disk  controller. 


(Eric  and  Mark  Riel  live  in  Kent,  Wash.  Eric  is  a  student  at  Kentwood 
High  School;  Mark  attends  Western  Washington  University.) 
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Casitle  Ouubo 


1  Program  by  Carmen  DiMichele  Jr. 

JL        oo  much  power  in  the  wrong  hands  can  be 

 1    a  terrible  thing,  causing  unneccessary  grief  in 

the  lives  of  many  persons.  When  the  power 
belongs  to  a  god,  the  consequences  can  be 
catastrophic. 

That's  what  the  citizens  of  Birnshire  discov- 
ered many  centuries  ago  when  a  revolution 
among  the  gods  led  to  the  overthrow  of  the 
good  and  kind  Dynas  by  his  scheming  appren- 
tice, Thuudo. 

Thuudo  immediately  imposed  martial  law 
throughout  the  kingdom,  declaring  strict 
obedience  to  his  every  whim.  He  had  a  terrible 
temper,  too  —  prone  to  emotional  outbursts 
over  the  most  trivial  matters.  Of  all  the  gods 
that  had  ruled  Birnshire,  Thuudo  was  clearly 
the  most  unkempt,  unmannerly  and  unbearable. 
But  he  was  in  power,  so  Thuudo  saw  nothing 
wrong  with  the  way  he  demeaned  the  citizens. 
Most  of  them  had  invested  their  lives  in 
Birnshire,  so  they  were  reluctant  to  attempt 
escape. 

Dynas  was  too  old  to  wage  a  prolonged  battle 
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against  Thuudo,  so  he  asked  his  friend  Demos  to  take  up  the  challenge.  Demos, 
however,  was  not  prepared  for  the  unethical  methods  employed  by  Thuudo. 
They  were  both  executed  for  their  efforts. 

Now  it's  your  turn,  dear  Adventurer.  You  will  need  to  call  on  all  your 
inner  strength,  be  very  observant,  and  you  may  even  need  help  from  the 
Grim  Reaper  if  you  are  to  improve  your  odds  against  Thuudo.  Hope  you've 
been  vigilant  with  your  fencing  lessons,  paying  careful  attention  to  the  block 
and  slash  maneuvers. 

After  loading  the  Adventure,  you  are  given  the  option  of  a  recap  on  how 
Thuudo  gained  power.  Type  YES  if  you  want  the  introduction.  Press  any 
key  to  get  to  the  next  screen.  If  you  want  to  bypass  the  opening  sequence, 
just  type  NO  when  prompted  and  the  Adventure  will  begin  automatically. 

You  are  advised  to  make  a  map  because  there  is  a  tendency  to  get  lost 
and  wander  around  in  circles. 

If  you  need  inspiration  along  the  way,  just  think  about  how  much  evil 
you  rid  the  world  of  by  eliminating  Thuudo. 


(Carmen  DiMichele  Jr ,  is  a  high  school  student  in  Linwood,  N.J.  He 
plans  to  major  in  electronics  engineering  in  college.) 
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CAVE  OF 


Program  by  Jane  Fisher 


ver  since  as  a  young  girl  you  and  a  playmate 
discovered  a  series  of  caves  on  the  family  farm 
many  years  ago,  you've  been  curious  about 
where  the  underground  passages  lead  and  what 
mysteries  are  contained  within  them. 

Over  the  years  your  parents  have  discouraged 
you  from  following  through  with  your  desire 
to  explore  the  caves,  pleading  for  you  to  wait 
until  you  are  older.  "Girls  shouldn't  be 
interested  in  such  things,"  they  tell  you.  "Why 
don't  you  just  look  for  a  husband  and  raise 
a  family?"  Sensing  that  they  cannot  dissuade 
you,  they  make  you  promise  to  meet  with  the 
retired  Army  officer  who  lives  down  the  road. 

Upon  visiting  the  old  man's  home,  you  are 
amazed  at  the  vast  collection  of  artifacts 
throughout  the  palatial  mansion — ornate 
vases,  precious  jewels,  silver  swords,  majestic 
shields  and  many  other  visible  symbols  of 
opulence. 

Something  about  him  suggests  that  the  man 
has  seen  more  than  his  share  of  misery  in  his 
lifetime.  Maybe  it's  the  way  he  avoids  looking 


TAPE  BONUS  PROGRAMS 


323 


you  straight  in  the  eye,  or  is  it  the  scars  that  cut  through  the  wrinkles  on 
his  forehead? 

He  speaks  very  softly,  and  most  of  the  time  it  is  difficult  to  understand 
what  the  old  man  is  trying  to  say. 

"I'm  going  to  explore  the  caves  on  my  daddy's  farm!"  you  finally  shout, 
out  of  desperation.  "Do  you  know  something  about  them?" 

Suddenly  the  rambling  ends,  and  the  old  man  turns  to  look  at  you.  His 
piercing  eyes  tell  you  that  you  have  gotten  through  to  him. 

"Yes,  I've  been  there,"  he  says,  "but  only  a  fool  would  go  back.  The  caves 
are  evil  and  dangerous.  Why  do  you  want  to  go  in  there?" 

"The  caves  are  on  our  farm  and  anything  in  them  belongs  to  our  family," 
you  say.  "As  the  only  child,  I  have  an  obligation  to  explore  them." 

Finally,  the  old  man  agrees  to  talk.  "My  dear,  there  are  treasures  in  the 
caves,"  he  says.  "Your  father  gave  permission  to  my  son  and  me  to  enter 
the  caves  years  ago.  Many  of  the  things  you  see  in  my  house  were  found 
there.  They  were  given  to  me  by  your  father  as  compensation  for  the  loss 
of  my  son.  I  consider  myself  fortunate  to  have  survived. 

"I  cannot  give  you  any  advice  except  to  tell  you  to  guard  your  every  step. 
There  are  many  more  treasures,  but  you've  got  to  decide  whether  the  risk 
is  worth  your  life!" 

Your  goal  for  this  Adventure  will  be  to  retrieve  eight  treasures,  each  valued 
at  eight  points,  and  to  score  an  additional  bonus  of  20  points  while  exploring 
more  than  80  locations.  The  program  accepts  one-  or  two-word  commands, 
such  as  GO  NORTH  (or  simply  'N'  for  North).  A  save  feature  is  included. 

Because  of  the  size  of  the  source  code,  it  was  necessary  to  divide  the  program 
into  five  parts  and  to  delete  all  of  the  comments  in  order  to  assemble  it 
using  Radio  Shack's  EDTASM+  (The  ROM  pak  version  was  moved  to  disk 
and  modified  to  read/ write  disk  instead  of  tape).  Since  data  areas  shared 
by  more  than  one  module  had  to  be  placed  at  fixed  addresses,  it  was  impossible 
to  use  position-independent  code.  Also,  the  modules  themselves  had  to  be 
located  at  fixed  addresses  in  order  to  move  back  and  forth  between  them. 


(Jane  Fisher  is  a  data  processing  consultant  for  the  state  of  North  Carolina. 
She  has  been  designing  and  programming  business  applications  for  IBM 
mainframes  for  18  years.) 
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Give  Your  Eyes  and  Fingers  a  Rest  with 


THE  SECOND  RAINBOW 
ADVENTURES  TAPE 

Typing  in  the  longer  listings  from  The  Second  Rainbow  Book  of  Adventures 

can  be  instructive  in  terms  of  providing  an  opportunity  to  see  how  various 
parts  of  a  program  are  developed.  But,  oh,  is  it  tedious  at  times.  Just  keying 
in  the  program  Yellow  Submarine,  for  example,  can  make  for  a  lost  weekend 
—  or  several  evenings. 

The  Second  Rainbow  Adventures  Tape  includes  all  two  dozen  Adventures 
in  the  book,  plus  a  bonus  of  three  additional  Adventures!  So  you  get  a  grand 
total  of  27  great  Adventures  when  you  buy  the  tape. 

You'll  also  save  hours  of  time  while  giving  your  fingers  and  eyes  a  break. 
You'll  spend  your  time  enjoying  these  Adventures,  instead  of  typing,  typing, 
typing  .  .  .  and  debugging.  Just  pop  the  tape  into  the  recorder  and  you're 
ready  for  action! 

The  Second  Rainbow  Adventures  Tape  is  only  $13.95! 

You  can  use  your  VISA,  MasterCard  or  American  Express  to  order  The 
Second  Rainbow  Adventures  Tape  by  telephone  at  (502)  228-4492  or  you 
can  enclose  payment  and  mail  your  order  to: 

The  Second  Rainbow  Adventures  Tape 

The  Falsoft  Building 
P.O.  Box  385 
Prospect,  KY  40059 

Yes!  Send  me  The  Second  Rainbow  Adventures  Tape  for  only  $13.95 

Name   


Address 
City   


State 


ZIP 


□  Payment  Enclosed,  or  □  Charge  to: 

□  VISA      □  MasterCard      □  American  Express 
Account  Number:   Expiration  Date 

Signature:   .   


*Non-U.S.  orders  add  $2  (U.S.  funds)  to  cover  additional  postage. 
Kentucky  residents  add  5%  sales  Tax. 
In  order  to  hold  down  cost,  we  do  not  bill. 


(Please  Note:  The  tape  is  not  a  stand- 
alone product.  If  you  buy  the  tape,  you 
will  still  need  to  purchase  the  book  for 
loading  and  operating  instructions.) 
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Recommended  Reading 
for  Your  CoCo  from  .  .  . 


The  Rainbow  Bookshelf 


The  Complete  Rainbow  Guide  To  OS-9       The  Rainbow  Book  of  Simulations 


The.Rainbow  Book  of  Adventures 


The  book  that  demys- 
tifies the  state-of-the- 
art  operating  system 
for  the  Tandy  Color 
Computer.  Authors 
Dale  L.  Puckett  and 
Peter  Dibble  show  you  how  to  take  advantage 
of  OS-9's  multi-tasking  and  multi-user 
features,  and  the  capability  of  redirecting 
input  and  output  commands  at  will.  An  easy- 
to-read,  step-by-step  guide  packed  with 
hints  and  tips,  tutorials  and  free  software  in 
the  form  of  program  listings. 

Book   $19  95 

Disk  (2  disks,  book  not  included)      $31  00 


Features  20  award- 
winning  entries  from 
the  rainbow's  first 
Simulation  program- 
ming competition.  You 
are  the  Commander- 
in-Chief  of  the  Con- 
federate Army  during  the  Civil  War,  an  air 
traffic  controller  at  one  of  the  nation's  busiest 
airports,  the  owner  of  your  own  software 
business,  a  civil  defense  coordinator  in 
charge  of  saving  Rainbow  City  from  a  raging 
flood,  a  scientist  conducting  experiments  on 
Mars  .  .  .  Your  wits  are  on  the  line. 


Book 
Tape 


$9.95 
$9.95 


A  collector's  item  con- 
taining 14  winning  programs  from  the 
rainbow's  very  first  Adventure  contest. 
Includes  such  favorites  as  Sir  Randolf  ol  the 
Moors,  Search  for  the  Ruby  Chalice,  Deed 
of  the  York,  Horror  House,  One  Room,  The 
Door,  and  Dr.  Avaloe.  Plus,  hints  and  tips 
on  solving  Adventures. 


Book 
Tape 


$7.95 
$7.95 


Keep  your  library  up  to  date.  Order  now! 


OS-9*  is  a  registered  trademark  of  the  Microware  Systems  Corporation 


/  want  to  start  my  own  Rainbow  Bookshelf! 


Please  send  me: 

□  The  Rainbow  Book  of  Simulations  $  9.95  . 

□  Rainbow  Simulations  Tape  $  9.95 

□  The  Complete  Rainbow  Guide  to  OS-9 

(book  only)  $19.95 

□  Rainbow  Guide  to  OS-9  Disk  Package  (2  disks)  $31 .00  . 


Name 


□  The  Rainbow  Book  of  Adventures 

□  Rainbow  Adventures  Tape 

□  The  Second  Rainbow  Book  of  Adventures 

□  Second  Rainbow  Adventures  Tape 

Add  $1.50  per  book  Shipping  and 
Handling  in  U.S. 

Outside  U.S.,  add  $4.00  per  book 


$  7.95 . 
$  7.95 . 
$13.95 
$13.95 


Address 

City   

State   


□  Payment  Enclosed,  or    □  Charge  to: 


□  VISA 

□  MasterCard 

□  American  Express 

Account  Number   


ZIP 


Total 


Please  note  The  tapes  and  disks  oflered  by  The  Rainbow  Bookshelf  are  not  stand-alone  Card  Expiration  Date 
products  That  is,  they  are  intended  to  be  an  ad|unct  and  complement  to  the  books 

Even  if  you  buy  the  tape  or  disk,  you  will  still  need  the  appropriate  book  Signature   


Mail  to:  The  Rainbow  Bookshelf,  The  Falsoft  Building,  P.O.  Box  385,  Prospect,  KY  40059. 
To  order  by  phone,  call:  (502)  228-4492. 
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THE  RAINBOW  HAS  MADE  ITS  MARK  BY  CONSISTENTLY  PROVIDING 
THE  MOST  INFORMATION  FOR  YOUR  TANDY  COLOR  COMPUTER! 


Now  in  its  fifth  year,  THE  RAINBOW  is  the  premier  source 
of  information  for  the  Tandy  Color  Computer.  And  no 
wonder!  THE  RAINBOW  towers  above  the  crowd,  containing 
up  to  300  pages  monthly,  including  as  many  as  three 
dozen  type-in-and-run  program  listings,  a  great  variety 
of  articles  and  as  many  as  30  hardware  and  software 
product  reviews. 

Devoted  exclusively  to  the  Tandy  Color  Computer, 
we've  made  our  mark  by  consistently  offering  the 
programs  and  the  most  current  information  available 
—  from  such  well-known  authors  and  innovators  as 
Dale  Puckett,  Tony  DiStefano,  Robert  Tyson,  Fred 
Scerbo,  Colin  Stearman,  Dennis  Weide,  Dan 
Downard  and  H.  Allen  Curtis. 
THE  RAINBOW  offers  the  most  in  entertainment 
and  educational  programs,  as  well  as  technical 
advice,  hardware  projects,  tutorials,  utilities  and 
graphics,  and  such  special  features  as  Score- 
board Pointers  and  our  new  CoCo  Gallery. 
You're  the  first  to  learn  about  new  products 
for  your  CoCo.  Literally  hundreds  of  products 
appear  on  our  advertising  pages  every 
month.  Our  product  reviews  assist  you  in 
buying  the  right  ones. 
For  only  $31*  a  year,  you  get  the  key  to  all  the  secrets 
locked  in  your  CoCo! 
We're  right  on  target,  helping  you  to  realize  the  incredible  potential  of 
your  Color  Computer  when  you  subscribe  to  THE  RAINBOW. 


Yes!  Sign  me  up  for  a  year  (12  issues)  of  the  rainbow  for  $31' 
Name  


Address 
City   


State 


ZIP 


is  enclosed. 


My  check  in  the  amount  of  

Charge  to:      □  VISA   □  MasterCard   □  American  Express 

Acct.  No.:    Exp.  Date:  _ 

Signature:  


1^     -no*  5 


Mail  to:  THE  RAINBOW,  The  Falsoft  Building,  Prospect,  KY  40059. 
Telephone:  (502)  228-4492. 


The  Personal  Computing  Magazine 
for  Tandy®  Computer  Users 

Now,  here's  your  opportunity  to  have  PCM  —  The  Personal  Computing  Magazine 
for  Tandy®  Computer  Users  delivered  to  your  home  or  office  each  month! 

PCM  will  bring  you  the  finest  and  most  up-to-date  information  available  anywhere 
for  your  Tandy  100,  200,  1000,  1200  and  2000  computers  for  home  or  office.  Whether 
your  interest  is  programming,  using  the  Portable  Computer's  fabulous  built-in 
functions  or  using  the  MS-DOS  and  IBM-compatible  systems,  PCM  is  for  you.  PCM 
also  features  bar  code  listings  of  BASIC  programs!  Ready-to-load  software  right 
from  our  pages!  Each  month  we'll  bring  you  a  host  of  articles,  ready-to-run  programs 
for  business  and  professional  use  or  just  plain  fun.  And  each  article  will  be  in  an 
easy-to-read  style. ..not  computerese. 

Subscribe  to  PCM  today!  A  dozen  issues  are  only  $28  ($35  in  Canada  and  Mexico). 


PCM  —  The  Personal  Computing  Magazine 
for  Tandy®  Computer  Users 

P.O.  Box  385 
Prospect,  KY  40059 
(502)  228-4492 

YES!  Sign  me  up  for  a  year  (12  issues)  of  PCM  □  NEW         □  RENEWAL 

Name   

Address   

City    State    ZIP  

□  Payment  Enclosed    Charge  to:  □  VISA    □  MasterCard    □  American  Express 
Account  Number   Card  Exp.  Date  

Signature  


Subscriptions  to  PCM  are  $28  a  year  in  the  United  States.  Canadian  and  Mexican 
rate  is  U.S.  $35.  Surface  rate  elsewhere  U.S.  $64.  Air  mail  U.S.  $85.  All  subscriptions 
begin  with  the  current  issue.  Please  allow  5-6  weeks  for  first  copy. 

Kentucky  residents  add  5%  sales  tax.  Sorry  —  in  order  to  hold  down  non-editorial 
cost  we  do  not  bill. 
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